Efface la dernière ligne

[Caninge]

Bonjour,

Le sujet est souvent repris,

J'étais fier de moi en ayant trouvé une des solutions pour effacer la dernière ligne.

Je me suis aperçu après coup qu'une des cellules n'étant pas sur la dernière ligne était effacé aussi.

Et je ne veux pas. sacrebleu!

Une modification de la macro s'avére néccessaire.

Merci d'avance.

 

[wilfried_42]

Re : Efface la dernière ligne

Bnjour caninge

en regardant ta macro, ca a confirmé ce que je pensais, des colonne n'etant pas forcement remplies, il te faut donc prendre comme reference une colonne qui n'est jamais vide

Exemple ta date colonne B

Sub efface()
dim ligne as long
ligne = range("B65536").end(xlup).row ' Mise en memoire de la derniere ligne

Range("B" & ligne).clearcontents
Range("C" & ligne).clearcontents
Range("E" & ligne).clearcontents
Range("G" & ligne).clearcontents
Range("I" & ligne).clearcontents
end sub

 

[Caninge]

Re : Efface la dernière ligne

Bonjour Wilfried,

Je viens de tester la macro, tout est ok.

Allez Saint-Etienne

A plus.

Merci.