Macro Effacer Plage Cellules Non Vides Résolu/Fermé

Question

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.


Configuration: Windows Vista / Firefox 4.0.1

pijaku · Answer

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.

cyr301 · Answer

C'est super, ça fonctionne exactement comme je le voulais. 

Merci beaucoup Pikaju pour ta rapidité et ton efficacité.

Cyr301.

Macro Effacer Plage Cellules Non Vides

2 réponses

Discussions similaires