Excel problemme de cells.find avec variable dans la recherche
sharox
-
sharox -
sharox -
Bonjour, a tous
Donc je vous explique mon problème,
j'ai :
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
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
1 réponse
-
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+-
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 -
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+ -
-
