Je sais faire une boucle ou i devient 0,1,2,3,4 ou 0,2,3,4 mais si je veux 0,5,9 [Résolu]

Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
- - Dernière réponse : karn2
Messages postés
16
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
3 août 2008
- 3 août 2008 à 14:37
Je sais faire une boucle ou i devient 0,1,2,3,4 ou 0,2,3,4 mais si je veux 0 puis 5 puis 9 puis 3 etc comment je dois faire??? je veux que i prenne les valeurs d'une liste en fait??

Comment dois-je m'y prendre pour que ce soit fait proprement.

voilà mon bout de progr

  For i = 0 To 7
   
......

  Next i
 

et moi j'aimerai un truc du style:

for i = 2 puis 7 puis15 puis3 puis 2

..........

next i
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
16
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
3 août 2008
3
Merci
Désolé le code que j'ai écrit  est en VB.net, j'avais pas vu que tu voulais un code en VB6. Je n'ai plus programmé en VB6 depuis un bon moment mais ceci devrait fonctionner (testé sous excel ):

Dim i As Integer
Dim liste As Variant
liste = Array(0, 5, 9, 3, 7, 8, 7, 1, 4, 2)

For i = 0 To UBound(liste)
    MsgBox (liste(i))
Next
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de karn2
Messages postés
306
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
15 février 2016
3
Merci
Ah mince, même erreur, moi non plu j'ai pas programmé en vb6 depuis un moment du coup j'ai repris ta syntaxe....

K@zuya

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de K@zuya
Messages postés
284
Date d'inscription
mardi 22 août 2006
Statut
Membre
Dernière intervention
21 décembre 2010
0
Merci
Tu Fais commsa:

For i = 1 to 10 Step 3
msgbox I
next i

Step sa sert pour sautter ;)

tu peu mem fair:

For i = 10 to 0 Step -1
msgbox i
next i

Technologie Reacen²
Commenter la réponse de Reacen
Messages postés
16
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
3 août 2008
0
Merci
Salut,
je ferais quelque chose comme ça :

Dim liste As Integer() = {0, 5, 9, 3, 7, 8, 7, 1, 4, 2}

For i As Integer = 0 To liste.Length - 1
    MsgBox(liste(i))
Next
Commenter la réponse de karn2
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008
0
Merci
karn 2 j'arrive pas à utiliser le bout de code, voudrais tu me faire un petit exemple de code à mettr à la place de ça??? merci

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
Label1 = i
DoEvents
Sleep 200
Next i
End Sub
Commenter la réponse de zwarul
Messages postés
306
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
15 février 2016
0
Merci
Private Sub Command1_Click()
Dim liste As Integer() = {0, 5, 9, 3, 7, 8, 7, 1, 4, 2}
For j As Integer = 0 To liste.Length - 1
i = liste(j)
Label1 = i
DoEvents
Sleep 200
Next
End Sub

K@zuya
Commenter la réponse de K@zuya
Messages postés
16
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
3 août 2008
0
Merci
Heureusement que j'ai encore Excel 2003 ^^
Commenter la réponse de karn2