Discussion :

[coco1397]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

RESULTAT.index = RESULTAT.index - 1

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

Merci d'avance

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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.