O
olive
Guest
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.
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.