Atteindre dernières cellules

[Caninge]

Bonjour tout le monde

Une question simple mais.......rien à faire

Comment sélectionner les dernières cellules pleines
des 3 colonnes A,B,C

Et ensuite effacer le contenu de ces mêmes cellules.

Et tout ça en VBA

Merci beaucoup


CANINGE



:ermm:

 

[mutzik]

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 ...

 

[Caninge]

Bonjour Mutzik

Je te remercie

C'est bien ça que je voulais

SUPER

A bientôt

Merci

 

[myDearFriend!]

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

Cordialement,

 

[Caninge]

Bonjour Didier

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

Bien utile

Merci

CANINGE