Effacement conditionnelle d'une cellule

[geckotokai]

Excel 2003
VBA 6.3

Bonjour, je suis en train de faire une macro sous excel et j'ai deux soucis donc je vais en exposer un dans ce post et l'autre dans un autre post.
J'ai recherché longuement sur le net et les archives mais je n'ai pas trouvé la solution.

Donc voilà, j'ai des données numériques de A1 à C50, certaines des cellules contiennent la valeur 0. Je souhaiterais savoir quel code utiliser pour effacer le contenu des cellules lorsque celles-ci contiennent la valeur "0" (vraiment effacer, pas de la manière mettre la police en blanc).

Merci beaucoup de votre aide et pensez à regarder mon second post 😉.

 

[Staple1600]

Re : Effacement conditionnelle d'une cellule

Bonjour

sub test_i()
For each cell in Range("A1:C50")
If cell=0 then
cell.clearcontents
end if
Next
end sub

Un petite question
Pourquoi cela bug ainsi ?

[COLOR=SlateGray]Sub test()
Dim cell As Range
For Each cell In Range("a1:c50")
cell.Value = IIf(cell.Value = 0, cell.ClearContents, cell.Value)
Next
End Sub[/COLOR]

EDITION : merci pierrejean

Sub test_ii()' (test ok)
Dim cell As Range
For Each cell In Range("a1:c50")
cell.Value = _
IIf(cell.Value = 0, vbNullString, cell.Value)
Next
End Sub

 

[pierrejean]

Re : Effacement conditionnelle d'une cellule

bonjour geckotokai

et bienvenue sur XLD

A tester:

for each cel in range("A1:C50")
  if cel.value=0 then cel.value=""
next cel

Edit Salut Staple

 

[Staple1600]

Re : Effacement conditionnelle d'une cellule

Bonjour pierrejean

Peux-tu me dire pourquoi le code avec Iif ne fonctionne pas, stp?

(voir dans mon premier message)

 

[geckotokai]

Re : Effacement conditionnelle d'une cellule

Merci beaucoup de vos réponses rapides et précises. Le code de pierrejean fonctionne parfaitement. Je me présenterai bientôt dans la bonne section.

Ce site m'a déjà beaucoup et semble une vraie mine d'or.
Encore merci.

 

[pierrejean]

Re : Effacement conditionnelle d'une cellule

Re

Parceque cell.clearcontents est une action et non une valeur

Teste plutot:

Sub test()
Dim cell As Range
For Each cell In Range("a1:c50")
cell.Value = IIf(cell.Value = 0,[COLOR=blue] ""[/COLOR][COLOR=black],[/COLOR] cell.Value)
Next
End Sub