Discussion :

[JuniorWatch]

Bonjour à tous,

Je cherche à afficher une msg box en cas de bug.

J'ai codé en VBA une interface (formulaire) et il m'est déjà arrivé, en cas de surcharge de mon PC, que le code ne s'exécute pas complètement et affiche des messages d'erreurs (les messages indique une ligne du code en particulier, c'est à dire la ligne à laquelle le code ne peut plus, par manque de capacité à s'exécuter).

Existe - il un code pour afficher une message box (type : MsgBox "Problème de capacité") en cas de problème ?

Je pense que c'est On error Goto, mais où l'afficher ? Dans chaque partie du code (chaque sub a son on error goto) ?

Merci à vous,

Julien.

[jerome.vaussenat]

Salut,

Pour la gestion des erreurs dans un code, il y a un très bon tuto ici :
http://silkyroad.developpez.com/VBA/...nErreurs/#LIII

C'est effectivement du style on error resume next pour désactiver le messages d'Excel et en suite un petit test pour avoir un message perso.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If num.err <> 0 then
    msgbox "oups"
end if

Bonne lecture à toi et bonne journée.

[Menhir]

Je pense que c'est On error Goto , mais ou l'afficher ? Dans chaque partie du code (chaque sub à son on error goto) ?

Sur les points d'entrée de ton code. C'est-à-dire en début de chaque Sub "racine".
Ne connaissant pas la structure de tes macro ni ce qui les lance, difficile d'en dire plus.

[Zekraoui_Jakani]

Tu peux exécuter le programme pas à pas (touche F8) pour repérer la ligne incriminée, ou bien mettre un gestionnaire d'erreur juste en dessous de ligne sub xxxxx(), du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MaProcedure()
    On Error GoTo GestionErreurs
    'lignes d'exécution
    '.......................................
    '.......................................
 
GestionErreurs_Exit:
    Exit Sub
 
GestionErreurs:
    MsgBox Err & " " & Error
    Resume GestionErreurs_Exit
 
End Sub