Bonjour à tous,

J'ai créé un petit UseFerm avec plein de jolies petites CheckBox.
J'ai un commandButton qui me permet d'en sélectionner plusieurs en même temps seulement le code est un gros copié/collé bourrin :
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub CommandButton9_Click()
    'Colonne 1
    If (CheckBox1 = False) Then
        CheckBox1 = True
    Else
        CheckBox1 = False
    End If
    If (CheckBox2 = False) Then
        CheckBox2 = True
    Else
        CheckBox2 = False
    End If
    If (CheckBox3 = False) Then
        CheckBox3 = True
    Else
        CheckBox3 = False
    End If
    If (CheckBox4 = False) Then
        CheckBox4 = True
    Else
        CheckBox4 = False
    End If
    If (CheckBox5 = False) Then
        CheckBox5 = True
    Else
        CheckBox5 = False
    End If
    If (CheckBox6 = False) Then
        CheckBox6 = True
    Else
        CheckBox6 = False
    End If
    If (CheckBox7 = False) Then
        CheckBox7 = True
    Else
        CheckBox7 = False
    End If
    If (CheckBox8 = False) Then
        CheckBox8 = True
    Else
        CheckBox8 = False
    End If
End Sub
Vous comprenez que c'est réellement moche !

Du coup j'ai essayé plusieurs fois de rentrer ce pavé dans une boucle seulement tout ce que j'ai essayé a loupé.

J'ai essayé les :
variable_str = "CheckBox" & i
==> avec i le numéro de checkbox qui fait la boucle

J'ai essayé plein d'autres choses qui ne marchent pas plus les unes que les autres.
En même temps je ne m'y connais pas trop dans la façon de gérer ces betes la :s

Bref si quelqu'un connait la solution à mon problème, il est le bienvenue

Cordialement