chercher et effacer cellule

[meldja]

Bonjour,
Je cherche à effacer le contenu d'une cellule selon un critère qui se trouve dans une liste déroulante en cellule C3.
J'ai donc essayé d'adapter des codes que j'ai trouvés sur le Net mais ça ne marche pas.
Voici le code en question :

Private Sub CommandButton3_Click()
'déclaration de la cellule dans laquelle se trouve le critère (du texte)
Dim Nom As String
Nom = Range("C3").Value

'Recherche de la cellule comprise entre H2 et H210 correspondant au critère
For Each Cellule In Range("H2:H210")
If Cellule.Value = Nom Then
'Nettoyage de la cellule
Cellule.ClearContents
End If
Next
End Sub

Merci d'avance pour vos lumières

 

[porcinet82]

Re : chercher et effacer cellule

Salut,

Je ne vois pas ou se situe le problème, chez moi ton code fonctionne parfaitement.
Peut etre qu'un bout de ton fichier nous aiderai davantage.

@+

 

[Temjeh]

Re : chercher et effacer cellule

Bonjour bizzarre chez moi y fonctionne pas!

Ptêtre ceci qui fonctionne:

For i = 2 To 210
    If Range("H" & i).Value = Range("C1").Value Then Range("H" & i).ClearContents
Next i

A++

Temjeh

 

[meldja]

Re : chercher et effacer cellule

Merci pour ta réponse.
Désolé, effectivement il n'y a pas de problème ; je mettais planté de réf de cellule, du coup il ne pouvait pas trouver de cellule répondant au critère.
Encore désolé d'avoir encombrer le forum pour rien et bonne journée.