Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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

Aujourd'hui495
Hier2693
Cette semaine3188
Ce mois21268
Total depuis 200410756676

34
visiteurs actuellement en ligne