Recherche une solution sur VB Userform

Version imprimable

Bonjour,
Etant novice en Visual Basic je rencontre un petit souci.
Actuellement je crée un formulaire d'inventaire avec un USF, celui-ci fonctionne très bien, avec les ComboBox, TextBox, et les boutons Quitter Modifier et Nouveau.
Par contre j'ai mis 7 boutons qui correspondent a mes 7 feuilles, mais lorsque je souhaite passer d'une feuille à une autre cela ne fonctionne pas.
Je reste toujours sur la première feuille.
Merci à vous.

Je vous joints le 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
Option Explicit
Dim Ws As Worksheet
 
'Pour le bouton prêt
Private Sub CommandButton10_Click()
Sheets("Prêt").Select
 Dim Ctrl As Control
 
 For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
         If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton PC-M73
 
Private Sub CommandButton11_Click()
Sheets("PC-M73").Select
 Dim Ctrl As Control
 
 For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
         If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Ecran
 
Private Sub CommandButton5_Click()
Sheets("Ecran").Activate
 Dim Ctrl As Control
 
 For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
'Pour le bouton Vider
Private Sub CommandButton12_Click()
    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton UC
 
Private Sub CommandButton4_Click()
Sheets("UC").Select
 
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Portable
Private Sub CommandButton6_Click()
Sheets("Portable").Select
 
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Imprimante
Private Sub CommandButton7_Click()
Sheets("Imprimante").Select
Dim Ctrl As Control
 
 For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Stock
Private Sub CommandButton8_Click()
Sheets("Stock").Select
Dim Ctrl As Control
 
  For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Réformé
Private Sub CommandButton9_Click()
Sheets("Reforme").Select
Dim Ctrl As Control
 
 For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le formulaire
Private Sub UserForm_Initialize()
    Dim J As Long
 
    ComboBox2.List() = Array("Paris", "Reims", "Autre")
    Set Ws = Sheets("UC")   'Correspond au nom de l'onglet dans le ficier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
 
        Next
    End With
 
End Sub
 
 
 
'Pour la feuille UC de la liste déroulante ref
Private Sub ComboBox1_Change()
 
    Dim Ligne As Long
    Dim I As Integer
 
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 12
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub
 
 
 
