1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Macro excel

Signaler
Messages postés
2
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
30 janvier 2008
 -
Messages postés
486
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
 -
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

2 réponses

Réponse 1 / 2
Messages postés
486
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
 4
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
Réponse 2 / 2
Messages postés
486
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
 4
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
Répondre Posez votre question