Simplifier un bout de code

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:

---

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

Bonjour,

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

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

Code:

---

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:

---

1 2 3

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

---

Ça marche, merci beaucoup! =)