Recherche

Voici un exemple de 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

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

Total:

66

Pays
018274372
Aujourd'hui: 12
Hier: 145
Cette semaine: 695
Semaine dernière: 783
Ce mois: 2.634