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.
Partager