Discussion :

[herve199]

Bonjour à tous,

Je ne réussit pas à récupérer des valeurs rentrées dans un UserForm afin de les utiliser dans un programme VBA pour déterminer d'autres valeurs.
Avec le programme suivant, ils me disent que toutes mes variables sont vides alors que j'appuie sur des cases du questionnaire.

Code :

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

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
Sub actu()
    valeurs_entree.Show     'affiche l'userform
    MsgBox (matiere)          'sert uniquement a vérifier si il y a des valeurs stockées dans ces variables
    MsgBox (alim_gaz)
    MsgBox (alim_mat)
    MsgBox (typ)
    MsgBox (DC01)
    MsgBox (typnum)
End Sub
 
Sub CommandButton1_Click()
    Unload valeurs_entree               'sort de l'userform
End Sub
 
Sub OptionButton1_Click()
    matiere = "Charbon"                 
End Sub
 
Sub OptionButton10_Click()
    alim_gaz = "sup"
End Sub
 
Sub OptionButton11_Click()
    alim_gaz = "inf"
End Sub
 
Sub OptionButton3_Click()
    matiere = "Ciment"
End Sub
 
Sub OptionButton4_Click()
    matiere = "Cru"
End Sub
 
Sub OptionButton5_Click()
    alim_mat = "mix"
End Sub
 
Sub OptionButton6_Click()
    alim_mat = inf
End Sub
 
Sub OptionButton7_Click()
    alim_mat = sup
End Sub
 
Sub OptionButton8_Click()
    typ = MF
End Sub
 
Sub OptionButton9_Click()
    typ = BF
End Sub
 
Sub TextBox1_Change()
    DC01 = TextBox1
End Sub
 
Sub TextBox2_Change()
    typnum = TextBox2
End Sub

Merci d'avance pour votre aide précieuse!

[Thautheme]

Bonjour Hervé, bonjour le forum,

Pas sûr d'avoir bien compris ton problème... Si tu demandes de t'indiquer les valeurs juste après l'ouverture de l'UserForm (en principe vierge) c'est normal que tu n'aies rien... Je demanderais ça plutôt au clic sur le bouton CALCUL, avant la fermeture...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub actu()
    valeurs_entree.Show     'affiche l'userform
End Sub
 
Sub CommandButton1_Click()
    MsgBox (matiere)         
    MsgBox (alim_gaz)
    MsgBox (alim_mat)
    MsgBox (typ)
    MsgBox (DC01)
    MsgBox (typnum)
    Unload valeurs_entree               'sort de l'userform
End Sub

[Invité]

Bonjour,

Et si vous mettez vos Msgbox dans CommandButton1_Click, ça donne quoi ?

[herve199]

J'ai essayé cela ne marche pas non plus.
Mon but de calculer plus tard dans le programme des variables en fonction des valeurs entrée dans l'userform.
Ici j'essaie de les afficher uniquement pour voir si les variables stockent bien des valeurs ou des textes.

[Invité]

Alors mettez votre classeur exemple en ligne pour voir.

[herve199]

Mon classeur est vide pour cette partie du programme.
Il n'y a qu'un bouton pour activer la macro qui lance l'userform puis va calculer les différents paramètres

[Invité]

Eh bien, c'est tout ce qu'il faut. Mettez votre userform et le code pour le lancer avec vos déclarations de variables pour voir, dans un fichier.