Case à cocher Formulaires hérités

Cette réponse concerne les cases à cocher de type "Formulaires hérités". 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 devra être automatiquement lancée lorsque la première case à cocher aura été cochée.

Pour commencer, donnez un nom aux signets de vos cases à cocher :

  • Double cliquez sur la case et complétez la zone de texte Signet. 
  • Pour chaque case, donnez le même nom suivi d'un numéro. Exemple : C1, C2, C3, C4, etc.
  • Profitez-en pour décocher l'option Case activée (hormis la première case).

Vous allez à présent copier et coller la macro ci-dessous. Modifiez le chiffre 6 en fonction du nombre de cases.

Sub caseacocher()
Dim case1 As CheckBox, X As Variant
Set case1 = ActiveDocument.FormFields("C1").CheckBox
For X = 2 To 6
If case1.Value = True Then
ActiveDocument.FormFields("C" & X).CheckBox.Value = True
Else: ActiveDocument.FormFields("C" & X).CheckBox.Value = False
End If
Next X
End Sub

Il faut maintenant que cette macro se déclenche lorsque la première case sera cochée. Double-cliquez sur cette première case puis, sous la rubrique À la sortie, sélectionnez la macro "caseacocher".

Pour que le tout fonctionne, protégez le document. Ensuite, lorsque vous aurez coché la première case, vous devrez sortir de cette case, avec par exemple un appui sur la touche de tabulation.

 

Statistiques

Aujourd'hui1542
Hier864
Cette semaine1542
Total depuis 20049828974

10
visiteurs actuellement en ligne