Gestion des erreurs

[sscouby]

Bonjour,
Je développe un petit programme en VBA. Je voulais savoir comment faire pour que en cas de bug du programme l'utilisateur ne se voit pas proposer la fameuse fenêtre "fin /debogage.."
Existe t il une sorte de "on error go to " mais général à tout le projet (user_form, modules et le document).
Par avance merci.


PS : je sais bien que le mieux c'est que ca buggue pas mais quand les utilisateurs ne savent pas se servir d'une souris on peut pas tout gérer

[Lou Pitchoun]

Salut,

Voilà une fonction à utiliser.

[sscouby]

J'ai copié le code dans un module que j'ai nommé "gestion_erreur" mais ca a pas l'air de marcher...;
est ce qu'il faut que je rajoute dans chaque procedure
On Error GoTo SUB_Display_Error
Par avance merci,

[Lou Pitchoun]

Je t'ai donné une réponse rapide

En fait, pour chaque procédure que tu vas écrire, tu devras y insérer :

 
Sub mafonction/routine()
On Error Goto err
 
    'code de la fonction/routine
 
 
err:
    Select Case err.Number
        Case 0
        Case Else
            SUB_Display_Error(err.Number As Integer, err.Description As String _
                , err.Source As String, "Nom du module" As String, "Nom fonction" As String)
    End Select
 
End Sub

[sscouby]

Ok !
je trouve que c'est quand même un peu lourd. Si il n'y a que ca comme solution...
J'ai quand même une cinquantaine de procédures & fonctions...
Il n'y a donc pas moyen de faire ca de manière plus générale ! genre une option du projet vba "ne pas proposer le débugage" parce que moi ce que je veux c'est juste faire un "end" en cas d'erreur...

[Lou Pitchoun]

Alors,

On Error Resume Next

Seulement, s'il y a une erreur, tu n'auras plus rien pour te dire "Y a une erreur ici"

[sscouby]

et ca il faut le mettre aussi dans chaque procedure ?

en tout cas merci de ton aide

[Lou Pitchoun]

Soit tu gères les erreurs (mon 1er post) soit tu "sautes" les erreurs (mon second post). Tu ne peux pas faire les 2