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.

Statistiques

Aujourd'hui707
Hier2251
Cette semaine5482
Ce mois31629
Total depuis 200410649066

30
visiteurs actuellement en ligne