WORD actualisation cases tableau
Résolu/Fermé
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
-
3 sept. 2020 à 15:57
yg_be Messages postés 23476 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 février 2025 - 4 sept. 2020 à 13:06
yg_be Messages postés 23476 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 février 2025 - 4 sept. 2020 à 13:06
Bonjour, je contextualise, j'ai plusieurs documents word, chacun a 40 tableaux et chaque tableau contient 3 listes déroulantes. Les listes déroulantes ont plusieurs valeurs possibles.
J'ai réalisé un script VBA afin de changer la couleur du texte et du fond de la case en fonction de la valeur choisi. Tout fonctionne seulement qu'il faut cliquer sur la case pour mettre à jour la case.
Ma question : Est-il possible de mettre à jour tous les cases d'un coup à l'aide d'un script VBA ?
Merci d'avance
J'ai réalisé un script VBA afin de changer la couleur du texte et du fond de la case en fonction de la valeur choisi. Tout fonctionne seulement qu'il faut cliquer sur la case pour mettre à jour la case.
Ma question : Est-il possible de mettre à jour tous les cases d'un coup à l'aide d'un script VBA ?
Merci d'avance
A voir également:
- WORD actualisation cases tableau
- Tableau word - Guide
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Espace insécable word - Guide
- Supprimer une page word - Guide
5 réponses
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
Ambassadeur
1 568
3 sept. 2020 à 20:04
3 sept. 2020 à 20:04
bonjour,
probablement: ne suffit-il pas de parcourir tous les documents et, dans chacun, tous les tableaux et toutes les listes?
probablement: ne suffit-il pas de parcourir tous les documents et, dans chacun, tous les tableaux et toutes les listes?
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
3 sept. 2020 à 20:12
3 sept. 2020 à 20:12
Non cette solution n'est pas viable quand tu as 400 documents et d'autres à en venir
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
3 sept. 2020 à 20:17
3 sept. 2020 à 20:17
ne suffit-il pas d'écrire de code qui va parcourir tous les documents et, dans chacun, tous les tableaux et toutes les listes?
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
>
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
3 sept. 2020 à 20:20
3 sept. 2020 à 20:20
C'est ce que j'ai réalisé, mais les cases ne se mettent pas à jour automatiquement, c'est le problème que j'essaie de résoudre justement. Pour l'instant, les cases ne se modifie que si je double-clique dessus, ce que je ne veux pas faire.
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
>
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
3 sept. 2020 à 20:40
3 sept. 2020 à 20:40
peux-tu nous montrer le code que tu as écrit pour parcourir tous les documents?
tiens compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
tiens compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
4 sept. 2020 à 10:44
4 sept. 2020 à 10:44
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) With ContentControl.Range If ContentControl.Title = "Taille" Then Select Case .Text Case "Petit" .Cells(1).Shading.BackgroundPatternColor = wdColorGreen .Cells(1).Range.Font.TextColor = wdColorBlack Case "Moyen" .Cells(1).Shading.BackgroundPatternColor = wdColorRed .Cells(1).Range.Font.TextColor = wdColorBlack Case "Grand" .Cells(1).Shading.BackgroundPatternColor = wdColorBlack .Cells(1).Range.Font.TextColor = wdColorRed .Cells(1).Range.Font.Bold = True Case Else .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic .Cells(1).Range.Font.TextColor = wdColorBlack End Select End If End With End Sub
J'ai une liste déroulante qui se nomme "Taille", il y a 3 valeurs possibles "Petit", "Moyen", "Grand".
Je souhaite ouvrir le fichier, ajouter le script et que tous les couleurs se mettent à jour, sans avoir besoin de cliquer sur chaque liste.
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
4 sept. 2020 à 10:44
4 sept. 2020 à 10:44
Peut-être qu'il faut passer par une macro, je ne sais pas.
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
>
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
4 sept. 2020 à 11:22
4 sept. 2020 à 11:22
peux-tu partager un document représentatif?
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
4 sept. 2020 à 11:27
4 sept. 2020 à 11:27
Comment partager un fichier ?
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
4 sept. 2020 à 12:03
4 sept. 2020 à 12:03
le publier sur internet (cjoint.com, googe drive, ...), et partager le lien ici.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Adiren
Messages postés
40
Date d'inscription
samedi 3 septembre 2016
Statut
Membre
Dernière intervention
14 janvier 2022
2
4 sept. 2020 à 12:46
4 sept. 2020 à 12:46
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
Modifié le 4 sept. 2020 à 13:07
Modifié le 4 sept. 2020 à 13:07
merci de nous informer dès le départ quand tu poses la même question sur un autre forum.