Fermeture automatique en cas d'erreur

[anass1]

Bonsoir à tous
Y a-t-il une méthode pour fermer automatique le classeur et USF en cas des erreurs dans les codes
Je veux dire quand il y a une erreur dans USF se ferme automatiquement
Merci

 

[herve62]

Bonsoir
au début tu mets dans ta sub de bouton valider :
"On Error GoTo gest_err
temp.Range("A4:H5000000").Delete Shift:=xlUp"
et à la fin de la sub :
"gest_err:
If Err.Number = 1004 Then Unload UserForm1
End Sub"

 

[anass1]

Bonjour
Merci pour votre attention herve62
Je souhaitais un code qui ferme le usf et classeur, peu importe le type d'erreur ou son emplacement.

 

[job75]

Bonsoir anass1, herve62,

Private Sub CommandButton1_Click()
On Error Resume Next
'-----
If Err Then ThisWorkbook.Saved = True: If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

A+

 

[anass1]

Bonsoir job75, Bonsoir à tous
Est ce que possible insérer ce code à un module pour appliquer au usf en général
L'erreur n'est pas nécessairement présente dans "CommandButton1", il peut être d'autre CommandButton ou textbox ...
Désolé pour le dérangement

 

[job75]

Non, il faut utiliser le code que j'ai indiqué dans toutes les macros que l'on veut contrôler.

 

[anass1]

D'accord merci beaucoup