Bonjour,
Grand débutant sur vba avec word 2013, j'ai besoin de vos lumières.
J'ai créé un userform avec de nombreuses checkbox.
L'idée est de créer une suite de 0 et 1 selon les checkbox sélectionnées.
Voici un extrait de mon code :
Cela fonctionne sauf que j'ai presque 100 checkbox....
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 Private Sub CommandButton1_Click() Dim prog As String Dim niv As String Dim numero As String ' Gestion du niveau If CheckBox1 = True Then niv = "1" Else niv = "0" numero = numero + niv If CheckBox2 = True Then niv = "1" Else niv = "0" numero = numero + niv If CheckBox3 = True Then niv = "1" Else niv = "0" numero = numero + niv If CheckBox4 = True Then niv = "1" Else niv = "0" numero = numero + niv ' Gestion du programme If CheckBox5 = True Then prog = "1" Else prog = "0" numero = numero + prog If CheckBox6 = True Then prog = "1" Else prog = "0" numero = numero + prog If CheckBox7 = True Then prog = "1" Else prog = "0" numero = numero + prog If CheckBox8 = True Then prog = "1" Else prog = "0" numero = numero + prog MsgBox (numero)
N'y a-t-il pas un moyen pour créer une boucle qui donnerait le même résultat en un minimum de lignes de code ?
A bientôt.
Lionel.
Partager