Discussion :

[xuorel]

Bonsoir,

voici mon problème:

j'ai créé une userform avec 5 contrôles :
- 1 textbox contenant le nom d'une personne
- 1 combobox contenant le mois à traiter
- 1 combobox contenant l'année à traiter.
- 1 bouton Ok
- un bouton ANNULER qui décharge le userform

les 3 valeurs sont enregistrées dans 3 cellules A1:A3 dans une feuilles "Data". Ces valeurs sont ensuite utilisées dans des variables.

Le lancement de cette userform se fait via ma routine principale.

Le problème est que lorsque j'utilise le bouton ANNULER de l'userform, la routine principale plante puisque les variables qui sont censées utiliser les valeurs des contrôles ne trouvent rien.

Comment résoudre ce problème ? Existe-t-il un moyen d'insérer dans le code du bouton annuler de mettre fin en même temps à ma routine principale ?

Merci

[Philippe Tulliez]

Bonjour,
Ton explication ne semble pas correspondre au titre de ta discussion car il me semble que tu veux plutôt sortir de ta procédure principale qui appelle le UserForm si l'utilisateur à cliqué sur le bouton Cancel mais que le programme doit continuer si l'on a cliqué sur OK.
Si c'est bien ce que j'ai compris, voici une solution parmi d'autres.
On déclare publique une variable booléenne nommée flagProcess qui va permettre si elle est à False de quitter le programme.
Le programme doit impérativement commencer par la procédure Main
Dans le module principal, une procédure nommée Main invoque le UserForm et si l'on clique sur Cancel, on quitte la procédure et sinon on continue.
Code du module pricncipal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Public flagProcess As Boolean
Sub Main()
 UserForm1.Show
 If Not (flagProcess) Then Exit Sub
 Process1
End Sub
 
Sub Process1()
 MsgBox "Hello"
End Sub

Code du USerForm

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Private Sub cmdCancel_Click()
 Unload Me
End Sub
Private Sub cmdOk_Click()
 flagProcess = True
 Unload Me
End Sub

[xuorel]

C'est dans l'idée de ce que je veux faire. Je complète par deux question :

- pourquoi la procédure doit s'appeler main ? Ne peut-on pas imaginer le même type de cas de figure dans une procédure ne s'appelant pas main ?

- de manière générale, si on a une procédure (sub_mere) qui durant son exécution lance une autre procédure (sub_fille). Est-il possible dans la procédure fille d'agir sur la procédure mère (en la quittant par exemple). On revient grosso modo au cas que tu décris avec une userform. Mais si on a plusieurs procédures dans lequel on à cette situation, comment gérer puisqu'il visiblement la procédure doit s'appeler main (donc il ne peut y en avoir qu'une) ?

merci

[Philippe Tulliez]

Bonjour,

pourquoi la procédure doit s'appeler main ? Ne peut-on pas imaginer le même type de cas de figure dans une procédure ne s'appelant pas mai

Tu nommes ta procédure comme tu l'entends. Moi je commence toutes mes applications par une procédure nommée Main ou MainNomAppli

de manière générale, si on a une procédure (sub_mere) qui durant son exécution lance une autre procédure (sub_fille). Est-il possible dans la procédure fille d'agir sur la procédure mère (en la quittant par exemple). On revient grosso modo au cas que tu décris avec une userform. Mais si on a plusieurs procédures dans lequel on à cette situation, comment gérer puisqu'il visiblement la procédure doit s'appeler main

La procédure "Mère" peut bien entendu appeler des procédures "Filles" et en retour d'une procédure "fille" quitter la procédure "mère".
On quitte une procédure par un Exit Sub et on peut utiliser un flag (variable booléenne ou fonction qui renvoie un booléen) pour savoir si l'on continue ou pas.

[Invité]

Code Module standard :

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

1
2
3
4
5
6
Sub Test()
UserForm1.Show
If UserForm1.FinTraitement = True Then Unload UserForm1: Exit Sub
MsgBox UserForm1.TextBox1.Text & " : " & UserForm1.TextBox2.Text
Unload UserForm1
End Sub

Code UserForm1 :

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

1
2
3
4
5
6
7
8
9
10
Public FinTraitement As Boolean
Private Sub Valider_Click()
FinTraitement = False
Me.Hide
End Sub
 
Private Sub Annuler_Click()
FinTraitement = True
Me.Hide
End Sub

désolé Philippe j'avais pas vue que tu avais dit la même chose!