Passage de paramètres entre Userform

Version imprimable

Bonjour,
Je suis nouveau en VBA, et je cherche à faire un classeur pour gérer un compte via des Userform. Pour se faire, j'ai besoin de récupérer des paramètres d'une Userform (choix de l'utilisateur, remplissage de TextBox) pour les utiliser dans une autre (notamment pour activer ou non un champ).
Après moults recherches, j'en suis au même point, nulle part... :aie:

Voici le code de la Userform dont je veux récupérer un paramètre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 Public strModePaiement As String
 
 Private Sub CB_Enr_ope_Ok_Click()
     Enr_ope.Hide
'Je dois envoyer ici strModePaiement (ou de quoi identifier le choix) à la Userform Ope_donnees
     Ope_donnees.Show
 End Sub
 
 Private Sub OB_Enr_ope_CB_Click()
     strModePaiement = OB_Enr_ope_CB.Name
     CB_Enr_ope_Ok.Enabled = True
 End Sub
 
 Private Sub OB_Enr_ope_Vir_Click()
     strModePaiement = OB_Enr_ope_Vir.Name
     CB_Enr_ope_Ok.Enabled = True
 End Sub
 
 Private Sub OB_Enr_ope_Chq_Click()
     strModePaiement = OB_Enr_ope_Chq.Name
     CB_Enr_ope_Ok.Enabled = True
 End Sub
 
 Private Sub OB_Enr_ope_Esp_Click()
     strModePaiement = OB_Enr_ope_Esp.Name
     CB_Enr_ope_Ok.Enabled = True
 End Sub
 
 Private Sub Userform_Activate()
     CBx_Enr_ope_Type_ope.AddItem "Type d'opération"
     CBx_Enr_ope_Type_ope.AddItem "Débit immédiat"
     CBx_Enr_ope_Type_ope.AddItem "Débit différé"
     CBx_Enr_ope_Type_ope.AddItem "Débit programmé"
     CBx_Enr_ope_Type_ope.AddItem "Crédit"
     CBx_Enr_ope_Type_ope.Text = CBx_Enr_ope_Type_ope.List(0)
 End Sub
 
 Private Sub CB_Enr_ope_Annul_Click()
     Enr_ope.Hide
     Demande_ppale.Show
 End Sub
 
 Private Sub CBx_Enr_ope_Type_ope_Change()
     CB_Enr_ope_Ok.Enabled = False
     OB_Enr_ope_CB.Value = 0
     OB_Enr_ope_Vir.Value = 0
     OB_Enr_ope_Chq.Value = 0
     OB_Enr_ope_Esp.Value = 0
     subDisponibiliteBoutons
 End Sub
 
 Private Sub subDisponibiliteBoutons()
     Select Case CBx_Enr_ope_Type_ope
         Case "Type d'opération"
             OB_Enr_ope_CB.Enabled = False
             OB_Enr_ope_Vir.Enabled = False
             OB_Enr_ope_Chq.Enabled = False
             OB_Enr_ope_Esp.Enabled = False
         Case "Débit immédiat"
             OB_Enr_ope_CB.Enabled = True
             OB_Enr_ope_Vir.Enabled = True
             OB_Enr_ope_Chq.Enabled = True
             OB_Enr_ope_Esp.Enabled = False
         Case "Débit différé"
             OB_Enr_ope_CB.Enabled = True
             OB_Enr_ope_Vir.Enabled = False
             OB_Enr_ope_Chq.Enabled = False
             OB_Enr_ope_Esp.Enabled = False
         Case "Débit programmé"
             OB_Enr_ope_CB.Enabled = False
             OB_Enr_ope_Vir.Enabled = True
             OB_Enr_ope_Chq.Enabled = False
             OB_Enr_ope_Esp.Enabled = False
         Case "Crédit"
             OB_Enr_ope_CB.Enabled = False
             OB_Enr_ope_Vir.Enabled = True
             OB_Enr_ope_Chq.Enabled = True
             OB_Enr_ope_Esp.Enabled = True
     End Select
 End Sub

Maintenant, le code de la Userform Ope_donnees. Le paramètre récupéré doit me permettre de savoir si je peux activer ou non le champs TB_Ope_donnees_Chq

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 Private Sub Userform_Activate()
     If strModePaiement = "OB_Enr_ope_Chq" Then
         TB_Ope_donnees_Chq.Enabled = True
     End If
 End Sub
 
 Private Sub TB_Ope_donnees_Montant_Change()
     If IsNumeric(TB_Ope_donnees_Montant.Value) And TB_Ope_donnees_Montant.Value >= 0 Then
         subOKDisponible
     Else
         TB_Ope_donnees_Montant.Value = ""
     End If
 End Sub
 
 Private Sub TB_Ope_donnees_Motif_Change()
     subOKDisponible
 End Sub
 
 Private Sub TB_Ope_donnees_Jour_Change()
     If IsNumeric(TB_Ope_donnees_Jour.Value) And (TB_Ope_donnees_Jour.Value > 0 And TB_Ope_donnees_Jour.Value < 32) Then
         subOKDisponible
     Else
         TB_Ope_donnees_Jour.Value = ""
     End If
 End Sub
 
 Private Sub TB_Ope_donnees_Mois_Change()
     If IsNumeric(TB_Ope_donnees_Mois.Value) And (TB_Ope_donnees_Mois.Value > 0 And TB_Ope_donnees_Mois.Value < 13) Then
         subOKDisponible
     Else
         TB_Ope_donnees_Mois.Value = ""
     End If
 End Sub
 
 Private Sub TB_Ope_donnees_An_Change()
     If IsNumeric(TB_Ope_donnees_An.Value) Then
         subOKDisponible
     Else
         TB_Ope_donnees_An.Value = ""
     End If
 End Sub
 
 Private Sub TB_Ope_donnees_Chq_Change()
     If IsNumeric(TB_Ope_donnees_Chq.Value) Then
         subOKDisponible
     Else
         TB_Ope_donnees_Chq.Value = ""
     End If
 End Sub

Je cherche aussi à comprendre la différence entre .Initialize et .Activate d'une Userform
Si vous avez des suggestions d'amélioration, n'hésitez surtout pas :)

