Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
-
8 mai 2017 à 20:19 - Dernière réponse : Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
- 29 mai 2017 à 14:56
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é
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention - 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
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention - 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
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
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)
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention -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
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
>
m@rina14183
Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut
22 avril 2018
Dernière intervention -16 mai 2017 à 14:34
Hydr0s1624
Messages postés lundi 24 janvier 2011Date d'inscription
15 avril 2018
Dernière intervention -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...
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
>
Hydr0s1624
Messages postés lundi 24 janvier 2011Date d'inscription
15 avril 2018
Dernière intervention -16 mai 2017 à 18:45
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
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.
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
>
Hydr0s1624
Messages postés lundi 24 janvier 2011Date d'inscription
15 avril 2018
Dernière intervention -29 mai 2017 à 14:46
Bonjour
J'utilise la version famille et petite entreprise 2013
Voici ce que je vois quand j'essaie d'ouvrir le fichier:
Manouet13
Messages postés lundi 8 mai 2017Date d'inscription
29 mai 2017
Dernière intervention
>
m@rina14183
Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut
22 avril 2018
Dernière intervention -29 mai 2017 à 14:56
Bonjour Marina,
désolé du délai, j'étais absente.
J'utilise la version 2013 famille et petite entreprise et je n'arrive toujours pas à ouvrir le document corrigé. :(
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
Je ne le comprends pas vraiment
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