Changer l'index du For Each

Bonjour,

J'ai une boucle For Each qui démarre de cette manière:

Code:

---

1 2 3

For Each RESULTAT In resultatList.ListRows   Next RESULTAT

---

J'aimerais dans une certaine situation de reculer l'index. J'ai essayé de faire un truc comme ceci mais ça me met une erreur:

Code:

---

RESULTAT.index = RESULTAT.index - 1

---

Est-ce que quelqu'un peut m'aider ?

Merci d'avance :D

Bonjour,
Plutôt que de faire une boucle For Each, tu peux faire une boucle For :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer 'Les index des Listbox commencent par zéro For i = 0 To ListBox1.ListCount - 1 'Debug.Print ListBox1.List(i) Next i End Sub

---

(tiré du tuto de silkyroad)
Ensuite, reculer l'index, c'est équivalent à échanger i avec i-1 (en faisant attention à ce que i-1>=0). Avec ListBox1.List(i), tu travailles sur les valeurs dans la liste. Je te laisse chercher comment échanger la valeur n° i avec la valeur n° i-1, puis montre nous le code obtenu ;)
Indice : passe par une variable intermediaire.
PS : je ne crois pas que la propriété index existe ... A vérifier.

La boucle For Each, c'est du bronze.
On n'a la main sur presque rien : si l'ordre de scrutation, ni la valeur de la variable incrémentée.

Comme dit riaolle, la boucle For To permet plus de fantaisie. D'autant plus qu'on manipule un nombre sur lequel on peut faire pas mal d'opérations.
A ma connaissance, tout ce qui peut se faire avec For Each peut aussi se faire avec For To.
C'est un peu moins joli mais souvent plus pratique dès qu'on sort du cadre standard.