macro excel

Question

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

ManuAntibes · Answer

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

ManuAntibes · Answer

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

Macro excel

2 réponses

Votre réponse

Discussions similaires