suppression ligne

[luisf]

bonjour

j'ai un petit soucis pour trouver le code pour supprimer des lignes

les lignes a supprimer sont de la ligne 8 a la derniere ligne remplie.
j'utilise le code suivant:

Sheets("tableau récapitulatif").Range("A8:L" & Range("A" & Rows.Count).End(xlUp).Row).Delete

est ce que vous voyez pourquoi sa ne fonctionne pas???


(si je remplace delete par clear sa me vide que la moitié du tableau. je ne vois pas pourquoi cela ne vide pas le tableau entier)

 

[RENAUDER]

Re : suppression ligne

Bonjour,
Chez moi ton code efface bien les lignes à partir de la 8

 

[luisf]

Re : suppression ligne

c'est bizare car chez moi il efface bien des lignes mais pas toutes.

par exemple mon tableau va de la ligne 8 a la ligne 92. il m'efface de la ligne 8 a la ligne 42. alors quand je re clique il m'en ré efface quelques unes et ainsi de suite mais il ne s'arrête pas a la dernière cellule remplie.

 

[luisf]

Re : suppression ligne

je join un fichier exemple de ce que je veux faire en feuille 2 il y a le tableau ou je veux supprimer les lignes et en feuille 1 il y a le bouton
dans ce fichier lorsque l'on clique sur le bouton sa supprime bien toute les ligne mais maintenant sa en supprime trop car sous ce tableau il y a un petit tableau avec écrit la date, visa et un nom et sa je ne veux pas que sa se supprime

c'est pour sa que dans mon code je voudrais mettre de la cellule A8 a la derniere cellule A remplie

quelqu'un a une idée???

merci

 

[tototiti2008]

Re : suppression ligne

Bonjour,

Peut-être avec :

Sheets(2).Range("A8:L" & Sheets(2).Range("A8").CurrentRegion.Rows.Count + 7).Delete