Mise en forme conditionnelle sous VBA
Bonjour,
J'ai besoin de créer plus de 3 mises en forme conditionnelle sous Excel 2003, et je bloque sur la création de macro (je pense avoir fait le tour des sites/forums proposant des solutions pour des problèmes similaires mais n'ai pas réussi à appliquer les solutions à mon cas).
Je voudrai qu'en fonction de la valeur d'une cellule, la couleur de fond de la ligne varie.
Plus précisément, les cellules de la colonne BK peuvent prendre comme valeurs : "ACCEPTE","LITIGE","ATTENTE DR","EN COURS" et "RETARD". Je souhaite que lorsque la valeur est "ACCEPTE" la ligne soit verte, "LITIGE" en rouge,...
Je vous remercie par avance pour votre aide!!!!
Bonsoir,
essaie ceci:
Sub MFC()
Dim i As Integer
For i = 1 To 100
Select Case Cells(i, 1)
Case "accepte"
Cells(i, 1).Interior.ColorIndex = 4
Case "litige"
Cells(i, 1).Interior.ColorIndex = 8
Case .......
End Select
Next i
End Sub
en insérant sur le même modèle les cas que tu souhaite traiter et en adaptant à la
colonne que tu souhaite traitée.
Cordialement
Bonsoir,
Merci pour votre aide!
J'ai réussi avec la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(64)) Is Nothing Then Exit Sub
Couleurs_lignes().Target
End Sub
Sub Couleurs_lignes()
'
' Macro1 Macro
'
'
Sheets("BDC").Select
'
Dim Ligne As Integer, Colonne As Integer
Dim i As Long, j As Long
Dim LigneMin As Integer, LigneMax As Integer
Dim ColonneMin As Integer, ColonneMax As Integer
'
LigneMin = 1: LigneMax = 400
ColonneMin = 1: ColonneMax = 64
'
For i = LigneMin To LigneMax
For j = ColonneMin To ColonneMax
Select Case Cells(i, 64).Value
Case Is = "TERMINE"
Range(Cells(i, 11), Cells(i, 64)).Interior.ColorIndex = 55
Case Is = "LITIGE"
Range(Cells(i, 11), Cells(i, 64)).Interior.ColorIndex = 3
Case Is = "ATTENTE DR"
Range(Cells(i, 11), Cells(i, 64)).Interior.ColorIndex = 44
Case Is = "RETARD"
Range(Cells(i, 11), Cells(i, 64)).Interior.ColorIndex = 8
End Select
Next j
Next i
End Sub