Excel problemme de cells.find avec variable dans la recherche

sharox -  
 sharox -
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   Statut Membre Dernière intervention   526
 
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
 
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   Statut Membre Dernière intervention   526
 
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
 
Merci bien pour ton aide :)
0