Quelqu'un peut il m'aider a colorier chaque cellule d'une colonne de type Number, en vert si le nombre
est superieur a 6 et en rouge si le nombre est inferieur ou egale a 6 en VBA
Sans nommer les cellules concernées mais en faisant référence à la colonne B :
Code:
Sub Auto_Open()
For Each c In Range("B:B")
If c = "" Then Exit Sub
If IsNumeric(c) And c <= 6 Then c.Interior.ColorIndex = 3
If IsNumeric(c) And c > 6 Then c.Interior.ColorIndex = 43
Next
End Sub
Oui mon fichier est la. Comme vous pouvez le voir, quand j'ajoute des nouveaux elements, il colorie les tout en rouge donc ne respecte plus la condition.