Sujet Précédent Sujet Suivant

Excel problemme de cells.find avec variable dans la recherche

Fermé
sharox - 18 nov. 2013 à 12:16
 sharox - 18 nov. 2013 à 14:10
Bonjour, a tous
Donc je vous explique mon problème,
j'ai : 

Dim i As Integer

For i = 1 To 4 Step 1

Set toto = Worksheets("Feuil1").Range("A1:A10").Find(.........., LookIn:=xlValues)

If Not toto Is Nothing Then MsgBox "trouvé en ligne " & toto.Row

Next

et je voudrait que a la place des ........ il y ait quelque chose du genre :
Find (Range("i;G")


pour que ca me recherche dans la plage choisit les cellules identiques a la G1; G2; G3 et G4
mais je ne voi pas comment faire

Merci
Cordialement
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
18 nov. 2013 à 12:50
Bonjour, 

Dim i As Integer

    For i = 1 To 4 Step 1

        Set toto = Worksheets("Feuil1").Range("A1:A10").Find(Range("G" & i), , xlValues, xlWhole)

        If Not toto Is Nothing Then MsgBox Range("G" & i) & " trouvé en ligne " & toto.Row

    Next

A+
0
sharox
18 nov. 2013 à 13:21
Merci beaucoup !!
ca fonctionne

Et j'ai juste un petite question après ceci,
donc il trouve par exemple le mot "mot_cherche" en cellule "A9" je voudrait qu'il copie la cellule "G9"
et que ca soit toujours dans ma boucle
et ainsi de suite pour le deuxième mot trouvé en "A85" ont copie la cellule "G85"

cordialement
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
18 nov. 2013 à 14:00
Dans ton code, la cellule trouvée correspond à la variable "toto".
Il te suffit donc de copier cette variable.
Exemple avec une copie en colonne K. 
Dim i As Integer

Dim toto As Range

    For i = 1 To 4

        Set toto = Worksheets("Feuil1").Range("A1:A10").Find(Range("G" & i), , xlValues, xlWhole)

        If Not toto Is Nothing Then toto.Copy Cells(toto.Row, "K")

    Next:

A+
0
sharox
18 nov. 2013 à 14:10
Merci bien pour ton aide :)
0