InputBox - Boutons OK/Annuler

Bonjour à tous !

Je travaille actuellement avec une InputBox qui me demande de saisir la date d'une réunion.

Je souhaiterais créer une boucle avec plusieurs issues selon mes choix :

1 - Si bouton Annuler ou Croix (en haut à droite) --> Exit Sub

2 - Si bouton OK mais aucune saisie --> MsgBox "Veuillez saisir une date." --> Retour à l'InputBox

3 - Si bouton OK mais format de date non valide --> MsgBox "Veuillez saisir un format de date valide : jj/mm/aaaa.) --> Retour à l'InputBox

4 - Si bouton OK et format de date valide --> afficher la date en A1.

J'ai une ébauche (Cf Fichier Joint) mais très loin de ce que je souhaite avoir...

Si vous pouvez m'aider à résoudre ce problème

Merci beaucoup !

Bonjour à tous,

En attendant vos réponses j'ai continué de travailler sur le sujet, il ne me manque maintenant que l'étape 4 puisque même quand je rentre un format de date valide, la MsgBox s'ouvre pour me dire que ce n'est pas le bon format...

Si vous avez une idée pour résoudre cette dernière étape

Ci-joint l'avancée du fichier

Merci !

Bonjour,

Une piste :

Sub Date_()

    Dim date_reunion

boucle:
    date_reunion = InputBox("Veuillez renseigner la date de la réunion.")

    'bouton Annuler = chaîne vide même si le champ est rempli
    'de même pour le bouton OK si le champ est laissé vide
    If date_reunion = "" Then Exit Sub

    If IsDate(date_reunion) = False Then

        If MsgBox("Vous devez entrez un format de date valide : jj/mm/aaaa ! " & _
                  vbCrLf & _
                  "Voulez-vous réessayer ?", vbExclamation + vbYesNo) = vbYes Then GoTo boucle

    End If

    Range("A1").Value = DateValue(date_reunion)
    Range("A1").NumberFormat = "dd-mmm-yyyy"

End Sub

Bonjour These,

Merci beaucoup pour l'aide apportée, c'est parfait

Mais je t'en prie, ça a été avec plaisir !