Recherche

Bonjour,

J'utilise cette fonction, mais je ne connais pas le nombre de cellule identique, pouvez vous me dire ce qu'il faut ajouter pour avoir les adresses de toute les cellules concernées. J'ai la première et la dernière, mais il me manque les intermédiaires.

With Worksheets(1).Range("a1:a500")

Set c = .Find("aaaa", lookin:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

xxxxxxxxx

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

merci de votre colaboration

bonjour,

une proposition

 With Worksheets(1).Range("a1:a500")
        Set c = .Find("aaaa", LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                ' xxxxxxxxx
                la = la & c.Address & ","
                Set c = .FindNext(c)
            Loop Until c.Address = firstAddress
            la = Left(la, Len(la) - 1)
        End If
    End With
    MsgBox la