Userform, menu déroulant et entrée multiple

Bonjour, je souhaiterais savoir comment, à partir d'un userform, faire en sorte qu'en entrant plusieurs données dans des text_change() je puisse les récupérer pour les exploiter dans une procédure.

J'ais tenté de faire cela avec un userform, avec un label et une zone de texte, puis un command button pour lancer la procédure, mais rien ne se passe :/

Auriez vous une idée de mon erreur ? ci joint le bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Run (Worksheets("Feuil1").proc1()) Else End If End Sub   Private Sub TextBox1_Change() Nom1 = TextBox1.Value End Sub   Private Sub TextBox2_Change() Nom2 = TextBox2.Value End Sub   Private Sub TextBox3_Change() Nom3 = TextBox3.Value End Sub   Private Sub TextBox4_Change() Nom4 = TextBox4.Value End Sub   Private Sub TextBox5_Change() Nom5 = TextBox5.Value End Sub   Private Sub TextBox6_Change() Nom6 = TextBox6.Value End Sub   Private Sub TextBox7_Change() Nom7 = TextBox7.Value End Sub

---

La seconde partie de mon problème est que j'aimerais récupérer la valeur sélectionné dans un menu déroulant afin de l'exploiter dans une autre procédure, est ce possible ? si oui quel serait la syntaxe?

Merci de votre aide :)

Bonjour vash641, le forum

Voici un petit code pour t'aider dans ton problème n° 1

Dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Nom1 As String Public Nom2 As String Public Nom3 As String Public Nom4 As String Public Nom5 As String Public Nom6 As String Public Nom7 As String Sub début() UserForm1.Show End Sub Sub fin() Range("A1").Value = Nom1 & Nom2 & Nom3 & Nom4 & Nom5 & Nom6 & Nom7 End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub UserForm_Click() End Sub Private Sub CommandButton1_Click() 'If CheckBox1.Value = True Then 'Run (Worksheets("Feuil1").proc1()) 'Else 'End If Unload UserForm1 fin End Sub Private Sub TextBox1_Change() Nom1 = TextBox1.Value End Sub Private Sub TextBox2_Change() Nom2 = TextBox2.Value End Sub Private Sub TextBox3_Change() Nom3 = TextBox3.Value End Sub Private Sub TextBox4_Change() Nom4 = TextBox4.Value End Sub Private Sub TextBox5_Change() Nom5 = TextBox5.Value End Sub Private Sub TextBox6_Change() Nom6 = TextBox6.Value End Sub Private Sub TextBox7_Change() Nom7 = TextBox7.Value End Sub

---

A adapter pour

Code:

---

Run (Worksheets("Feuil1").proc1())

---

Bonjour,
Pour ta première question dans ta procédure utilise

Code:

---

Nom6 = userform1.TextBox6.Value

---

Une variable si elle n'est pas déclaré publique n'existe QUE dans laprocédure ou elle est déclaré donc dans ta solution au moment ou le programme "lit" end sub il efface les variable Nom1.

Pour la deuxième question je te laisse regarder ce tuto
Utiliser les contrôles dans un UserForm, en VBA Excel

Merci beaucoup, j'ais trouvé tout ce qui m'interessait dans le tuto :)