Re : céation message d'alerte date
Bonjour
Appuyer sur ALT+F11 pour passer en mode VBA
dans THISWORKBOOK copier les lignes ci dessous
Private Sub Workbook_Open()
For lig = 9 To 34 'boucle de la ligne 9 à la ligne 34
If Cells(lig, 4).Value > Date + 30 Then
MsgBox "passage aux mines pour véhicule " & Cells(lig, 2).Value, vbOKOnly, "ATTENTION!"
End If
If Cells(lig, 5).Value > Date + 30 Then
MsgBox "CONTROLOGRAPHE pour véhicule " & Cells(lig, 1).Value, vbOKOnly, "ATTENTION!"
End If
Next
End Sub
Cette macro se déclenchera au lancement du fichier...
A+ François