effacer definivement "0"

[excelo]

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]

Re : effacer definivement "0"

Bonjour excelo,

peut-être :

If cellule.Value= 0 Then cellule.ClearContents

 

[excelo]

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, ;-)