Cacher un CheckBox en VBA
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:
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.
