Code VBA
Bonsoir,
Le code ci joint fonctionne très bien, il met en couleur de fond la date et le nom du client dont l'expiration arrive dans 8jours. Si cette date est modifier la date repasse en couleur initiale met pas le nom, ??????
Sub Workbook_Open()
Sheets("base_client").Activate
derlig = Sheets("base_client").Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each C In Sheets("base_client").Range("P4:P" & derlig)
ecart = C - Date
C.Interior.ColorIndex = -4142
If ecart >= 5 And ecart <= 8 Then
MsgBox " le client " & C.Offset(0, -14) & " doit être relancer dans " & ecart & " jours" & vbLf & _
"Merci de prendre les dispositions nécessaires ", vbExclamation
C.Interior.ColorIndex = 3
C.Offset(0, -14).Interior.ColorIndex = 3
End If
Next
End SubC'est normal car il n'y a aucune instruction qui dit d'enlever la couleur dans la colonne b.
C.Interior.ColorIndex = -4142 --> fait référence aux cellules de la colonne P seulement...