Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui2580
Hier2621
Cette semaine5201
Ce mois45446
Total depuis 200410835980

14
visiteurs actuellement en ligne