Le mystère de la Boucle For Each

Bonjour à tous,

En préambule, je précise que je n'ai pas de problème à résoudre, j'ai une solution qui fonctionne, mais j'aimerais soumettre le problème suivant à votre sagacité.

Dans un code que je viens d'écrire j'avais une première version qui lit le contenu d'une feuille avec une boucle For Each (ligne). Ma feuille de test contient 8 lignes. L'objectif est de lire 3 critères par ligne pour déterminer la nature de la ligne. La boucle For Each lit bien les données jusqu'à la ligne 4 puis ne trouve plus les informations. J'ai modifié mon code pour faire un For avec un compteur et là tout se passe bien. Ci-dessous les deux codes de test et le résultat de la console.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Set wbkNewedge = Workbooks.Open(strFileName) Set rgeDataNewedge = wbkNewedge.Sheets(1).Cells(1, 1).CurrentRegion   Debug.Print "Adresse de la plage = " & rgeDataNewedge.Address     ' NOUVEAU 06/11/2017 ' A chaque ligne du fichier NE ' on regarde si c'est une transaction, une position ou une valo ' on écrit dans la colonne 2 le résultat   Debug.Print "======== Boucle For Compteur Next =======" For i = 1 To rgeDataNewedge.Rows.Count Debug.Print "Ligne : " & i & " -> " & rgeDataNewedge.Cells(i, 2).Value & " " & rgeDataNewedge.Cells(i, 4).Value & " " & rgeDataNewedge.Cells(i, 117).Value Next i Debug.Print vbCrLf Debug.Print "======== Boucle For Each Next ===========" For Each rgeRow In rgeDataNewedge.Rows Debug.Print "Ligne : " & rgeRow.Row & " -> " & rgeRow.Cells(rgeRow.Row, 2) & " " & rgeRow.Cells(rgeRow.Row, 4) & " " & rgeRow.Cells(rgeRow.Row, 117) ' If ValueOfType(strType, rgeRow) Then ' rgeRow.Cells(rgeRow.Row, 2).Value = strType ' End If Next rgeRow

---

Adresse de la plage = $A$1:$DN$8
======== Boucle For Compteur Next =======
Ligne : 1 -> Message Type Lifecycle Event Eulite Level
Ligne : 2 -> Trade State New T
Ligne : 3 -> Trade State New T
Ligne : 4 -> Trade State New T
Ligne : 5 -> Trade State New T
Ligne : 6 -> Trade State New T
Ligne : 7 -> Trade State New T
Ligne : 8 -> Trade State Modify P


======== Boucle For Each Next ===========
Ligne : 1 -> Message Type Lifecycle Event Eulite Level
Ligne : 2 -> Trade State New T
Ligne : 3 -> Trade State New T
Ligne : 4 -> Trade State New T
Ligne : 5 ->
Ligne : 6 ->
Ligne : 7 ->
Ligne : 8 ->

C'est le grand mystère mystérieux de la semaine... Quelqu'un aurait il une idée de ce qui cloche ? Par avance, je précise que nous avons passé le classeur source au crible et que les données semblent absolument kasher...

Merci par avance pour votre temps et vos réponses.

Guillaume.

Bonjour Golonn,

Comment est déclaré rgeRow ?!?
Si pas déclaré elle est de type "Row". Car utilisée pour boucler sur une collection de row (rows).
En réalité le type Row n'existe pas et il s'agit en fait d'un type Range de dimension (1,n).

rgeRow.cells(a,b) avec a>1 provoque donc des confusions (Voir le comportement de .Cells(a,b) en fonction du Range devant et des paramètres a et b).

Test avec ce code :

Code:

---

1 2 3

For Each rgeRow In rgeDataNewedge.Rows Debug.Print "Ligne : " & rgeRow.Row & " -> " & rgeRow.Cells(2) & " " & rgeRow.Cells(4) & " " & rgeRow.Cells(117) Next rgeRow

---

