Commentaires:
1) si tu utilises Excel 2007, enregistre ton fichier en format 2000-2003 pour des questions de compatibilité, à moins que vraiment tu ne requières des spécificités 2007.
2) implémente ton code, SVP! (d'ailleurs curieux que ce soit fait dans certains modules mais pas dans les autres)
3)'Effacement des anciennes lignes
Range(Cells(3, 1), Cells(100000, 2)).Select
pourquoi aller jusqu'à la ligne 100000???
préfères quelque chose du genre:
Dim l as Long
l = Range("A65536").End(xlUp).Row
' on peu aussi utiliser l = Range("A3").End(xlDown).Row
Range("A3:A" & l).ClearContents ' plus court a ecrire
Malgré cela, pas mal du tout...
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 17 oct. 2008 à 13:58
la totalité des codes présents dans tes modules le sont tant sur vbfrance que sur codyx.org
merci de vérifier l'existant avant de poster
ce code ne sera pas conservé
17 oct. 2008 à 13:59
Pour commencer: http://www.vbfrance.com/codes/LISTER-TOUS-FICHIERS-DOSSIER-SOUS-DOSSIERS_7876.aspx
Tu vois, ça existe! ;o)
Commentaires:
1) si tu utilises Excel 2007, enregistre ton fichier en format 2000-2003 pour des questions de compatibilité, à moins que vraiment tu ne requières des spécificités 2007.
2) implémente ton code, SVP! (d'ailleurs curieux que ce soit fait dans certains modules mais pas dans les autres)
3)'Effacement des anciennes lignes
Range(Cells(3, 1), Cells(100000, 2)).Select
pourquoi aller jusqu'à la ligne 100000???
préfères quelque chose du genre:
Dim l as Long
l = Range("A65536").End(xlUp).Row
' on peu aussi utiliser l = Range("A3").End(xlDown).Row
Range("A3:A" & l).ClearContents ' plus court a ecrire
Malgré cela, pas mal du tout...
17 oct. 2008 à 13:58
merci de vérifier l'existant avant de poster
ce code ne sera pas conservé