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!