Rechercher et effacer le contenu d'une cellule si égale à une autre

Bonjour à tous,

Je débute fraichement en VBA et j'ai vraiment du mal, c'est pour cela que je sollicite votre aide.

Concrètement, j'ai une valeur dans la cellule A20 et je souhaite effacer le contenu de toutes les cellules ayant une valeur identique, entre A1 et A10...

Rien de bien compliqué pour les experts du VBA mais moi je coince.

Merci d'avance pour votre aide précieuse!

Bonjour

Concrètement, j'ai une valeur dans la cellule A20 et je souhaite effacer le contenu de toutes les cellules ayant une valeur identique, entre A1 et A10...

Un code du genre ?

Sub test()
Dim i As Byte
For i = 1 To 10
    If Range("A" & i).Value = Range("A20").Value Then Range("A" & i).ClearContents
Next i
End Sub

Cordialement

Bonjour Dan,

Merci à toi, exactement ce qu'il me fallait!

Parfait.