Discussion :

[Emi1988]

Bonjour,
J'ai un document Word avec plusieurs cases à cocher lorsque je clique sur la case 1 d'autres cases se cochent.
La fonction ci-dessous fonctionne parfaitement.
Or je souhaiterais plutôt que de devoir répéter chaque checkbox pouvoir les grouper de "checkbox2 à checkbox4 = True" par exemple.
Est ce possible ? quelqu'un pour m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
    Else
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
    End If
End Sub

[Invité]

Bonjour,

A tester :

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
 
Private Sub CheckBox1_Click()
 
Dim I As Integer, J As Integer
Dim MaListeDeCheckbox As Variant
Dim DocEnCours As Document
 
    Set DocEnCours = ActiveDocument
 
    With DocEnCours
 
           MaListeDeCheckbox = Array("CheckBox2", "CheckBox3", "CheckBox4")
           For I = LBound(MaListeDeCheckbox) To UBound(MaListeDeCheckbox)
               For J = 1 To .InlineShapes.Count
                   With .InlineShapes(J)
                        If .OLEFormat.Object.Name = MaListeDeCheckbox(I) Then
                           .OLEFormat.Object = CheckBox1
                           'Debug.Print .OLEFormat.Object.Name & " : " & .OLEFormat.Object
                        End If
                    End With
                Next J
            Next I
 
    End With
 
    Set DocEnCours = Nothing
 
End Sub

[Emi1988]

Merci pour la réponse rapide.
Le code fonctionne, mais si j'ai 50 cases à cocher il me faudra toutes les nommer "MaListeDeCheckbox = Array("CheckBox2", "CheckBox3", "CheckBox4"....)" ?
N'existe t-il pas un code pour indiquer CheckBox2 à CheckBox40 ?

[Invité]

Merci pour la réponse rapide.
Le code fonctionne, mais si j'ai 50 cases à cocher il me faudra toutes les nommer "MaListeDeCheckbox = Array("CheckBox2", "CheckBox3", "CheckBox4"....)" ?
N'existe t-il pas un code pour indiquer CheckBox2 à CheckBox40 ?

Si votre liste de checkbox est continue de 2 à 50, il suffit de boucler sur chaque inlineshape de type 5 sauf Checkbox1. Dans ce cas, la matrice MaListeDeCheckbox est inutile.

[Emi1988]

Bonjour,
J'ai tenté avec ce code mais rien ne se passe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
Dim I As Integer
Dim name As String
name = "CheckBox" & I
 
If CheckBox1 = True Then
For I = 2 To 5
name = True
Next I
End If
End Sub

Je ne vois pas où est l'erreur.
Quelqu'un pour m'aider ?

[Invité]

Essayez :

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
 
Private Sub CheckBox1_Click()
 
Dim J As Integer
Dim DocEnCours As Document
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
         For J = 1 To .InlineShapes.Count
             With .InlineShapes(J)
                  Select Case Mid(.OLEFormat.Object.Name, 9)
                         Case 2 To 50
                              If Mid(.OLEFormat.Object.Name, 1, 8) = "CheckBox" Then
                                 .OLEFormat.Object = CheckBox1
                                 'Debug.Print .OLEFormat.Object.Name & " : " & .OLEFormat.Object
                              End If
                   End Select
             End With
          Next J
    End With
    Set DocEnCours = Nothing
 
End Sub

[Emi1988]

Super cela fonctionne parfaitement, merci beaucoup