boucles do loop

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

Code:

---

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:

---

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

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:

---

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

---

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

Code:

---

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

---

merci babaothe
simple et efficace
bon week end