Gestion d'erreurs userform excel vba

Bonjour,

Je rencontre un petit souci avec mes userforms concernant la gestion des erreurs. J'ai commencé par gérer les erreurs possibles en utilisant une fonction de validation des données (qui va vérifier au préalable que des numéros sont bien rentrés dans une case où doivent figurer des numéros par exemple).

Cependant, ce n'était pas suffisant et j'ai mis des On Error GoTo mais toujours en gérant au cas par cas. Par exemple, j'avais une combobox (de 1 à 6) qui fixait la taille d'un tableau qui apparaît sur l'userform et si l'utilisateur rentrait une lettre ça plantait (comme je faisais une boucle avec ma ComboBox.value)

Du coup j'ai mis un

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

On Error GoTo WrongValue   'code   WrongValue:   If Err.number = 13 Then MsgBox "Attention chaque liste à choix doit avoir une valeur numérique" ComboBox2.Value = 1 Resume Next End If

---

Mais bon, c'est toujours très ciblé. Par exemple, dans une autre fonction, je créé des répertoires en fonction d'un chemin défini par plusieurs textbox dans mon formulaire. J'avais pas prévu qu'un espace après le contenu de la textbox allait faire planter l'application.

Du coup, je corrige au fur et à mesure mais j'aimerais avoir une sorte de gestion d'erreur plus globale (qui ne soit pas définie dans chaque fonction ou sub) qui dise : si erreur, j'enregistre le numéro d'erreur et la ligne dans un fichier texte puis je quitte tout)

Le problème étant surtout que quand l'utilisateur utilise par exemple le débogage ou fin dans la fenêtre d'erreur, les fichiers excel ne se ferment pas correctement et cela force l'utilisateur à tuer les process excel dans le gestionnaire de tâche pour relancer le formulaire.

Pour l'instant j'ai contourné le problème avec un batch qui au préalable tue tous les process excel mais c'est pas super propre. J'espère avoir été clair. Merci

Bonjour,

Il y a beaucoup de questions là-dedans...
Pour les combobox, si c'est toi qui les charge, il ne devrait pas y avoir de texte.
Si l'utilisateur peut écrire dans le combobox, change la propriété Style pour DropDownList plutôt que DropDownCombo.

Oui, j'ai voulu être le plus exhaustif possible :mrgreen:

Merci pour la réponse, je n'ai pas pensé à vérifier les propriétés des combobox. Je vais du coup les modifier pour éviter ce genre d'erreurs.

Pour le reste, une chose que je n'ai pas précisé et qui a son importance, c'est que je lance le formulaire par un fichier batch (lié à un vbs). Du coup, le fichier excel n'est pas visible, ce qui explique que lorsque le formulaire plante et que l'utilisateur se sert de la commande débogage ou fin (puis finit par fermer l'interface). Mon formulaire se retrouve fermé mais pas le fichier excel. (j'espère être clair)

Au final, j'ai rajouté dans chaque sub/function, un on error goto fermeture

Avec fermeture qui va fermer sans sauvegarder tous les classeurs ouverts. Cependant, j'aimerais garder une trace de l'erreur (dans un text file par exemple) avec le numéro de l'erreur et si possible la ligne où se situe l'erreur.

La difficulté se situe sur le second point à savoir obtenir la ligne où ça plante. J'ai lu qu'il fallait utiliser une propriété ERL qui nécessite au préalable d'avoir numéroté son code? Je suis dans le bon?

Merci

Effectivement, la seule façon que je connaisse pour retracer la ligne est ERL.
Pour te faciliter la vie à numéroter les lignes, il existe un outil qui le fait pour toi MZ-Tools.
C'est un add-in qui te donne toutes sortes d'autres possibilités. Un must en ce qui me concerne...

bonjour,
regardes ça: http://www.developpez.net/forums/d14...e/#post7960942

Bonjour OursTortue
J'ai créé ce bout de code il y a quelque temps afin de pouvoir gérer les erreurs d'une macro utilisée par plusieurs personnes et qui me permettait de recevoir un mail avec les codes d'erreurs.
Seule contrainte, il m'a fallu numéroter toutes les lignes de mon code
J’espère que cela te sera utile et que tu pourras t'en inspirer

Code:

---

1 2 3 4 5 6 7 8

On Error Goto out   out: 59 ErrLOg = ErrLOg & "Erreur N° : " & Err.Number & "%0A" & "Description : " & Err.Description & "%0A" & "Ligne N° : " & Erl() & "%0A" & "Date : " & Date & "%0A" & "Heure : " & Time 60 61 ActiveWorkbook.FollowHyperlink "mailto:abc@def.com&subject=Rapport d'Erreurs&body=" & Replace(ErrLOg, " ", "%20") 62 Err.Clear 'RAZ des erreurs 63 ErrLOg = ""

---

Eric

Merci messieurs ;)

Ça me fait de la lecture donc je vais bien lire tout ça à tête reposée et je vais essayer de faire quelque chose de propre, je reviendrais donc plus tard pour avoir vos avis.

Les tags :salive:, le logiciel MZ-tools :salive:, le mail automatique :salive:

Bon il me reste encore pas mal à bricoler mais merci beaucoup c'est vraiment ce que je cherchais.

Une dernière petite question sur les tags, au lieu d'utiliser une MsgBox, est-ce que je peux utiliser des labels sur lesquels je viendrais écrire? (c'est ce que je faisais "manuellement" sans les tags et je trouve ça moins agressif qu'une spambox)
Le code en question :

