Perso, par sécurité, je ne chargerai pas de macro.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Réserver_Click() Dim Nombre As Long, Boucle As Long, Limite As Long Select Voiture_libelle_reservation ( Formulaire ) if Date départ( Formulaire ) >= Date départ ( dans la table par rapport à la voiture sélectionnée ) and Date retrou ( Formulaire )<= Date retroue ( dans la table par rapport à la voiture sélectionnée ) Else MsgBox ("Véhicule deja réserver pour cette date") End Sub