Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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"
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.