Voici une macro qui colore les cellules du premier tableau du document en fonction de leur contenu :
- en vert brillant pour les cellules qui contiennent le mot "Paris"
- en jaune brillant pour les cellules qui contiennent le mot "Marseille"
- en bleu pâle pour les cellules qui contiennent le mot "Strasbourg"
Sub couleurs()
'macro écrite par m@rina
Dim cellule As Cell, ligne As Row, ville
For Each ligne In ActiveDocument.Tables(1).Rows
For Each cellule In ligne.Cells
With cellule.Shading
Select Case ville
Case ville = InStr(1, cellule.Range.Text, "Paris")
.BackgroundPatternColor = wdColorBrightGreen
Case ville = InStr(1, cellule.Range.Text, "Marseille")
.BackgroundPatternColor = wdColorLightYellow
Case ville = InStr(1, cellule.Range.Text, "Strasbourg")
.BackgroundPatternColor = wdColorPaleBlue
End Select
End With
Next
Next ligne
End Sub
Notez que la casse doit être respectée.