Macro Effacer Plage Cellules Non Vides
Résolu
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:
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.
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
-
ModérateurBonjour,
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.
-
C'est super, ça fonctionne exactement comme je le voulais.
Merci beaucoup Pikaju pour ta rapidité et ton efficacité.
Cyr301.
