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