bonjour,
serait il possible d'ajouter une couleur pour le message et changer la police.!!????
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub datedepart_BeforeUpdate(Cancel As Integer) If Weekday(Me.datedepart, vbSunday) > 5 Then MsgBox "un congé ne peut commencer un vendredi ou un samedi.", , "Annulé" Me.Undo Cancel = True End sub
Partager