Excel vba methode find
damd
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
23 juil. 2004 à 09:21
chaudier37 Messages postés 209 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 15 juillet 2009 - 1 sept. 2008 à 18:54
chaudier37 Messages postés 209 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 15 juillet 2009 - 1 sept. 2008 à 18:54
1 réponse
chaudier37
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
1 sept. 2008 à 18:54
1 sept. 2008 à 18:54
bonjour
Set recherche = Columns("A").Find(ref)
la colonne A est l'adresse dans laquelle chercher la variable ref
si il faut chercher votre variable dans la colonne d il faut mettre D. etc.
ref est la variable à chercher. cela peut être un chiffre ou autre.
If Not recherche Is Nothing Then 'trouvé
une fois que le programme a trouvé la lgine de la variable cherché il faut mettre ce que l'on veut : dans ce cas là on demande au programme d'aditionner dans la colonne E sur la ligne où se trouve la variable 1 à la valeur qui se trouve dans la colonne E.
Sheets("Feuil1").Range("E" & recherche.Row) = Sheets("Feuil1").Range("E" & recherche.Row) + 1
End If
j'espère que j'ai été assez explicite.
Set recherche = Columns("A").Find(ref)
la colonne A est l'adresse dans laquelle chercher la variable ref
si il faut chercher votre variable dans la colonne d il faut mettre D. etc.
ref est la variable à chercher. cela peut être un chiffre ou autre.
If Not recherche Is Nothing Then 'trouvé
une fois que le programme a trouvé la lgine de la variable cherché il faut mettre ce que l'on veut : dans ce cas là on demande au programme d'aditionner dans la colonne E sur la ligne où se trouve la variable 1 à la valeur qui se trouve dans la colonne E.
Sheets("Feuil1").Range("E" & recherche.Row) = Sheets("Feuil1").Range("E" & recherche.Row) + 1
End If
j'espère que j'ai été assez explicite.