Code:

---

1 2 3 4

TG = Split(This.Controls(I).Tag, ";") If TG(1) = "O" And Trim("" & This.Controls(I)) = "" Then MsgBox TG(0) & vbCrLf & "Est un champ Obligatoire !", vbExclamation, "Erreur de saisie"

---

pourrait devenir quelque chose du style :

Code:

---

1 2 3 4

TG = Split(This.Controls(I).Tag, ";") If TG(1) = "O" And Trim("" & This.Controls(I)) = "" Then controls("Label_error_" & TG(0) ).Caption = "Champ obligatoire, erreur de saisie"

---

Je laisse encore ouvert le sujet vu que j'ai pas testé la gestion d'erreurs avec les lignes numérotées. Je reviendrais en cas de souci. Merci

Bonjour,
oui tu peux faire comme tu le veux, i n' a pas de problème.
n'oublis pas de le replacer à "" avant traitement des erreurs

comme je disais dans le poste originale tout est une question de convention!

Code:

---

1 2 3 4

TG = Split(This.Controls(I).Tag, ";") controls("Label_error_" & TG(0) ).Caption = "" If TG(1) = "O" And Trim("" & This.Controls(I)) = "" Then controls("Label_error_" & TG(0) ).Caption = "Champ obligatoire, erreur de saisie"

---

Oui merci pour ta réponse, j'ai bien mis une réinitialisation, pas de soucis.

Pour la gestion des entrées dans le formulaire, je pense avoir tout prévu maintenant. Par contre, certains champs sont obligatoires uniquement après avoir validé un OptionButton.
J'ai pas vraiment réussi à adapter à une solution générique et je me suis contenté de faire :

Code:

---

1 2 3 4

If OptionButton1 = True Then If Trim("" & Fixe12.Value) = "" Then 'etc... en essayant de prévoir tous les cas

---

Bon, je n'ai que 3 textbox de ce style à vérifier donc c'est pas trop handicapant.

Pour le reste, j'ai installé MZ-tools et j'en ai profité pour faire du nettoyage et trier mes procédures. :D

C'est quand même bien pratique 8O

Et puis j'ai utilisé la gestion d'erreurs sur l'exemple pour m'envoyer des mails en automatique. Tout fonctionne parfaitement.

Juste une dernière question, je suis obligé pour chaque procédure de rajouter le nom du module ou function manuellement afin de savoir où l'erreur se situe vraiment. Ce n'est pas possible de le faire automatiquement?

J'ai testé avec Err.Source mais je n'ai pas bien compris ce que ça renvoie vraiment (en tout cas, c'est pas ce que je veux).

en ce qui concerne les tag.
tu peux, toujours par convention, définir un emplacement assujetti à et valeur

1) nous allons inscrire le champ XLS auquel il fait référence.
2)si le champ es obligatoire O/N
3) son format
a) D=Date
b) N=Numerique
c) B=Booleant
e)T=texte
4) AssujettiA
5)Valeur

exmple: N° de Compte;O;T;CheckBox1;-1
exmple pas assujettis: N° de Compte;O;T;;;

en suite tu implémente le code qu vas bien

Code:

---

1 2 3

if trim("" & Tag(3)) <> "" then if this.controls(Tag(3))=tag(4) then msgbox Trim("" & This.Controls(I)) end if

---

il faut que tu t,invente ton propre langage des signes et que tu enseigne à ton programme ta grammaire!

Citation:

---

Envoyé par OursTortue

O
Juste une dernière question, je suis obligé pour chaque procédure de rajouter le nom du module ou function manuellement afin de savoir où l'erreur se situe vraiment. Ce n'est pas possible de le faire automatiquement?

J'ai testé avec Err.Source mais je n'ai pas bien compris ce que ça renvoie vraiment (en tout cas, c'est pas ce que je veux).

---

De mémoire,mais eric4459
me contredira si je me trompe, il faut numéroter tes lignes.
http://www.developpez.net/forums/d14...a/#post8046853

Oui, j'ai bien numéroté mes lignes avec MZ-tools mais ça numérote par procédures, function, sub.

Après, j'ai réglé le souci en utilisant le gestionnaire d'erreurs de MZ-tools qui permet de faire des templates qui incluent la procédure sans avoir à la retaper à chaque fois

bonjour,
tu vas sans doute être obligé de numéroter à la main!

Non au final, j'ai numéroté chaque procédure avec MZ-tools et utilisé un template d'erreur que j'ai modifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

On Error GoTo {PROCEDURE_NAME}_Error   {PROCEDURE_BODY}   On Error GoTo 0 Exit {PROCEDURE_TYPE}   {PROCEDURE_NAME}_Error:   Dim ErrLOg As String ErrLOg = ErrLOg & "Procédure : " & "{PROCEDURE_NAME}" & " et " & "Erreur N° : " & Err.Number & " et " & "Description : " & Err.Description & " et " & "Ligne N° : " & Erl() & " et " & "Date : " & Date & " et " & "Heure : " & Time Mail_error_Outlook (ErrLOg) ErrLOg = ""

---

Du coup, à chaque fois que je l'ajoute dans une nouvelle procédure, j'ai bien le procedure_name qui va bien.

Je crois que je peux mettre résolu.

Merci encore.