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:

Excel problemme de cells.find avec variable dans la recherche
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Si et excel - Guide
Comment calculer la moyenne sur excel - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide

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 523
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+

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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
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+

sharox
18 nov. 2013 à 14:10

Merci bien pour ton aide :)

Discussions similaires

[référencement] Ne pas être référencé

Discussions similaires

Newsletters