Problème étrange do until

Version imprimable

Bonjour,
Je ne comprends pas pourquoi le changement de place de colonne = colonne + 1 fait toute la différence.

ce code est fonctionnel !
Code:

1 2 3 4 5 6 7 8 colonne = 0 Do titres = Int(Rnd * 50) + 1 colonne = colonne + 1 titres_choisis(colonne) = titres Debug.Print titres_choisis(colonne) Loop Until colonne = "25"
celui là non, toutes les valeurs du tableau = 0 !!! :cry:
Code:

1 2 3 4 5 6 7 8 colonne = 1 Do titres = Int(Rnd * 50) + 1 titres_choisis(colonne) = titres colonne = colonne + 1 Debug.Print titres_choisis(colonne) Loop Until colonne = "25"

dans ce code

Code:

1
2
3
4
5
6
7
colonne = 1
Do
titres = Int(Rnd * 50) + 1
titres_choisis(colonne) = titres
colonne = colonne + 1
Debug.Print titres_choisis(colonne)
Loop Until colonne = "25"

Code:

1
2
colonne = colonne + 1 ' colonne = 2
Debug.Print titres_choisis(colonne)

alors la valeur de titres_choisis(colonne) vba ne la trouve pas

Code:

1
2
3
4
5
6
7
colonne = 1
Do
titres = Int(Rnd * 50) + 1
titres_choisis(colonne) = titres
colonne = colonne + 1
Debug.Print titres_choisis(colonne-1)
Loop Until colonne = 25

23/09/2010, 21h37
stmastma

En faite oublions le debug.print, dans le bon code, les valeurs aléatoires sont affectées au tableau, dans le mauvais code, rien ne lui est affecté d''après debug.print.
23/09/2010, 21h47
mercatog

Non, tu as mal compris
Les valeurs sont bien affectées de la même façon, sauf que pour le 2ème code, tu essaies de lire une valeur non encore affectée au tableau

exemple basique
Colonne=1
Titres=23
Tablo(1)=23
Colonne=Colonne+1=1+1=2
debug.print Tablo(2) !! ici encore vide