Merci

14/02/2008, 16h48
patbou
bonjour,

une suggestion
si tu veux recuperer la valeur d un textbox d un userform,
passe cette valeur a une variable declaré public dans un module
Code:

1 2 3 4 5 6 7 8 9 dans le module 1 public var dans le userform1 var = textbox1.value dans le userform2 if var = ...............
14/02/2008, 16h59
Thulkash
J'ai bien mis dans le Module1

Code:

Public strModePaiement As String

Dans le Userform1 (Enr_ope)
Code:

1 2 3 4 5 Private Sub CB_Enr_ope_Ok_Click() strModePaiement = "toto" Enr_ope.Hide Ope_donnees.Show End Sub
Dans le Userform2 (Ope_donnees)
Code:

1 2 3 Private Sub Userform_Activate() MsgBox strModePaiement End Sub
Ca ne marche pas :evilred: : le MsgBox n'affiche rien. Dois-je initialiser autrement les Userform ?
14/02/2008, 19h04
patbou

Citation:

Ca ne marche pas : le MsgBox n'affiche rien. Dois-je initialiser autrement les Userform ?

chez moi ca marche!!!!
14/02/2008, 20h01
Bigalo
Bonsoir,

Plusieurs remarques :

Une variable Public doit être déclarée dans un module standard, pas dans un module d’un UserForm.

Tu as effectivement ajouté
Code:

1 2 Public strModePaiement as String
dans le module 1, mais l’as-tu AUSSI supprimé du module du UserForm ? Sinon tu as 2 variables portant le même nom et dans le UserForm, c’est celle qui est définie localement qui est utilisée, auquel cas la variable homonyme Public ne reçoit aucune valeur, et reste donc un texte vide.

Par ailleurs, une variable n’est pas forcément nécessaire : tu peux directement alimenter un contrôle du second UserForm à partir d’une valeur renseignée sur le premier UserForm :
Code:

1 2 3 4 5 Private Sub CB_Enr_ope_Ok_Click() Ope_donnees.TextBox1 = TextBox1 Me.Hide Ope_donnees.Show End Sub
Les noms de contrôles sont à adapter, bien sûr. Ici le TextBox1 du UserForm Ope_donnees récupère la valeur du TextBox1 du UserForm Enr_ope.

La différence entre Activate et Initialize est que Activate est déclenché quand le UserForm correspondant est affiché, tandis que Initialize l’est quand le UserForm est chargé en mémoire.

Ici Initialize est déclenché au moment où on renseigne un de ses contrôles :

Code:

Ope_donnees.TextBox1 = TextBox1

tandis que Activate survient lors du :

Code:

Ope_donnees.Show

L’autre différence est que Initialize ne se déclenche qu’une fois, jusqu’au Unload, tandis que peut survenir plusieurs fois, si on utilise Show et Hide pour afficher alternativement 2 UserForms.

Un dernier conseil : utilise des noms plus simples, ton code sera plus lisible : BOK (B comme bouton) est + clair que CB_Enr_ope_Ok. Sur le même principe je nomme tous mes UserForms D (comme dialogue), suivi d’un nom (DSaisie, DMAJ, ...)
15/02/2008, 11h46
Thulkash

Merci beaucoup Bigalo ! Je ne savais pas qu'on pouvais interagir entre les Userform de cette façon, j'ai donc pu faire ce que je voulais :king:
15/02/2008, 15h45
Bigalo

De rien :) On peut faire beaucoup de choses en VBA 8-)