bonjour

je cherche a creer une macro  dans laquelle je dois
recuperer la valeur d une cellule
ouvrir une recherche
y mettre la valeur de ma cellule
et valider la recherche

arno

Salut

Voici un exemple de code que je me sers souvent pour faire des recherches dans les feuilles excel avec une macro.
Tape "find" dans la page de macro et appuie F1

Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 dans la feuille de calcul Worksheet 1 contenant la valeur 2 et comment la remplacer par la valeur 5.

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If







End With






A+



MANUANTIBES

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

MANUANTIBES