Word et les cases à cochées

Bonjour,

Voici mon problème:
Je désire utiliser les cases à cochées pour des inclusions et exclusions d'une soumission.
Pour ajouter la case à coché ça va, mais je veux que lorsque la case est coché que le texte suivant devienne en gras.
Et lorsque la case est non coché que le texte suivant reste gris pâle
Ce texte est activé
Ø Ce texte est désactivé

J'espère que quelqu'un pourras m'aider

Merci d'avance

4 réponses

  1. Salut,

    Ce n'est pas possible dans word à moins de faire une macro...

    Par contre, en html/css, c'est très simple ^^
    2
    1. Bonjour,
      Merci pour votre réponse rapide, Je sais faire des macro avec excel mais seulement avec l'aide de l'enregistrement.
      Pourriez vous m'aider à construire celle que j'ai besoin pour word?
      Merci beaucoup
      0
    2. Tu peux t'inspirer de ce code qui sert à masquer un paragraphe lors de la coche d'une case (en anglais)
      0
    3. Ce n'est pas très simple ça? il y a beaucoup de code.
      Je ne le comprends pas vraiment
      0
    4. Il n'y a pas de solutions simples pour le faire... C'est pour quelle utilisation ?
      0
    5. L'utilisation que je veux en faire est :
      lorsque j'ai une case de coché le texte suivant apparait en gras c'est pour des soumissions les inclusions et les exclusions. Donc ce que reste grisé (non coché) sont des exclusions.
      Je veux faire un modèle type ou je n'aurai pas à transcrire ces données pour chacune.
      chaque texte ne dépasse pas 2 lignes par case à coché
      Je ne sais pas si je suis claire dans mes explications
      0
  2. La solution en vidéo : https://www.youtube.com/watch?v=_sfHY82H8eg

    Pour résumé :
    • Créer un tableau et insérer un contrôleur de contenu de type case à cocher et un texte par cellule
    • Copier/coller le code ci-dessous dans ThisDocument (à partir de Alt+F11 / Visual Basic dans l'onglet developpeur, et dérouler Microsoft Object Document)
    • C'est tout, et ça marche. Attention, le code nécessite de rentrer et de sortir la souris entre chaque coche, un double clic cocher/décocher peuvent faire apparaître des erreurs


    Elle est inspirée du post de m@rina sur le forum faqword.com. Le code à copier/coller est ci-dessous :
    Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    On Error Resume Next
    Dim ligne, cellule
    ligne = Selection.Information(wdEndOfRangeRowNumber)
    cellule = Selection.Tables(1).Rows(ligne).Cells(1)

    Select Case ContentControl.Checked
    Case True
    cellule.Shading.ForegroundPatternColor = RGB(253, 234, 218)
    cellule.Paragraphs(1).Range.Font.Bold = True
    Case False
    cellule.Shading.ForegroundPatternColor = RGB(255, 255, 255)
    cellule.Paragraphs(1).Range.Font.Bold = False
    End Select
    End Sub


    0
    1. Bonjour,

      Je suis désolé, mais cela ne fonctionne pas, j'ai toujours des messages d'erreur. J'ai copié exactement ta macro pourtant...

      De plus j'ai cherché les code de couleur sans succès

      Merci
      0
    2. Quel est le message d'erreur ? Normalement, il ne devrait pas en avoir même si la macro a une erreur...
      0
  3. Modérateur
    Bonjour

    Pour commencer, il faudrait déjà savoir quel type de cases à cocher tu as utilisé.. Il y a en de trois types :
    - Contrôle de contenu
    - Formulaire hérité
    - Contrôle ActiveX

    La macro données fonctionne avec un contrôle de contenu.
    Cela étant elle s'active à l'entrée alors qu'il faudrait qu'elle s'active à la sortie, c'est à dire une fois que tu as coché ou décoché, question de logique...

    Donc si tu as bien respecté le fait de mettre le contrôle dans une cellule de tableau, tu peux refaire cette macro en remplaçant uniquement le nom par
    Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)


    m@rina
    0
    1. Bonjour Marina,

      Je suis découragé, là je n'ai pas de message d'erreur, mais rien ne fonctionne
      J'ai bien les cases (Contrôle de contenu)
      J'ai copié en entier ta macro
      mais rien ne fonctionne
      je coche je décoche et rien ne se passe
      Je fais exécuter la macro, rien non plus

      Je ne sais pas quoi faire
      0
    2. Modérateur
      Sans voir ton document, on ne peut en dire plus.
      Tu peux le mettre ici :
      https://www.cjoint.com/
      0
    3. Comme précisé, il fallait mettre les lignes dans les cellules d'un tableau, ainsi qu'enregistré le fichier sous un format word compatible avec les macros...
      0
    4. @Hydr0shttps://www.cjoint.com/c/GEqqQTXhE8w

      J'ai fais les modifications, mais cela ne fonctionne toujours pas aussi je ne trouve pas les code pour la couleur de l'écriture grise ni pour la régulière en gras
      0
  4. Modérateur
    Bonsoir

    Voici le document corrigé
    https://www.cjoint.com/c/GEqxe7DB3pl

    En fait j'ai fini par résoudre le problème d'événement à l'entrée/sortie.
    A l'entrée la variable de la ligne est définie et elle est utilisée à la sortie pour colorer la cellule et mettre du gras.

    C'est toujours mieux de voir le document car je ne savais pas qu'il y avait deux colonnes par exemple.
    A noter qu'un document avec macro a obligatoirement une extension qui se termine par m (docm ou dotm pour les modèles) et qu'une macro événementielle se trouve dans ThisDocument.

    m@rina
    0
    1. Bonjour Marina,

      Tu es vraiment génial, toutefois il m'est impossible d'ouvrir le fichier que tu m'a envoyé.
      Il apparait mais est illisible

      :(
      0
    2. Bonjour Marina,

      Tu es vraiment génial, toutefois il m'est impossible d'ouvrir le fichier que tu m'a envoyé.
      Il apparait mais est illisible

      :(
      Pourrais-tu me le retourner svp

      Merci infiniment
      0
    3. Modérateur
      Bonsoir,

      J'ai téléchargé le fichier, et je n'ai aucun souci pour ouvrir ce fichier.
      Donc reessaie.

      m@rina
      0
    4. Par hasard, quelle version de word utilises-tu ?
      0
    5. Modérateur
      Testé avec 2016 et 2010.

      Ne fonctionnera pas avant 2010 du fait que les cases à cocher (contrôles de contenu) n'existaient pas.

      m@rina
      0