Effacer le contenu de la cellule si contient x, y ou z

Bonjour à tous,

Voilà nouveau problème, je n'arrive pas à trouver une macro qui effectue les operations suivantes :

Dans une colonne donnée (A3:A3000), si le contenu d'une cellule = x ou y ou z , alors effacer le contenu de la cellule.

J'ai trouvé des macros pour effacer les lignes completes mais pas pour seulement une cellule.

Merci d'avance.

sub toto()
for each c in thisworkbook.sheets("lenomdetonsheet").range("A3:A3000")
if c.value = "x" or c.value = "y" or c.value = "z" then
c.clearcontents
end if
next c
end sub

Bonjour,

Proposition

Sub Efface()
For Each cel in Range("A1:A3000")
If cel = "x" or cel="y" or cel ="z" then cel.ClearContents
Next cel
End Sub

Tout bon merci beaucoup à vous deux !

Rechercher des sujets similaires à "effacer contenu contient"