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'hui215
Hier2602
Cette semaine8063
Total depuis 20049546603

9
visiteurs actuellement en ligne