Sujet Précédent Sujet Suivant

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 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 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
A voir également:

5 réponses

Réponse 1 / 5
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
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?
0
Réponse 2 / 5
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
Non cette solution n'est pas viable quand tu as 400 documents et d'autres à en venir
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
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?
0
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 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024
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.
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > 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
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
0
Réponse 3 / 5
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 
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.
0
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
Peut-être qu'il faut passer par une macro, je ne sais pas.
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > 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
peux-tu partager un document représentatif?
0
Réponse 4 / 5
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
Comment partager un fichier ?
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
4 sept. 2020 à 12:03
le publier sur internet (cjoint.com, googe drive, ...), et partager le lien ici.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
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
https://www.developpez.net/forums/d2090293/logiciels/microsoft-office/word/vba-word/mise-jour-champs-automatiques/
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
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.
0

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses