effacer definivement "0"

excelo · 2 Septembre 2009

Bonjour tout le monde,

je souhaiterai effacer definitivement les cellules à "0" sur les colonnes rouge mais je n'y arrive pas, j'ai créé un code mais il ne marche pas, quelqu'un pourrait m'éguiller?

Sub test()
Sheets("Feuil1").Select
Dim cellule As Range
For Each cellule In Range("A2:d6")
If cellule.Locked = "0" Then cellule.ClearContents
Next cellule
End Sub

Merci à tous

tototiti2008 · 2 Septembre 2009

Re : effacer definivement "0"

Bonjour excelo,

peut-être :

Code:

If cellule.Value= 0 Then cellule.ClearContents

excelo · 2 Septembre 2009

Re : effacer definivement "0"

bonjour tototiti2008, masterdisco, et les autres excelleur,

tototiti2008, ta réctif a résolu mon problème, merci beaucoup pour ton aide,
masterdisco ta formule marche nickel sauf qu'elle me supprime la cellule au lieu de l'effacer, je devrais réctifier Delete par cellule.ClearContents je pense, en tout cas merci pour ton aide.

Bon aprés midi à tous, ;-)

effacer definivement "0"

excelo

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

excelo

XLDnaute Occasionnel

Discussions similaires

effacer definivement "0"

excelo

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

excelo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency