Discussion :

[MPRIBOM]

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

[Philippe Tulliez]

Bonjour,
Petit exemple rapide

Code :

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

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

[Daniel.C]

Bonjour,

Si tu masques ton userform :

Code :

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

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.

[Philippe Tulliez]

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

[Daniel.C]

Bonjour Philippe,

Non modal alors, le userform ?

[Philippe Tulliez]

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 :

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

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 :

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

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

.

[MPRIBOM]

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

[Philippe Tulliez]

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 :

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

Feuil2.Range("A2") = .CheckBox1

par

Code :

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

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 :

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

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 :

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

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

[MPRIBOM]

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