Macro "find" avec retour multiple

Bonjour à tous,

Tout d'abord un grand merci à tous d'avoir contribué, par la richesse de vos réponses, mes notions en matière de saisi VBA.

Mon problème est le suivant: je me trouve avec deux feuilles excel, la première recense 20 noms, la seconde plus de 200.000.

Le souci est que sur celle-ci se trouve des doublons de noms. Je souhaite (simplement) pouvoir colorier en vert l'ensemble des cellules contenant les noms correspondants à ma 1ère feuille.

J'ai rédigé la macro suivante, le seul souci est que elle me colore uniquement la première cellule trouvée.

Sub test()

Dim cellule As Range

Dim a As Long

Sheets("les 20").Select

Range("d2:d304").Select

For Each cellule In Selection.Cells

Sheets("les 20").Select

cellule.Select

a = Selection.Value

Sheets("extraction").Select

Range("c2:c213951").Select

Selection.Find(a).Select

Selection.Interior.Color = vbGreen

Next

End Sub

Autodidacte en matière de rédaction de macro je m'excuse de la qualité de rédaction.

Merci par avance de votre aide

Bonjour,

Ci-joint un exemple à adapter.

Avec une "simple" mise en forme conditionnelle, sans macro (la formule dans la MFC utilise un rechercheV)

pour 200 000 lignes, le temps de calcul par Excel peut être long, dans ce cas, l'utilisation du VBA sera peut-être plus optimale

Bonne journée

Bouben

bonjour,

solution via une macro

Sub test()
    Dim cellule As Range
    Dim a, re, fa

    For Each cellule In Sheets("les 20").Range("d2:d304")

        a = cellule.Value
        Set re = Sheets("extraction").Range("c2:c213951").Find(a)
        If Not re Is Nothing Then
            fa = re.Address
            Do
                re.Interior.Color = vbGreen
                Set re = Sheets("extraction").Range("c2:c213951").FindNext(re)
            Loop Until re Is Nothing Or re.Address = fa
        End If
    Next

End Sub

waouh, merci beaucoup de votre aide et de votre réactivité, c'est très gentil à vous de partager vos connaissances.

Très bonne journée à vous