Bonjour a tous ,

Voila ma macro qui devrait colorier les cellules présente en colonne 8 si la date colonne " est dépassée et si la cellule colonne 8 est vide .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Integer
Dim cellu As Range
Ligne = 4
 
With Sheets("Suivi")
        For Each cellu In Range("C4:C5000")
 
        If .Cells(Ligne, 3).Value < Date & .Cells(Ligne, 8).Value = "" Then
 
            .Cells(Ligne, 8).Interior.Color = RGB(250, 0, 0)
            Ligne = Ligne + 1
 
        End If
 
        Next cellu
 
End With
End Sub
Merci d'avance