Bonjour
C'est parfait l'affichage du message, le message ne s'affiche que pour les livraisons de la journée qui sont validées ou même pour celles en attente?
Oui pour toutes les livraisons validées ou non
Voici ce qu'il faut faire dans le fichier
1. Allez dans la Sub SoumettreDemande()
2. Juste entre l'instruction On Error GoTo 0 et tablo(2)=...., rajoutez cette ligne
Call verification(ddate)
3. Ensuite dans ce module, rajoutez cette nouvelle macro
Sub verification(ddate As String)
Dim c As Range
Dim prem As String
Dim valeur
With Range("Tab_demande_livraison").ListObject.ListColumns(2).Range
Set c = .Find(CDate(ddate), LookIn:=xlValues)
If Not c Is Nothing Then
prem = c.Address
Do
If valeur = vbNullString Then
valeur = c.Offset(0, 4).Text & " - " & c.Offset(0, 1).Text & " à " & c.Offset(0, 2).Text
Else: valeur = valeur & vbCrLf & c.Offset(0, 4).Text & " - " & c.Offset(0, 1).Text & " à " & c.Offset(0, 2).Text
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> prem
End If
End With
If valeur = 0 Then MsgBox "Aucune livraison prévue pour le jour choisi", vbInformation, "Etat de livraison": Exit Sub
If MsgBox("Livraison(s) déjà prévue(s) ce jour de " & vbCrLf & valeur & vbCrLf & vbCrLf & _
"Voulez-vous enregistrer la demande de livraison ?", vbYesNo + vbDefaultButton2 + vbCritical, "Etat de livraison") = vbNo Then End
End Sub
Si pas de livraison trouvée pour le jour choisi, un message vous en informe également
Crdlt