Couleur en VBA
Bonjour
je voulais créer un petit programme pour mettre des cellule en couleur le text
Sub Worksheet_Change(ByVal Target As Range)
'******** couleur******
Dim I As Integer, Couleur As Integer
For I = 3 To 14
With Cells(6, I)
If .Value >= Cells(8, I) Then
Couleur = 4 ' Vert
Else
Couleur = 3 ' Rouge
End If
.Font.ColorIndex = Couleur
End With
Next I
'******* update ok **********
End Sub
Pouvez vous me dire si je n'ai pas fait d"erreur . il ne fonctionne pas
en faite je souhaite que si la colonne C6 est suppérieur à C8 il met en vert sinon en rouge idem pour les cellule D6 avec D8....jusqu'a N6 avec N8
Je vous en remerci en avance.
cordialement
Bonjour
Pas de souci, ce code fonctionne bien
Bonjour,
Pourquoi ne pas utiliser une Mise en forme conditionnelle pour cela ?
Bonjour
je trouve cela trop long.
?
Je ne vois pas en quoi, c'est ce qui me paraît le plus rapide.
Et le moins "encombrant" par la suite.