Discussion :

[yoyo781]

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 :

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)

Cela fonctionne sauf que j'ai presque 100 checkbox....

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.

[Jean-Philippe André]

SAlut,

lorsqu'une tache est repetitive, on utilise des boucles

http://silkyroad.developpez.com/vba/boucles/#LIII

Ici tu peux passer par une syntaxe comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim i as Integer
For i = 1 To 100
If Me.Controls("CheckBox" & i).Value = True Then 
numero = numero + "1"
Else
numero = numero + "0"
End If
Next i
Msgbox numero

[yoyo781]

Bonjour Jean-Philippe,

Merci beaucoup.
Ton code a bien fonctionné.

Lionel.