Discussion :

[Aurel.89]

Bonjour à tous,

Je débute en VBA et malgré des recherches sur internet je n'ai pas trouvé la commande qui permet de simplifier ce 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
 
'Bouton Effacer
Private Sub CommandButton3_Click()
 
'Efface ce qui avait été rempli
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
ComboBox11 = ""
ComboBox12 = ""
ComboBox13 = ""
ComboBox14 = ""
ComboBox15 = ""
ComboBox16 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""

Est-ce possible de transformer çà en 1 ligne ou 2?

D'avance merci

Aurel ++

[casefayere]

Bonjour,

instruis-toi ici
http://silkyroad.developpez.com/VBA/...UserForm/#LI-B
bonne soirée

[laetitia]

bonjour Aurel.89 l' ami casefayere le forum suppose dans un userform

Code :

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

1
2
3
4
5
Private Sub CommandButton3_Click()
   Dim i As Byte
   For i = 1 To 16: Controls("combobox" & i) = "": Next i
   For i = 3 To 10: Controls("label" & i) = "": Next i
End Sub

dans certains cas on peut utiliser comme cela si tu veus tous vider sur ton user mais bon!!!

Code :

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

1
2
3
Private Sub CommandButton3_Click()
  Unload Me: UserForm1.Show
End Sub

[Aurel.89]

Ça marche, merci beaucoup! =)