Prob avec répitition de macro.

[olive]

Voila, g fait une macro qui me change la couleur du texte d'une cellule en fonction de la valeur de cette cellule. La voila :

Private Sub Worksheet_Change(...)
If range("L13").Value <= "0,85" Then
Range("L13").Font.ColorIndex = 3
ElseIf Range("L13").Value >= "0,95" Then
Range("L13").Font.ColorIndex = 3
Else
Range("L13").Font.ColorIndex = 5
End If
End Sub

Cette macro marche très bien.
Mon prob, c'est que dans le feuille ou elle est placée, je dois l'appliquer à 365 cellules (autant que de jours de l'année).

Certes, avec des ElseIf, je peux la répéter 365 fois, mais ca me parait un chouilla lourd.

Y'a-t-il un moyen de l'appliquer à plusieurs cellule d'un coup en gardant en compte les conditions?

Merci d'avance.

 

[Yvette]

Pour changer la couleur d'une cellule en fonction d'une valeur il y a la Mise en Forme Conditionnelle qui est bien plus simple.

 

[Ti]

Comme tu n'as que 3 conditions très simples dans ta macro, laisse la tomber et utilise un format conditionnel (menu Format/mise en forme conditionnelle). Tu sélectionnes toutes les cellules auxquelles appliquer le format, et ainsi tu fais tout ça en une seule opération.

 

[olive]

Je ne connaisais pas cette fonctionnalité.
Très efficace, merci