user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

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'hui950
Hier820
Cette semaine950
Ce mois45682
Total depuis 200411028442

14
visiteurs actuellement en ligne