Test cases à cocher VBA Word

Fermé
El_muchacho Messages postés 1 Date d'inscription vendredi 13 mai 2016 Statut Membre Dernière intervention 13 mai 2016 - 13 mai 2016 à 10:03
Bonjour, j'ai écrit une petite fonction sous Word associée à un bouton de fin. Cette fonction test toutes les cases à cocher du document et masque le contenu qui y est associé (à l'aide de signets), si les cases sont non cochées, lors du clique sur le bouton de fin.
Or, je pense avoir un petit souci avec mon programme, notamment avec ma variable qui permet de chercher le nom de la case à cocher.
Egalement, si il y a un moyen de faire la même chose plus simplement, je suis preneur.

Merci

Private Sub CommandButton1_Click()
With ActiveDocument


Dim intI As Integer
intI = 0

Dim Str As String

For intI = 0 To 1000 Step 1

Str = "CaseACocher" & intI

If .FormFields(Str).CheckBox.Value = False Then
.Bookmarks(Str).Range.Font.Hidden = True

Else

.Bookmarks(Str).Range.Font.Hidden = False

End If

Next intI

.Protect wdAllowOnlyFormFields, noreset
A voir également: