Macro pour supprimer des lignes vides...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide à l'écriture d'une macro afin de supprimer des lignes vides...

voir fichier

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien à vous,
Christian

 

[Pierrot93]

Re : Macro pour supprimer des lignes vides...

Bonjour,

pas tout compris, de toute façon plus rien après A305... essaye ca :

Range("A306:A1306").EntireRow.Delete

bon après midi
@+

 

[Christian0258]

Re : Macro pour supprimer des lignes vides...

Bonsoir le forum, Pierrot93,

Pierrot, merci pour ton aide, pas facile à comprendre, c'est vrai. En fait je galère avec une macro copier/coller les valeurs d'une feuille vers une autre dans même classeur, et je dois avoir des espaces insécables ce qui me copie des lignes vierges...Donc j'ai trouvé ce moyen, après essai dans la feuille destinataire si je sélectionne la dernière ligne de la base et que j'etends cette sélection de lignes et que je les supprime, je n'ai plus ce problème...

Bien amicalement.
à vous lire,
Christian

 

[Pierrot93]

Re : Macro pour supprimer des lignes vides...

Re,

une autre solution, ce code trouve la dernière ligne de la colonne A, et supprime les 1000 lignes suivantes...

Cells(Range("A65536").End(xlUp).Row + 1, 1).Resize(1000).EntireRow.Delete

 

[Christian0258]

Re : Macro pour supprimer des lignes vides...

Re, le forum, Pierrot93,

Je te remercie, Pierrot, pour ton code qui fonctionne parfaitement.

Un grand merci à toi.

Bien amicalement,
Christian