Numéro de ligne dans une boucle for each avec Array

[zephir94]

Bonsoir à tous,

Dans une boucle For each avec un array je voudrais avoir un retour dans une variable du numéro de la ligne où la valeur a été trouvé.
je pensais utiliser

 D=i.row

mais hélas pas de numéro de ligne !

For Each i In Array("1", "3","6", "12")
   D= i.Row
djj = Feuil1.Range("A65536").End(xlUp).Row + 1
Feuil1.Range("A" & djj).Value = i
Next i

Merci par avance pour vos aides

Amicalement

 

[Staple1600]

Bonsoir le fil, le forum

@zephir94
Un fichier exemple pour y voir plus clair pourrait ne pas être inutile...

 

[zephir94]

Bonsoir et merci pour ta réponse,

Je viens d'en constituer un, mais vue la question je ne pensais pas qu'il soit nécessaire d'en fournir un !

Merci par avance pour ton aide

 

[Staple1600]

Re

C'est ta question.
La logique est donc que ce soit le demandeur qui créé le fichier exemple, non ?
Et pas que N membres du forum perdent leur temps à recréer N fichiers là où un seul (celui du demandeur) suffit

 

[zephir94]

Vue sous cet angle cela ce justifie, mais je pensais malgré tout originellement que ma question était simple et que cela ne nécessitait pas un classeur.
Avec toutes mes excuses !

 

[Staple1600]

Re

Ton classeur m'a été utile.
La preuve

Sub test2()
Dim vArr(), c As Range, firstAddress$, i%
vArr = Array(1, 3, 6, 12)
With ActiveSheet.Range("A1:A100") ' à adapter selon besoin
    For i = LBound(vArr) To UBound(vArr)
        Set c = .Find(What:=vArr(i), LookAt:=xlWhole, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
            MsgBox c.Address(0, 0) & "=>" & vArr(i)
            Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    Next i
End With
End Sub

 

[zephir94]

Un grand merci à toi,

J'ai pensé à un Find mais je pensais que l'on pouvait récupérer le numéro de la ligne de la boucle For each de la valeur trouvée sans passer par un tableau virtuel et un find ?
car ma question est là.

 

[Staple1600]

Re

@zephir94
Comme on ne connait pas le contexte, ni à quoi cela peut bien servir et que le fichier Excel était un peu léger* sur les bords..
(* il ne contenait que 4 nombres dans 4 malheureuses cellules)

 

[zephir94]

J'ai besoin de connaitre ce numéro de ligne pour l'utiliser dans une variable tout simplement.

 

[Staple1600]

Re

Je récapépéte
Quelle est le contexte?
Quelle est l'utilité?

Plus l'explication est détaillée, plus aisée sera la compréhension du problème.

Maintenant libre à toi de nous en dire le moins possible, ce qui aura pour effet de dépeupler ton fil de participants

 

[zephir94]

Bonsoir et merci beaucoup pour l'aide, je me suis résigné à passer par un find et un tableau virtuel
Encore merci

 

[Staple1600]

Bonsoir le fil, le forum

Ces questions resteront donc sans réponse...

Quelle est le contexte?
Quelle est l'utilité?

 

[zephir94]

Bonsoir,

Si

J'ai besoin de connaitre ce numéro de ligne pour l'utiliser dans une variable tout simplement.

 

[Staple1600]

Bonsoir le fil, le forum

@zephir94
Très drôle.
Plus la question est détaillée, plus on peut proposer un panel de solutions possibles.
Tu préfères rester disert.
Très bien.

Pourtant ma macro est loin d'être une solution optimale.