Sortir d'une routine dans une userform

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

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:

---

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:

---

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

---

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

Bonjour,

Citation:

---

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

Citation:

---

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.

Code:

---

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:

---

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!