Problème Variable Public d'un Userform vers un Module
Bonjour à tous,
Je me permets d'écrire ce sujet car après moultes essais, je n'arrive pas à comprendre pourquoi ma variable ne passe pas d'un userform vers un module. Je vous remercie déjà par avance pour votre aide.
Le programme est le suivant. J'ai un module dans lequel j'appelle l'Userform2 :
Code:
1
2
3
4
5
6
7
8
9
| Public Nbr_Reactif As Integer
Public Inc As Integer
Public Sub Calcul_Tab()
UserForm2.Show
Msgbox (Nbr_Reactif)
End Sub |
J'ai déclaré ma variable Nbr_Réactif en Public mais lorsque que je sors de l'Userform pour afficher cette variable et m'en servir par la suite, la Msgbox m'affiche 0. Est-ce normal.
L'userform comporte un bouton et le code lorsque je clique dessus est le suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Public Nbr_Reactif As Integer
Public Sub BoutonOK2_Click()
Application.ScreenUpdating = False
Dim Reponse As String
Dim Auj As Date
Dim i As Integer
Dim j As Integer
Nbr_Reactif = TextBox1.Value
Reponse = MsgBox("Êtes-vous certain(e) de vouloir continuer avec " & Nbr_Reactif & " réactifs ?", vbYesNo, "Nombre de réactifs !")
If Reponse = 6 Then
Unload UserForm2
End Sub |
Je nage depuis deux jours pour trouver la solution. Bien évidemment, il y a la solution ou on peut écrire la valeur dans une cellule et venir la récupérer, mais ce n'est pas le but ici, je cherche à comprendre pourquoi cela ne fonctionnne pas. Désolé pour la restriction de solutions, j'attends donc vos lumières en vous remerciant par avance pour le temps que vous passerez à me répondre,
Bien cordialement à vous tous !
