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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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 !