Cases à cocher "Contrôles de contenu"

Cette réponse concerne les cases à cocher de type "Contrôles de contenu", utilisables depuis la version 2007.

Le fait de cocher une case devra déclencher le fait que d'autres cases soient également et automatiquement cochées.

Pour ce faire, une macro sera nécessaire. Cettre macro se déclenchera automatiquement lorsque la première case à cocher aura été cochée.

Pour commencer, donnez un titre identique aux cases à cocher liées : 

  • Sélectionnez la case à cocher.
  • Sous l'onglet Développeur, groupe Contrôles, cliquez sur le bouton Propriétés.
  • Complétez la case Titre.
  • Il suffira ensuite de faire un copier-coller de cette case qui conservera le même titre.

Vous allez à présent copier et coller la macro ci-dessous. Elle devra se trouver dans ThisDocument (voir éventuellement explications ici)

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
'macro écrite par m@rina
Dim CC2 As ContentControl, titre As String
For Each CC In ActiveDocument.ContentControls
titre = CC.Title
If CC.Checked = True Then
    For Each CC2 In ActiveDocument.ContentControls
        If CC2.Title = titre Then CC2.Checked = True
    Next
Else
    For Each CC2 In ActiveDocument.ContentControls
        If CC2.Title = titre Then CC2.Checked = False
    Next

End If
Next
End Sub
 

 

Lorsque vous aurez coché la première case, vous devrez sortir de cette case, avec par exemple un appui sur la touche de tabulation ou un clic ailleurs dans le document.

NB : vous pouvez ainsi créer autant de cases que souhaité. Toutes les cases qui porteront le même titre que la première seront automatiquement cochées oud écochées en même temps que la première.

 

Statistiques

Aujourd'hui2315
Hier2620
Cette semaine12783
Total depuis 20049551323

4
visiteurs actuellement en ligne