'Pour le bouton Nouveau
Private Sub CommandButton1_Click()
    Dim L As Integer
    If MsgBox("Confirmez-vous l'insertion de ce nouvel utilisateur?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("UC").Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement la premire ligne de tableau non Vide
        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = ComboBox2
        Range("C" & L).Value = TextBox1
        Range("D" & L).Value = TextBox2
        Range("E" & L).Value = TextBox3
        Range("F" & L).Value = TextBox4
        Range("G" & L).Value = TextBox5
        Range("H" & L).Value = TextBox6
        Range("I" & L).Value = TextBox7
        Range("J" & L).Value = TextBox8
        Range("K" & L).Value = TextBox9
        Range("L" & L).Value = TextBox10
        Range("M" & L).Value = TextBox11
        Range("N" & L).Value = TextBox12
 
        Dim J As Long
        Dim I As Integer
        ComboBox1.Clear
        Set Ws = Sheets("UC") 'Correspond au nom de l'onglet de la feuille Excel
        With Me.ComboBox1
                For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
        End With
      Else
   End If
   Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
 
 
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    Dim I As Integer
 
    If MsgBox("Confirmez-vous les modifications?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Ligne = Me.ComboBox1.ListIndex + 2
        Ws.Cells(Ligne, "B") = ComboBox2
        For I = 1 To 12
 
                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
 
        Next I
    End If
 
End Sub
 
 
'Pour le bouton Quitter
Private Sub CommandButton3_Click()
    Unload Me
End Sub

03/05/2016, 21h46
unparia

Bonjour

Tes boutons sont sur un Userform.
Me est ton Userform et non la feuille que tu as sélectionnée.
03/05/2016, 21h59
johntime

oui les boutons sont dans USF
le code complet est dans USF

J'ai même essayé de faire un UsF par feuille
03/05/2016, 22h02
parmi

Bonjour,

Quand tu mets du code, sélectionne-le et utilise le bouton # en haut du message pour le formater.
Ça facilite la lecture...

Quelle est l'utilité de sélectionner la feuille dans laquelle tu veux écrire ?
En principe, il suffit de mettre le nom de la feuille devant le Range pour que tout se fasse sans sélection.

Les Range correspondent aux cellules de ma premiere feuille, à savoir que les autres feuilles sont les même que la premiere, seulement le nom de l'onglet change.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
Option Explicit
Dim Ws As Worksheet
 
'Pour le bouton prêt
Private Sub CommandButton10_Click()
Sheets("Prêt").Select
 Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
         If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton PC-M73
Private Sub CommandButton11_Click()
Sheets("PC-M73").Select
 Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
         If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Ecran
Private Sub CommandButton5_Click()
Sheets("Ecran").Activate
 Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
'Pour le bouton Vider
Private Sub CommandButton12_Click()
    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton UC
Private Sub CommandButton4_Click()
Sheets("UC").Select
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Portable
Private Sub CommandButton6_Click()
Sheets("Portable").Select
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Imprimante
Private Sub CommandButton7_Click()
Sheets("Imprimante").Select
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Stock
Private Sub CommandButton8_Click()
Sheets("Stock").Select
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Réformé
Private Sub CommandButton9_Click()
Sheets("Reforme").Select
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
 
 
 
'Pour le formulaire
Private Sub UserForm_Initialize()
    Dim J As Long
 
    ComboBox2.List() = Array("Paris", "Reims", "Autre")
    Set Ws = Sheets("UC")   'Correspond au nom de l'onglet dans le ficier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
 
        Next
    End With
 
End Sub
 
 
'Pour la feuille UC de la liste droulante Ref
Private Sub ComboBox1_Change()
 
    Dim Ligne As Long
    Dim I As Integer
 
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 12
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub
 
'Pour le bouton Nouveau
Private Sub CommandButton1_Click()
    Dim L As Integer
    If MsgBox("Confirmez-vous l'insertion de ce nouvel utilisateur?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("UC").Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement la premire ligne de tableau non Vide
        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = ComboBox2
        Range("C" & L).Value = TextBox1
        Range("D" & L).Value = TextBox2
        Range("E" & L).Value = TextBox3
        Range("F" & L).Value = TextBox4
        Range("G" & L).Value = TextBox5
        Range("H" & L).Value = TextBox6
        Range("I" & L).Value = TextBox7
        Range("J" & L).Value = TextBox8
        Range("K" & L).Value = TextBox9
        Range("L" & L).Value = TextBox10
        Range("M" & L).Value = TextBox11
        Range("N" & L).Value = TextBox12
 
        Dim J As Long
        Dim I As Integer
        ComboBox1.Clear
        Set Ws = Sheets("UC") 'Correspond au nom de l'onglet de la feuille Excel
        With Me.ComboBox1
                For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
        End With
      Else
   End If
   Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    Next Ctrl
End Sub
 
 
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    Dim I As Integer
 
    If MsgBox("Confirmez-vous les modifications?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Ligne = Me.ComboBox1.ListIndex + 2
        Ws.Cells(Ligne, "B") = ComboBox2
        For I = 1 To 12
 
                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
 
        Next I
    End If
 
End Sub
 
'Pour le bouton Quitter
Private Sub CommandButton3_Click()
    Unload Me
End Sub

Comme tes Sub semblent toutes pareilles, voyons celle-ci

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton10_Click()
Sheets("Prêt").Select  'ici tu sélectionne la feuille, mais on ne sait pas pourquoi
 Dim Ctrl As Control
    For Each Ctrl In Me.Controls   'pour tous les contrôles dans ton Userform
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""  'tu vides les textbox du Userform
         If TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""  'tu effaces le texte des combobox du Userform
    Next Ctrl
End Sub

Je ne pense pas que ce soit ce que tu veux faire...
Alors qu'est-ce que tu essaies de faire au juste ?

03/05/2016, 23h44
johntime

1 pièce(s) jointe(s)

Voici une capture cela devrais être plus parlant .Pièce jointe 208674
03/05/2016, 23h49
parmi

Ça n'aide pas vraiment sur ce que tu cherches à faire...
On voit bien les boutons en questions, mais tout ce qu'ils font (ton code), c'est de vider les textbox et d'enlever le texte des combobox...
Ils font tous la même chose.

Je souhaite pouvoir modifier un utilisateur, le supprimer ou en rajouter un et aussi naviguer sur les différents boutons pour faire des modification ou ajout.
et faire une recherche rapide au niveau de la ComboBox REF

Si je mettais ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Pour le bouton UC Private Sub CommandButton4_Click() Sheets("UC").Select UserForm2.Show Unload UserForm1 End Sub 'Pour le bouton Ecran Private Sub CommandButton5_Click() Sheets("Ecran").Activate UserForm1.Show Unload UserForm2 End Sub

04/05/2016, 02h08
parmi

Il faudrait que tu cibles un seul problème à la fois.
De la façon dont tu exposes le problème, il faudrait tout refaire.

On ne sait pas ce que contiennent tes feuilles et on ne sait pas si elles sont nécessaires.
Le Userform, comme tu le montres, pourrait servir à afficher pour modifier ou supprimer.
Ça prendrait un autre UF pour créer un nouvelle entrée parce que les combobox ne sont pas nécessairement idéaux pour ça.
Et ça prend des validations sur tous les contrôles qui sont absolument nécessaires avant d'inscrire quoique ce soit dans tes feuilles.

Il y a pas mal de travail à faire et on ne fera pas tout pour toi...
10/05/2016, 21h33
clementmarcotte

Bonjour,

Citation:

Envoyé par johntime

Bonjour,
Par contre j'ai mis 7 boutons qui correspondent a mes 7 feuilles, mais lorsque je souhaite passer d'une feuille à une autre cela ne fonctionne pas.

Pour paraphraser m@rina, tu veux réinventer l'eau chaude. Un simple clic sur le nom de la feuille en bas de la fenêtre d'Excel fait la job.

Et puis, tu peux très facilement agir sur une feuille sans la sélectionner, ou l'activer.
11/05/2016, 00h48
unparia

Bonjour clementmarcotte

Sauf s'il (ou un autre) est allé tripoter les options Excel pour les définir manuellement de la même manière qu'elles le seraient par ceci :

Code:

ActiveWindow.DisplayWorkbookTabs = False

Amitiés
11/05/2016, 01h50
clementmarcotte

Bonjour,

Je ne la connaissais pas, celle-là. Merci pour l'info.