Discussion :

[guccg]

Bonjour,
Voici mon problème :
je souhaite créé un userform a partir du quel je récupère une valeur string pour pouvoir l'utiliser dans un module or je n'arrive pas a "exporter' cette variable.
Dans le module ou je souhaite la récupère elle apparaît comme var1 = " " et ce même au niveau de la déclaration en public en ligne 1...
merci d'avance pour les solutions apportées.

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
Public monchoix As Variant
 
Public Sub CheckBox1_Click()
Dim monchoix As String
 
monchoix = UserForm1.CheckBox1.ControlTipText
End Sub
 
Public Sub CheckBox2_Click()
Dim monchoix As String
monchoix = UserForm1.CheckBox1.ControlTipText
End Sub
 
Public Sub CommandButton1_Click()
 
UserForm1.Hide
'Import
End Sub

[parmi]

Bonjour,

Déclare ta variable Public dans un module plutôt que dans le Userform.

[guccg]

Merci de ta réponse, je viens d'essayer, ça ne fonctionne toujours pas. Impossible de récupère ma valeur texte ...!??

[Philippe Tulliez]

Bonjour,

Merci de ta réponse, je viens d'essayer, ça ne fonctionne toujours pas. Impossible de récupère ma valeur texte ...!??

C'est que tu ne l'as pas bien déclarée
Code dans un module nommé Module1

Code :

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

1
2
3
4
5
6
Option Explicit
Public mavar As String
Sub main()
 UserForm1.Show
 MsgBox "Mavar = " & mavar
End Sub

Code dans UserForm1

Code :

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

1
2
3
4
5
Public Sub CommandButton1_Click()
 mavar = "Yes"
 'UserForm1.Hide
 Unload Me
End Sub

Soit Unload Me soit UserForm1.Hide
Tu lances la procédure Main et après avoir cliqué que le bouton nommé CommandButton1 tu verras qu'il affichera le texte yes

[Pierre Fauconnier]

Salut.

Perso, je n'aime pas les variables publiques.

Il faut savoir que userform.hide n'est pas égal à unload userform. La première instruction masque le userform, la seconde le décharge de la mémoire.

On peut dès lors travailler en quatre temps: Chargement, affichage, masquage, déchargement. L'intérêt est que entre le chargement et l'affichage, on peut lui passer des valeurs, et entre le masquage et le déchargement, on peut récupérer des valeurs.

L'exemple qui suit illustre cela, et permet de se passer des variables publiques. Il utilise un userform possédant un textbox nommé tboText et deux boutons, btnSubmit et btnCancel. une propriété en lecture/écriture au sein du userform permet de tester quel bouton a été pressé.

Code d'appel et de traitement dans le module standard

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Appel()
  Dim Temp As String
 
  Load usfCatchValue
  usfCatchValue.tboText.Value = "Bonjour"
  usfCatchValue.Show
  If usfCatchValue.ButtonClicked = "Submit" Then
    Temp = usfCatchValue.tboText.Value
  End If
  Unload usfCatchValue
End Sub

Code dans le userform

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
Public ButtonClicked As String
 
Private Sub btnCancel_Click()
  ButtonClicked = "Cancel"
  Me.Hide
End Sub
 
Private Sub btnSubmit_Click()
  ButtonClicked = "Submit"
  Me.Hide
End Sub