Macro Effacer Plage Cellules Non Vides

Résolu
cyr301 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
cyr301 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je viens de créer un tableau sous Excel avec une colonne où je peux entrer des quantités. Le nombre de lignes est sujet à évoluer...

Je souhaite créer une macro reliée à un bouton sur ma feuille qui me permette d'effacer toutes les valeurs de la plage de cellules non vides de la colonne.

J'ai essayé cette macro qui ne fonctionne pas vraiment:

Sub RàZ()

Range("C3", Range("C3").End(xlDown)).Select

Selection.ClearContents

End Sub


En effet si ma colonne contient plusieurs valeurs non contigües, je dois cliquer sur mon bouton autant de fois que la colonne a de valeurs. Ce n'est pas pratique, c'est pourquoi je viens vous demander de l'aide...

Merci d'avance.

Cyr301.


2 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
Au lieu de passer par le haut et descendre (Range("C3").End(xlDown)) essayez de passer par le bas et remonter :
Range("C3", Range("C65536").End(xlUp)).ClearContents

Au passage, un pitit conseil : évitez les .Select qui ne sont ici (et en général) pas utiles.
1
cyr301 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
C'est super, ça fonctionne exactement comme je le voulais.

Merci beaucoup Pikaju pour ta rapidité et ton efficacité.

Cyr301.
0