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 .
Merci d'avance
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![]()
Partager