Discussion :

[yoannjap]

Bonjours chers forumers,

Je souhaiterai faire ceci dans un document Word (2016) :
- Lorsque je coche une case, le texte qui est à côté de cette case se surligne en vert.
- Lorsque que je laisse la case décochée, le texte est surligné en jaune, car un texte qui côtoie une case à cocher est par défaut surligné en jaune.

Pour cela, j'ai découvert qu'il y a dans le ruban l'onglet "développeurs", à partir duquel, dans la partie "contrôles", on peut cliquer sur l'icône d'"outils hérités" et choisir "case à cocher (contrôle de formulaire)".

Mais je ne sais pas du tout me servir des macros (si c'est cela qu'il faut utiliser pour répondre à mon besoin).
Quelqu'un pourrait-il m'aider là-dessus, me donner quelques pistes ?

Un immense merci pour votre appui !

Yoannjap

[Invité]

Bonjour,

Une solution possible dans le fichier joint contenant des macros (Word 2010).

Deux méthodes proposées :

- On change la couleur de fond de la case à cocher en fonction de la valeur.
- On change la couleur du surlignage du texte d'un signet associé à la case à cocher.


Pièce jointe 223265

Pour cela, le document joint contient des macros (Alt-F11 pour accéder à l'éditeur VBA).

Dans le module ThisDocument du fichier, on a deux macros événementielles qui se déclenchent sur clic

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Explicit
 
Private Sub Checkbox1_Click()
    With CheckBox1
         If CheckBox1 = True Then
            .BackColor = RGB(0, 255, 0)
         Else
            .BackColor = RGB(255, 255, 0)
         End If
    End With
End Sub
 
Private Sub CheckBox2_Click()
    With CheckBox2
         If CheckBox2 = True Then
           SurlignerLeSignetCheckBox2 True
         Else
           SurlignerLeSignetCheckBox2 False
         End If
    End With
End Sub

La première macro Checkbox1_Click correspond à la première méthode, on change simplement la couleur de fond du contrôle en fonction de sa valeur.

La macro CheckBox2_Click active la macro SurlignerLeSignetCheckBox2 qui se trouve dans le module NewMacros du fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
 
Sub SurlignerLeSignetCheckBox2(ByVal Etat As Boolean)
 
    If Etat = True Then
       ActiveDocument.Bookmarks("TextCheckBox2").Range.HighlightColorIndex = wdBrightGreen
    Else
       ActiveDocument.Bookmarks("TextCheckBox2").Range.HighlightColorIndex = wdYellow
    End If
 
End Sub

Dans cette macro, en fonction de la valeur de la case à cocher, on sélectionne le signet qui s'appelle TextCheckBox2 et on lui applique la couleur désirée.

Ci-joint, le fichier exemple : Pièce jointe 223266

C'est sans doute la deuxième méthode qui vous intéressera le plus.

Cordialement.

[Invité]

Bonjour,

Avez-vous réglé votre problème ?

Cordialement.