Atteindre dernières cellules

mutzik

XLDnaute Barbatruc

• 25 Septembre 2005

• #2

Bonsoir Caninge, le forum

voici le code

sub effacer()
Range('a' & Range('a65536').End(xlUp).Row).ClearContents
Range('b' & Range('b65536').End(xlUp).Row).ClearContents
Range('c' & Range('c65536').End(xlUp).Row).ClearContents
end sub

tu colles tout cela dans un module et hop ...

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 25 Septembre 2005

• #3

Bonjour Mutzik

Je te remercie

C'est bien ça que je voulais

SUPER

A bientôt

Merci

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 26 Septembre 2005

• #4

Bonsoir Mutzik, Caninge,

Désolé d'intervenir dans ce fil, mais en plus simple ça donne :

Sub effacer()
      Range('a65536').End(xlUp).ClearContents
      Range('b65536').End(xlUp).ClearContents
      Range('c65536').End(xlUp).ClearContents
End Sub

Cliquez pour agrandir...

Cordialement,

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 27 Septembre 2005

• #5

Bonjour Didier

Avec un peu de retard je prends connaissance de ta réponse:

Bien utile

Merci

CANINGE

 

Vote positif 0 Vote négatif