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

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #2

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 26 Mars 2018

• #3

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

 

Pièces jointes

• test for each.xls

  30.5 KB · Affichages: 26

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #4

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 😉

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 26 Mars 2018

• #5

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #6

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 26 Mars 2018

• #7

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à.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #8

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)

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 26 Mars 2018

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #10

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 😉

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 27 Mars 2018

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2018

• #12

Bonsoir le fil, le forum

Ces questions resteront donc sans réponse...

Staple1600 à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 28 Mars 2018

• #13

Bonsoir,

Si

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Mars 2018

• #14

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.

 

Vote positif 0 Vote négatif