Discussion :

[axelair2]

Bonjour,

Je souhaiterais créer un boucle pour checker/dechecker tous mes checkbox mais je ne trouve pas la bonne ligne de code.
Mes checkbox sont sur une page word.
Ce que j'aimerais au final c'est un truc du genre ca :

Code :

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

1
2
3
4
5
6
Dim i as Integer
For i = 1 to 100
   if ("Checkbox" & i).checked = True Then
   CheckBox.Value = False
   End if
Next i

J'ai essayé plusieurs codes dont celui ci qui ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
Dim ctl As Control
Dim chk As CheckBox
 
For Each ctl In Controls
  If TypeOf ctl Is CheckBox Then
    chk = ctl
    If chk.Checked Then chk.Name.Value = False
    End If
  Next ctl

et ca :

Code :

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

1
2
3
For n = 1 To 100
        Me.Controls("CheckBox" & n).Value = False
Next n

Mais sans réussite. Avez vous une idée ?
Merci par avance.

[Heureux-oli]

Salut,

Tes CheckBox sont des champs de formulaire, des activeX ou des content controls ?

[axelair2]

Ce sont des ActiveX.
Merci par avance !

[Heureux-oli]

Salut,

Il faut traiter les ActiveX comme des objets InLineShapes.

Voilà un exemple de code qui traite les InLineShapes et renvoie certaines informations.
Je pense que c'est une piste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ub TestSurActiveX()
Dim ilS As InlineShape
 
Debug.Print ActiveDocument.InlineShapes.Count
For Each ilS In ActiveDocument.InlineShapes
 
Debug.Print ilS.Field.Code & " --- " & ilS.Type
 
Next ilS
 
 
 
 
End Sub

[axelair2]

Merci beaucoup pour ton aide !
J'ai un peu cherché sur le net suite à tes conseils et j'ai trouvé ca qui marche dans les 2 cas :

1) Décoche tous les checkbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each shapeLoop In ActiveDocument.InlineShapes
    With shapeLoop
 
        If .Type = wdInlineShapeOLEControlObject Then
            If .OLEFormat.ClassType = "Forms.CheckBox.1" Then
                .OLEFormat.Object.Value = False
            End If
        End If
    End With
Next

2) Coche tous les checkbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each shapeLoop In ActiveDocument.InlineShapes
    With shapeLoop
 
        If .Type = wdInlineShapeOLEControlObject Then
            If .OLEFormat.ClassType = "Forms.CheckBox.1" Then
                .OLEFormat.Object.Value = True
            End If
        End If
    End With
Next

Mais je ne comprends pas très bien la ligne :

Code :

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

 If .OLEFormat.ClassType = "Forms.CheckBox.1" Then

Que représente le 1 dans ce code ?


Et donc questions suivantes :

Comment puis-je écrire qqch comme cela :

Code :

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

If CheckBox12.Value = True Then

Code :

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

If .OLEFormat.Object.Value = True Then

Mais comment choisir le 12 ? Ou comment indiquer une variable pour représenter le 12 ?

Comment récupérer la propriété Caption du CheckBox12 ?

Désolé pour toutes ces questions mais merci encore !