Discussion :

[MEUCORACAO]

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 !

[gFZT82]

Bonjour,

Essaie après avoir supprimé la déclaration de la variable Nbr_Reactif dans le code de Userform2.

Cordialement.

[Marc-L]

Bonjour.

Et dire qu'une variable publique n'est même pas nécessaire pour récupérer la saisie dans un UserForm vers un autre module …


En effet, dans le code de l'UserForm, copier la ligne n°17 puis la remplacer par

Code :

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

Me.Hide

Ensuite dans le module, effectuer le coller en ligne n°8 puis modifier la ligne n°7 :

Code :

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

MsgBox UserForm2.TextBox1.Value

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[MEUCORACAO]

Bonjour Messieurs,

Je vous remercie pour votre aide précieuse. J'ai pris la solution de gFZT82 où j'ai juste à supprimer une déclaration. En effet, je déclare deux fois la variable sans m'en rendre compte. Merci beaucoup. L'astuce de Marc marche relativement bien aussi.

Merci pour votre réactivité.
A bientôt