[VBA-W]Checkbox sous word

Version imprimable

Bonjour,
J'ai crée 20 cases à cocher dans un document WORD.
Sous VBA, Je voudrais suivant une condition X cocher ou décocher toute ces checkbox.
Pour cela une boucle doit etre réaliser. J'ai bien essayé le
Code:

1 2 3 4 5 6 7 For i = 1 To 20 chk(i).Value = False chk(i).Enabled = True Next i
Chaque checkbox se nomme: "chkX" ou X est un entier
(ds mon cas de 1 à 20)

Vous comprendrez donc que je dois réaliser ce code afin déviter le code a répition suivant:
Code:

1 2 3 4 5 6 7 8 9 10 chk1.Value = False chk1.Enabled = True chk2.Value = False chk2.Enabled = True chk3.Value = False chk3.Enabled = True chk4.Value = False chk4.Enabled = True ...
Je rappel que je suis sur l'application WORD...

Merci d'avance.... [/code]

par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim cmpt As Long, Controle As InlineShape, Check As MSForms.CheckBox
 
With ActiveDocument
    For Each Controle In .InlineShapes
        If StrComp(Left(Controle.OLEFormat.Object.Name, 3), "chk", vbTextCompare) = 0 Then
            Set Check = Controle.OLEFormat.Object
            Check.Value = True
        End If
    Next
End With
 
End Sub

29/03/2006, 15h13
Naim0r

Merci bcp de cette réponse rapide

Cependant, je ne comprend pas tous le code
peux tu m'expliquer stp :oops:

Merci
29/03/2006, 15h18
bidou

parcours de la collection InlineShapes qui contient les controles activeX du document.
Identification des checkBox cibles par la racine du nom
Action sur les checkBoxes
29/03/2006, 15h26
Naim0r

Citation:

Envoyé par bidou

parcours de la collection InlineShapes qui contient les controles activeX du document.
Identification des checkBox cibles par la racine du nom
Action sur les checkBoxes

Merci bcp...

cependant lorsqu'il rencontre une image cela poste un problème comment y remedier ?

en testant l'existence de l'objet OleFormat, tel que :

Code:

1
2
3
4
5
6
7
8
9
10
With ActiveDocument
    For Each Controle In .InlineShapes
        If Not Controle.OLEFormat Is Nothing Then
            If StrComp(Left(Controle.OLEFormat.Object.Name, 3), "chk", vbTextCompare) = 0 Then
                Set Check = Controle.OLEFormat.Object
                Check.Value = True
            End If
        End If
    Next
End With