Bonjour à tout!

En ce moment j'essaye de créer un document word avec différentes cases à cocher, une par titre et une par sous-titre.

Si on coche "oui" au niveau du titre alors tout ce qui correspond au titre est caché. Si on coche "non" cela reste ou retourne comme avant.
Le fonctionnement est pareil pour les sous-titres.

Donc si rien est coché j'ai quelque chose de la forme :

I) Titre1
a) SousTitre
Blabla
b) SousTitre
Blabla

II) Titre2
a) SousTitre
Blabla
b) SousTitre
Blabla

Si je coche "oui" pour le titre1 et le a) du II) j'ai :

I) Titre1
II) Titre2
a) SousTitre
b) SousTitre
Blabla


Le problème est que lorsque je coche "oui" sur un titre la case "oui" pour le premier sous-titre reste visible, et donc je peux la cocher. Je ne comprend pas comment c'est possible avec que tout le reste est invisible!
Si je coche ce checkbox qui n'a pas à être visible, ce qu'il y a dans le sous-titre s'affiche ainsi que la case "oui" correspondant au sous-titre suivant.

Voici mon code, ce qui est commenté c'est une ligne que j'ai essayé pour cacher le checkbox ( j'ai essayé .Visible et .Hidden) :

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
Private Sub CheckBox1_Click()
Application.Options.PrintHiddenText = False
If Not ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Unprotect
End If
Selection.GoTo What:=wdGoToBookmark, Name:="CSFMA"
If CheckBox1.Value = True Then
    CheckBox2.Value = False
    ActiveDocument.Bookmarks("CSFMA").Range.Style = wdStyleNormal
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect
    End If
 
Else
    'ActiveDocument.FormFields("CaseACocher5").Visible = False
    ActiveDocument.Bookmarks("CSFMA").Range.Style = "Monstyle"
 
End If
ActiveDocument.Protect wdAllowOnlyFormFields
 
End Sub
.

"Monstyle" est un style que j'ai créé qui cache le texte.

Ce que je ne comprend pas c'est que seul la checkbox "oui" s'affiche, la "non" reste invisible! Et c'est comme ça pour tout les sous titres!

Si vous avez des questions sur ce que j'ai fait, hésitez pas!

Merci d'avance.