Discussion :

[vash641]

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 :

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
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

[babybell]

Bonjour vash641, le forum

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

Dans un module

Code :

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

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 :

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
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 :

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

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

[Krovax]

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

Code :

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

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

[vash641]

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