Pas d'exécution des instructions après boucle

Bonjour,

Les instructions après ma boucle while ne sont pas exécutées. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

cpt = 1   Do While (Trim(tabValencodees(cpt)) = "" And cpt < 15)   cpt = cpt + 1   MsgBox(CStr(cpt))   Loop   MsgBox("Coucou")

---

Dans ma boucle, l'affichage de la box contenant 2, 3, 4... 15 s'effectue bien. Par contre, l'affichage de "Coucou" ne se fait pas.

Quelqu'un aurait une idée?

Merci d'avance pour votre aide.

Trouvé!

J'avais déclaré

Code:

---

Dim tabValencodees(14) As String

---

J'ai fais

Code:

---

Dim tabValencodees(15) As String

---

et tout est rentré dans l'ordre...