Renvoi à une macro des valeurs saisies dans un userform

Bonjour
J'ai une macro VBA qui fait un certain nombre de choses. J'ai construit un formulaire Userform pour demander à l'utilisateur des valeurs (cases à cocher principalement). J'ai bien trouvé comment appeler le userform (avec Show), initialiser les valeurs, en revanche je ne sais pas comment pour envoyer les valeurs saisies (Valeur True ou False de mes cases à cocher) à ma macro d'origine qui a appelé le formulaire pour continuer le traitement
D'avance merci pour votre aide
Cordialement

Bonjour,
Petit exemple rapide

Code:

---

1 2 3 4 5 6 7 8 9

Sub Main() With UserForm1 .Show Feuil2.Range("A2") = .CheckBox1 Feuil2.Range("A3") = .CheckBox2 Feuil2.Range("A4") = .CheckBox3 Feuil2.Range("A5") = .CheckBox4 End With End Sub

---

Bonjour,

Si tu masques ton userform :

Code:

---

Userform1.Hide

---

Les valeurs des contrôles sont toujours accessibles. Sinon, si tu le fermes (avec "UnLoad"), il faut définir pour chaque contrôle une variable publique, de préférence dans un module standard.

Bonjour Daniel,
C'est ce que je pensais également mais avec la procédure que j'ai proposée cela fonctionne parfaitement et sans recharger le formulaire.
Je ferme bien le formulaire par Unload Me

Bonjour Philippe,

Non modal alors, le userform ?

Bonjour Daniel,
Modal ou Non modal, c'est la même chose.
Par contre, en voulant refaire le test j'ai maintenant le message "Mémoire insuffisante" alors que lors de mon premier test tout était parfait.
Même avec Me.Hide . Je dois avoir un soucis avec mon PC (ou plutôt avec ma machine virtuelle)

[EDIT]
Après redémarrage de ma machine virtuelle, plus de soucis mais évidemment je ne sais pas si le problème de mémoire est provoqué par cette procédure.
En tout les cas, le formulaire après l'instruction Show ne déclenche pas une procédure événementielle Activate ou Initialize

Le classeur contient 3 feuilles, un UserForm avec 4 contrôles CheckBox nommés CheckBox1, ...2, ...3, ...4, un contrôle CommandButton1
Les codes du UseForm

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Activate() MsgBox "Activate" End Sub Private Sub UserForm_Initialize() MsgBox "Initialize" End Sub

---

Les procédures du module1

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Main() With UserForm1 .Show '.Show 1 ' Les 2 cas de figures ont été testés Feuil2.Range("A2") = .CheckBox1 Feuil2.Range("A3") = .CheckBox2 Feuil2.Range("A4") = .CheckBox3 Feuil2.Range("A5") = .CheckBox4 End With End Sub

---

.

Merci pour la réponse
Ma macro fonctionne bien maintenant avec ce code.
Pour compléter, je souhaiterais avoir cet échange entre ma macro principale et le userform mais sans stocker de valeurs (les valeurs saisies dans le userform) dans la feuille Excel
Question : Ex : Si je clique sur "Annuler" sur le userform, je voudrais que cela arrête ma macro principale après l'instruction monuserform.show ou si je clique sur "Ok" dans mon userform je voudrai passer une valeur saisie dans le userform vers la macro (mais sans stocker dans la feuille)
A défaut je me contenterai de stocker les valeurs
Dans tous les cas merci pour l'aide apportée
Cordialement

Bonjour,
Pour passer la valeur provenant d'un contrôle du UserForm comme argument à une procédure Sub ou Function, tu remplaces Feuil2.Range("A2") = de cette ligne de code

Code:

---

Feuil2.Range("A2") = .CheckBox1

---

par

Code:

---

NomProcedure .CheckBox1

---

Ceci dit, ne serait-ce pas plus simple de travailler avec des variables globales ?

[EDIT]
Exemple pour sortir de la procédure si on clique sur le bouton (ControlButton : cmdCancel)
Procédure Main

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Public Flag As Boolean Sub Main() With UserForm1 .Show If Not (Flag) Then Exit Sub Feuil1.Range("A1") = .CheckBox1: Feuil1.Range("A2") = .CheckBox2 Feuil1.Range("A3") = .CheckBox3: Feuil1.Range("A4") = .CheckBox4 End With End Sub

---

Procédures dans le formulaire nommé UserForm1

Code:

---

1 2 3 4 5 6 7 8

Private Sub cmdCancel_Click() Flag = False Unload Me End Sub Private Sub cmdOK_Click() Flag = True Unload Me End Sub

---

Super merci. C'est exactement ce que je cherchais.
Cordialement