récupération de variable depuis un userform

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:

---

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

---

Bonjour,

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

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

Bonjour,

Citation:

---

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:

---

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:

---

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

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:

---

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:

---

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

---