user_mobilelogo

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'hui1047
Hier3162
Cette semaine14297
Ce mois35013
Total depuis 200411611132

50
visiteurs actuellement en ligne

13 décembre 2019