Voila j'ai fait cet exemple, mais les cellules sont tout le temps en jaune ...
http://cjoint.com/?jnaXyut6BF
Apitos
Merci JB.
Je voulais que le test soit fait sur la date inferieur la plus proche à la date d'aujourd'hui, dans toute la Col A des date, et non pas seuleument sur A3 ...
Sub auto_open()
al = Sheets(1).[A3] - Date If al = 1 Or al = 0 Then MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = 3 ElseIf al > 1 And al <= 3 Then MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = 4 Else MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = xlNone End If End Sub
Merci.
Merci JB.
Je voulais que le test soit fait sur la date inferieur la plus proche
à la date d'aujourd'hui, dans toute la Col A des date, et non pas
seuleument sur A3 ...
Sub auto_open()
al = Sheets(1).[A3] - Date
If al = 1 Or al = 0 Then
MsgBox "Alerte à " & al
Sheets(1).Tab.ColorIndex = 3
ElseIf al > 1 And al <= 3 Then
MsgBox "Alerte à " & al
Sheets(1).Tab.ColorIndex = 4
Else
MsgBox "Alerte à " & al
Sheets(1).Tab.ColorIndex = xlNone
End If
End Sub
Je voulais que le test soit fait sur la date inferieur la plus proche à la date d'aujourd'hui, dans toute la Col A des date, et non pas seuleument sur A3 ...
Sub auto_open()
al = Sheets(1).[A3] - Date If al = 1 Or al = 0 Then MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = 3 ElseIf al > 1 And al <= 3 Then MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = 4 Else MsgBox "Alerte à " & al Sheets(1).Tab.ColorIndex = xlNone End If End Sub