Un petit test à faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim ObjRange Debug.Print "Boucle sur les cellules" For Each ObjRange In Range("A1:B2") Debug.Print ObjRange.Address Next Debug.Print "Boucle sur les lignes" For Each ObjRange In Range("A1:B2").Rows Debug.Print ObjRange.Address Next Debug.Print "Boucle sur les lignes avec .cells(3,3)" For Each ObjRange In Range("A1:B2").Rows Debug.Print ObjRange.Cells(3, 3).Address Next End Sub

---

La troisième boucle affiche des adresses hors des lignes sur lesquelles on boucle.

BONSOIR

regarde bien ta 1 ere boucle et regarde quel parent j'utilise
dans la 2d boucle aussi regarde bien le parent
et il faut faire pareil pour les colonnes mais n'en sachant pas plus ???8O????

en effet
rgeDataNewedge.cells(x,4) n'est pas pareil que rgeDataNewedge.parent.cells(x,4)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Set wbkNewedge = Workbooks.Open(strFileName) Set lesheet = wbkNewedge.Sheets(1) Set rgeDataNewedge = lesheet.Cells(1, 1).CurrentRegion Debug.Print "Adresse de la plage = " & rgeDataNewedge.Address   ' NOUVEAU 06/11/2017 ' A chaque ligne du fichier NE ' on regarde si c'est une transaction, une position ou une valo ' on écrit dans la colonne 2 le résultat Debug.Print "======== Boucle For Compteur Next =======" 'ATTENTION ICI LA VARIABLE I INCREMENTEE REPRESNTE PAS FORCEMENT L INDEX DE LIGNE SAUF SI L ON COMMENCE EN LIGNE 1 For i = 1 To rgeDataNewedge.Rows.Count Debug.Print "Ligne : " & i & " -> " & lesheet.Cells(rgeDataNewedge.Rows(i), 2).Value & " " & lesheet.Cells(rgeDataNewedge.Rows(i), 4).Value & " " & lesheet.Cells(rgeDataNewedge.Rows(i), 117).Value Next i Debug.Print vbCrLf Debug.Print "======== Boucle For Each Next ==========="   For Each rgeRow In rgeDataNewedge.Rows   Debug.Print "Ligne : " & rgeRow.Row & " -> " & lesheet.Cells(rgeRow.Row, 2) & " " & lesheet.Cells(rgeRow.Row, 4) & " " & lesheet.Cells(rgeRow.Row, 117) ' If ValueOfType(strType, rgeRow) Then ' rgeRow.Cells(rgeRow.Row, 2).Value = strType ' End If Next rgeRow

---

En fait ObjetRange.cells(x,y) fait toujours la même chose.
On part de la cellule en haut à gauche de l'objetRange puis on descend de x ligne(s) de décale a droite de y colonne(s) (x>=0 et y>=0). Le résultat est un Range d'une seule cellule.

