Fermeture automatique en cas d'erreur

herve62

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2019

• #2

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"

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 19 Mars 2019

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2019

• #4

Bonsoir anass1, herve62,

VB:

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+

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 20 Mars 2019

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mars 2019

• #6

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

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 20 Mars 2019

• #7

D'accord merci beaucoup

 

Vote positif 0 Vote négatif