Discussion :

[dubitoph]

Bonjour,

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

Code :

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

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.

[dubitoph]

Trouvé!

J'avais déclaré

Code :

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

Dim tabValencodees(14) As String

J'ai fais

Code :

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

Dim tabValencodees(15) As String

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