Msgbox OK : plusieurs demandes de validation

Bonjour à tous,

Afin d'améliorer mon petit VBA, je souhaite ajouter une msgbox me disant que la date choisie est supérieure à une certaine durée, et que par conséquent, je revienne sur la page de saisie.

J'ai donc intégrer le code suivant :

If (Difdate > CDbl(180)) Then

MsgBox "La réservation n'est pas autorisée pour la date suivante : " + DateResa
Style = vbOK + vbQuestion

End If

Le problème, c'est que je dois cliquer plusieurs fois sur Ok, et qu'il me revoit vers ma listbox à la fin, alors que je veux retourner vers la page de saisie.

Comment régler ce problème ?

Merci !

Mélanie

Bonjour

Mélanie22 a écrit :

Comment régler ce problème ?

En joignant ton fichier et en détaillant les opérations à faire pour arriver à ton problème

Aaaaaarg ! Je vais essayer de rendre le doc anonyme !

Finalement, j'ai trouvé la solution !

Il suffisait d'ajouter Exit Sub !

If (Difdate > CDbl(180)) Then

MsgBox "La réservation n'est pas autorisée pour la date suivante : " + DateResa, vbCritical, "Réservation impossible"

Exit Sub

End If

Merci pour ta réponse quand même !