Bonjour,
Lorsque tu fais le contrôle de toutes les infos obligatoires, tu mets effectivement un msg d'erreur, mais tu ne stoppes pas le déroulement...
Et l'usf se ferme après l'ajustement des colonnes et le tri...
Rajoute "Exit Sub" après chaque contrôle dès qu'un cas "non conforme" se présente.
Par exemple :
.....
......
If Len(Me.Lb_Patient) = 0 Then
TxtAlerteFrmPatient = "Veuillez sélectionner un CODE MATRICULE"
Me.Lb_Patient.SetFocus
Exit Sub 'rajoute cette consigne pour arrêter le code, et rester sur l'info manquante
......
......
Bon courage