Automatiser case à cocher avec une date

[tsyfar]

Bonjour,

Je souhaiterais automatiser un formulaire:

Je possède à chaque ligne de mon document word une case à cocher OUI et une case à cocher NON suivit d'une date format texte comme ceci ../../..
Au départ pour chaque ligne, il faut remplir les champs pour la date.

J'aimerais, si c'est possible, que lorsque l'on coche une des deux case à cocher (soit OUI, soit NON), que la date du jour s'inscrive automatiquement. Et si aucune case n'est cocher, alors la date reste sous forme ../../..

Pouvez-vous m'aider?

Merci d'avance

[Heureux-oli]

Dans les propriétés des ChexBox, on peut effectuer certaines actions.

Tu dois avoir un signet sur la date, et si une action est effectuée sur la case à coher, on affecte une date au signet au travers d'une macro.

Code :

1
2
3
4
5
6
7
8
Sub CHK1()
ActiveDocument.Unprotect
ActiveDocument.Bookmarks("SCheck1").Select
Selection.TypeText Date
 
ActiveDocument.Protect (wdAllowOnlyFormFields)
 
End Sub

Ou encore.

Code :

1
2
 
ActiveDocuemnt.BookMarks("SCheck1").Range.Text = Date