Discussion :

[alsimbad]

Bonjour tout le monde
je ne parviens pas a régler une boucle do loop que je voudrais récursive

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub jeu()
tirages234 (2)
End Sub
 
Sub tirages234(colonne As Integer)
MsgBox "execution" & colonne
Do until colonne = 4
colonne = colonne + 1
tirages234 (colonne)
 
Loop
End Sub

je souhaiterais simplement la premiere instance execution 2 puis 3 et 4 et sortir
or je n'y parviens pas il se produit toujour une rééxecution du 4 ou si j'essaye while<5 until colonne = 3 ou meme si j'utilise

Code :

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

1
2
3
4
5
 
do
...
if colonne=4 exit do
loop

j'ai du rater un épisode sur les boucles
si qqun peut m'aider, merci d'avance

[alsimbad]

bon, j'ai résolu mon probleme en changeant de méthode, j'ai mis la boucle dans la procedure d'appel, mais j'aurais bien aimer faire une récursive, je ne comprend pas bien ou est le soucis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub jeu()
colonne = 1
'premiertirage (1)
Do
colonne = colonne + 1
tirages234 (colonne)
Loop Until colonne = 4
End Sub
 
Sub tirages234(colonne As Integer)
 MsgBox "execution" & colonne
 End Sub

[babaothe]

salut,
la récursivité est autre chose et peut s'exprimer ainsi (exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub jeu()
  tirages234 (2)
End Sub
 
Private Function tirages234(colonne As Integer) As String
  If colonne > 4 Then Exit Function
  MsgBox "execution" & colonne
  colonne = colonne + 1
  tirages234 (colonne)
End Function

[alsimbad]

merci babaothe
simple et efficace
bon week end