Macro Effacer Plage Cellules Non Vides

Résolu/Fermé
cyr301 Messages postés 11 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 25 décembre 2011 - 11 mai 2011 à 10:13
cyr301 Messages postés 11 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 25 décembre 2011 - 11 mai 2011 à 10:25
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 mai 2011 à 10:17
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 lundi 5 octobre 2009 Statut Membre Dernière intervention 25 décembre 2011
11 mai 2011 à 10:25
C'est super, ça fonctionne exactement comme je le voulais.

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

Cyr301.
0