je ne sais pas pourquoi ma macro ne fonctionne pas elle se semble correcte
la voici Private Sub Workbook_Open()
Dim i As Integer
Dim i_dateadhesion As Integer
Dim dateadhesion As Date
i_dateadhesion = 0
For i = 2 To Sheets(“DATES”).Range(“d” & Rows.Count).End(xlUp).Row
dateLigne = CDate(Sheets(“DATES”).Cells(i, 4))
dateLigne1 = CDate(Sheets(“DATES”).Cells(i, 3))
If Not IsEmpty(Sheets(“DATES”).Cells(i, 4)) = True Then
Select Case Date - dateLigne
Case Is >= 365
Sheets(“DATES”).Cells(i, 4).Interior.ColorIndex = 10
i_dateadhesion = i_dateadhesion + 1
Case 354 To 364
Sheets(“DATES”).Cells(i, 4).Interior.ColorIndex = 45
Case Else
Sheets(“DATES”).Cells(i, 4).Interior.ColorIndex = 2
End Select
Else
Select Case Date - dateLigne1
Case Is >= 365
Sheets(“DATES”).Cells(i, 4).Interior.ColorIndex = 10
Case 354 To 364
Sheets("DATES").Cells(i, 4).Interior.ColorIndex = 45
Case Else
Sheets("DATES").Cells(i, 4).Interior.ColorIndex = 2
End Select
End If
Next i