MsgBox en cas de beug

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.

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:

---

1 2 3

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

---

Bonne lecture à toi et bonne journée.

Citation:

---

Envoyé par JuniorWatch

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.

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:

---

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

---