Si on utilise ObjetWorksheet.Cells(x,y) (comme l'indique Patrick avec ObjRange.Parent.Cells(x,y)) on fait on utilise un range qui fait toute la feuille ObjetWorkSheet (qui commence toujours en A1).
Pour moi c'est la même chose modulo un changement de TopLeftCell.


Il faut simplement comprendre que le plus important, lorsqu'on utilise .Cells(x,y), c'est la TopLeftCell du range spécifié et que le résultat sera un Range d'une seule cellule. Contrairement à Offset qui décale de x ligne(s) et y colonne(s) (avec x et y pouvant être négatifs) mais conserve la dimension du Range.


En résumé pas de mystère dans ta boucle juste une confusion dans l'utilisation de .Cells(,).
En changeant les données de ta feuille tu pourras même constaté que le résultat de la fenêtre d'exécution n'est pas celui escompté (décalage de ligne(s)). La boucle ne s'arrête pas après la ligne 4 mais renvoi des données sous la ligne 8 qui sont vides.

Bonjour,

Citation:

---

On part de la cellule en haut à gauche de l'objetRange puis on descend de x ligne(s) de décale a droite de y colonne(s) (x>=0 et y>=0).

---

Pas tout à fait.
.Cells(x,y) donne la cellule de coordonnées (x,y), la grille partant de la cellule haut-gauche de coordonnées (1,1).
En l'absence d'expression devant c'est la feuille qui est prise en compte, ce qu'on fait habituellement.
Pour être précis c'est donc un offset(x-1,y-1)
eric

@eriiic

C'est exactement ce que j'ai écris.

Première ligne de mon précédent post c'est dans le cas d'un Range devant.
Deuxième ligne c'est dans le cas d'un Worksheet devant. Je n'ai juste pas précisé qu'en l'absent d'objet devant Cells(,xy) c'est ActiveSheet qui est pris en compte et comme je l'indique, la TopLeftCell d'une feuille est toujours A1.

Bonjour
ce que j'ai essayé d'expliquer est tout simplement d'éviter l'utilisation de objetrange.cells(x,y)

mais plutôt objectsheet.range(x,y)

pour la simple et bonne raison et ne me demandez pas pourquoi je n'ai jamais trouvé la réponse que objectrange.cells(x,y) donne sur certaines installation des résultats surprenants

tandis que si l 'on fait objectrange.cells(x) ca fonctionne x étant la NEmme cellule de la plage

c'est pourquoi l'écriture par le parent (sheets) est plus sur

Citation:

---

@eriiic
C'est exactement ce que j'ai écris.

---

Tu as écris : puis on descend de x ligne(s) de décale a droite de y colonne(s)
C'est : on descend de x-1 ligne(s) de décale a droite de y-1 colonne(s).
Pas bien grave en soit, mais dans l'absolu ce n'est pas équivalent à offset. Simple soucis de précision.

Mea culpa, Tu as raison eriiic.

Pardon pour cette erreur :?

Citation:

---

Envoyé par antonysansh

Bonjour Golonn,

Comment est déclaré rgeRow ?!?

---

Bonjour antonysansh,

Tout d'abord merci pour ta réponse . rgeRow est déclaré comme un Range dans mon. Ton code qui appelle Cells(x) fonctionne parfaitement et lit bien toutes les données.

Pour résumer si j'ai bien compris :

On ne doit pas appeler .Cells(x,y) sur un ObjetRange : cela génère une confusion car le résultat est un range d'une cellule et .cells(x,y) réagit comme Offset. On appelle plutôt la feuille.

Merci également à patricktoulon (toujours disponible !) et à eriiic pour vos contributions et précisions. J'adore ce forum pour ce genre de réponses précises, expertes et détaillées.

Guillaume, qui va se coucher moins bête ce soir...:ccool:

Bonjour à tous
Traiter tout simplement les choses (quelles qu'elles soient) comme des ensembles et leurs sous-ensembles.
Il est alors aisé de comprendre que la position d'un élément dans un ensemble est déterminée par rapport à une origine de l'ensemble et que la position d'un élément dans un sous-ensemble est déterminée par rapport à une origine dans ce sous-ensemble.
Si l'on spécifie le sous-ensemble -->> ce sera par rapport à ce sous-ensemble-là.

Citation:

---

On ne doit pas appeler .Cells(x,y) sur un ObjetRange

---

Mais si tu peux, c'est prévu pour.
Personnellement je n'ai jamais eu de soucis avec.
Il n'y confusion que si tu as mal assimilé le principe.
.cells(x,y) se réfère à ta plage (qui est le plus souvent la feuille entière, mais pas que...)
Si tu as une plage 3x3 au milieu de ta feuille, et bien ta_plage.cells(2,2) sera la cellule au centre de cette plage 3x3.

perso je prefere tout recuper dans un tablo et faire ma tambouille puis apres le resultat voulu le transposer le tablo dans les cellules
ca va plus vite...

Bonjour GESCOM2000
Comme beaucoup d'entre nous (chaque fois que possible)
Mais mécanisme inadapté lorsque la plage à traiter (qu'elle soit la source ou la destination) n'est pas continue. ;)