Word et les cases à cochées

Fermé
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017 - 8 mai 2017 à 20:19
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017 - 29 mai 2017 à 14:56
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
A voir également:

4 réponses

Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
8 mai 2017 à 22:40
Salut,

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

Par contre, en html/css, c'est très simple ^^
2
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
9 mai 2017 à 13:35
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
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
9 mai 2017 à 16:05
Tu peux t'inspirer de ce code qui sert à masquer un paragraphe lors de la coche d'une case (en anglais)
0
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
9 mai 2017 à 17:00
Ce n'est pas très simple ça? il y a beaucoup de code.
Je ne le comprends pas vraiment
0
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
9 mai 2017 à 17:01
Il n'y a pas de solutions simples pour le faire... C'est pour quelle utilisation ?
0
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
9 mai 2017 à 17:05
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
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
9 mai 2017 à 18:16
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
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
12 mai 2017 à 13:55
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
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
13 mai 2017 à 00:04
Quel est le message d'erreur ? Normalement, il ne devrait pas en avoir même si la macro a une erreur...
0
m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
13 mai 2017 à 00:29
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
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
15 mai 2017 à 19:03
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
m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
15 mai 2017 à 23:05
Sans voir ton document, on ne peut en dire plus.
Tu peux le mettre ici :
https://www.cjoint.com/
0
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017 > m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024
16 mai 2017 à 14:34
https://www.cjoint.com/c/GEqmHZJuZNw

Voilà Merci beaucoup Marina
0
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
16 mai 2017 à 18:12
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
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017 > Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022
16 mai 2017 à 18:45
https://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
m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
17 mai 2017 à 01:08
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
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
17 mai 2017 à 13:29
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
Manouet Messages postés 13 Date d'inscription lundi 8 mai 2017 Statut Membre Dernière intervention 29 mai 2017
19 mai 2017 à 14:37
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
m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
20 mai 2017 à 04:11
Bonsoir,

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

m@rina
0
Hydr0s Messages postés 1678 Date d'inscription lundi 24 janvier 2011 Statut Membre Dernière intervention 24 août 2022 672
20 mai 2017 à 14:13
Par hasard, quelle version de word utilises-tu ?
0
m@rina Messages postés 20033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
20 mai 2017 à 15:05
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