Mise en forme conditionelle

[adjovi7]

Bonjour,
Je viens sollicité votre aide pour résoudre un petit souci de réalisation d'une MFC VBA sur mon code

Selon l'état de ma colonne A j'applique une couleur sur toute la ligne a ce niveau pas de souci.
mais j'arrive pas a a mettre en ouvre 2 critères conditionnelle c'est a dire la colonne A et colonne G

j'aimerais appliquer une couleur jaune a la ligne "ATTENTE PO" et date du jour moins 15 jours
les dates sont en colonne "G"

couleur rose pour date du jour moins 30 jours
couleur rouge pour date du jour moins 90 jours


Sub Macro1()

Application.ScreenUpdating = False
Dim FL1 As Worksheet, Cell As Range, Plage As Range, NoCol1 As Integer
Dim Var1
Dim Var2 As Integer


Set FL1 = Worksheets("Feuil1")
With FL1
Set Plage = .Range("A1:A65356")
Plage.Offset(, 1).Resize(, 16).Interior.ColorIndex = xlNone

For Each Cell In Plage

If Cell <> "" Then
Var1 = Cell.Value

If Var1 = "ATTENTE PO" And Date - 15 Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 27
If Var1 = "REFUSE" Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 15
If Var1 = "ANNULE" Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 15


End If
Next Cell
End With
Set FL1 = Nothing
Set Plage = Nothing

Application.ScreenUpdating = True
End Sub


merci pour votre aide

 

[Bebere]

Re : Mise en forme conditionelle

bonjour adjovi
bienvenue
un essai qui te viendra en aide

Sub Macro1()

Application.ScreenUpdating = False
Dim FL1 As Worksheet, Cell As Range, Plage As Range, NoCol1 As Integer
Dim Var1
Dim Var2 As Integer


Set FL1 = Worksheets("Feuil1")
With FL1
Set Plage = .Range("A1:A65356")
Plage.Offset(, 1).Resize(, 16).Interior.ColorIndex = xlNone

For Each Cell In Plage

If Cell <> "" Then

diff = Date - Cell.Offset(, 6).Value
If Cell.Value = "ATTENTE PO" Then
If diff <= 15 Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 27 'jaune
If diff > 15 And diff <= 30 Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 26
If diff > 30 And diff <= 90 Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 3
End If

If Cell.Value = "REFUSE" Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 15
If Cell.Value = "ANNULE" Then Cell.Offset(, 1).Resize(, 16).Interior.ColorIndex = 15


End If
Next Cell
End With
Set FL1 = Nothing
Set Plage = Nothing

Application.ScreenUpdating = True
End Sub

 

[adjovi7]

Re : Mise en forme conditionelle

Bonjour Bebere
Merci pour votre aide