Recherche

Peut-on faire en forme conditionnelle dans un tableau, comme pour Excel ?

La réponse est non. La mise en forme automatique en fonction du texte saisi dans un tableau n'existe pas dans Word, et n'espérez pas non plus une macro événementielle.

Par contre, on peut créer une macro qu'on lancera une fois la saisie faite.

Voici par exemple une macro qui va colorer en jaune les cellules de la deuxième colonne, du premier tableau, si celles-ci contiennent une croix (X) :

Sub colore_tablo()
'macro écrite par m@rina
Dim cellule As Cell, tablo As Table

Set tablo = ActiveDocument.Tables(1)
    For Each cellule In tablo.Columns(2).Cells
        If Left(cellule.Range.Text, 1= "X" Then
            cellule.Shading.BackgroundPatternColor = wdColorYellow
            Else: cellule.Shading.BackgroundPatternColor = wdColorAutomatic
        End If
    Next
End Sub

 

Pour appliquer ce code à tous les tableaux du document, on fera une boucle :

Sub colore_tablo2()
'macro écrite par m@rina
Dim cellule As Cell, tablo As Table
For Each tablo In ActiveDocument.Tables
    For Each cellule In tablo.Columns(2).Cells
        If Left(cellule.Range.Text, 1= "X" Then
            cellule.Shading.BackgroundPatternColor = wdColorYellow
            Else: cellule.Shading.BackgroundPatternColor = wdColorAutomatic
        End If
    Next
Next tablo
End Sub
 

 

 

Statistiques

France 73,9% France
Canada 7,7% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

94

Pays
018290714
Aujourd'hui: 116
Hier: 306
Cette semaine: 1.791
Semaine dernière: 1.764
Ce mois: 3.291