Discussion :

[vally74]

Voilà, mon programme lance une userform avec un beau formulaire à remplir et il y a un bouton ajouter qui relance un bout du programme à chaque fois.
Mais je n'arrive pas à faire une boucle propre :

Code :

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

1
2
3
4
5
6
7
X :
While Ajouter = False
Wend
...
...
Ajouter = False
GoTo X

ou encore

Code :

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

1
2
3
4
5
6
7
X:
If Ajouter = True Then
...
...
End if
Ajouter = False
Goto X

où Ajouter est un booléen qui devient true quand je clique sur le bouton ajouter .
Je n'arrive pas à faire quelque chose de propre et bien fait..

[ouskel'n'or]

Il serait mieux que tu expliques pourquoi tu souhaites que ton boolean passe à true quand tu cliques sur ton bouton... Là je ne comprends pas.
Si ton bouton lance ton programme, alors laisse-le lancer le programme. Si tu appuie une seconde fois sur le bouton pendant l'exécution d'une procédure, il ne se passera rien, si c'est ce que tu crains...
Si je n'ai rien compris, alors déclare ton boolean en début de feuille de code de l'userform. Il conservera sa valeur entre deux clicks sur le bouton.
Mais évite de faire une boucle avec un goto, ça pause souvent des problèmes comme par exemple, une boucle sans fin telle que le proposent tes deux codes.
A+

[vally74]

Bonne idéé, mais dsl je suis une brêle en vb (je débute seulement).
Mais comment fait-on pour associer le bouton de l'userform à une macro "case" par exemple

Code :

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

1
2
3
Private Sub CommandButton1_Click()
??? 'lancez la macro "case"
End Sub

[vally74]

Jai trouvé c'est
Application.Run "La macro à lancer"
Merci