WORD actualisation cases tableau

Résolu
Adiren Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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   Statut Membre Dernière intervention   2
 
Non cette solution n'est pas viable quand tu as 400 documents et d'autres à en venir
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
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   Statut Membre Dernière intervention   2 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Adiren Messages postés 40 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   2
  
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   Statut Membre Dernière intervention   2
 
Peut-être qu'il faut passer par une macro, je ne sais pas.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Adiren Messages postés 40 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu partager un document représentatif?
0
Réponse 4 / 5
Adiren Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   2
 
Comment partager un fichier ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
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   Statut Membre Dernière intervention   2
 
https://www.developpez.net/forums/d2090293/logiciels/microsoft-office/word/vba-word/mise-jour-champs-automatiques/
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
merci de nous informer dès le départ quand tu poses la même question sur un autre forum.
0