Discussion :

[Nico_Weppes]

Bonjour à tous,

Je sais, vous allez vous dire encore un qui pense connaitre la gestion des erreurs sous VBA...et puis non mais là je suis vraiment sur un os.
J'avais un code qui fonctionnait parfaitement et qui ne gère maintenant plus les erreurs
Avant d'écrire ce titre pour cette discussion et j'ai voulu m'en convaincre en tapant ce code tout simple que tout le monde comprendra:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test_error()
Dim i As Integer
Dim code_erreur As Double
On Error Resume Next
    i = "j essaie de mettre du texte dans une variable de type integer"
    code_erreur = Err.Number
On Error GoTo 0
MsgBox code_erreur
End Sub

Et bien en exécutant ce code, Excel se comporte comme si il n'y avait pas de "On Error Resume Next" et j'obtiens un message d'erreur "Erreur d'Exécution '13'" plutôt que ma petit boite de dialogue attendue...en forçant l’exécution de la suite du code un espion sur ma variable code_erreur me renvoie bien la valeur 13 donc l'erreur est bien gérable en théorie...
Si quelqu'un connait une astuce, un paramètre, ou une subtilité qui permet de rendre inactive et surtout de réactiver la gestion d'erreur sous vba, je suis preneur parce que là je sèche. Je suis allé jusqu'à réinstaller Excel mais rien y fait.
Merci d'avance pour vos réponses

[eriiic]

Bonjour,

Quand tu l'appelles tu n'es pas déjà dans une gestion d'erreur ?
Tu ne peux pas y faire une autre gestion d'erreur.
eric

[Nico_Weppes]

bah non justement

ce code est tout seul dans un nouveau fichier Excel...

[Pierre Fauconnier]

Salut.

Général/Arrêt sur toutes les erreurs est probablement coché dans le menu Outils/options du VBE

[RyuAutodidacte]

Bonjour,

et si tu faisait plutôt comme cela (dans ce cas là i passe en variant) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test_error()
Dim i
    i = 5
    'i = "toto"
    If VarType(i) = vbInteger Then
        MsgBox "La variable est de type integer et vaut : " & i
    Else
        MsgBox "La variable n'est pas du type integer"
    End If
End Sub

[Pierre Fauconnier]

[...]

Je crois que le code donné par Nico n'est là que pour illustrer le problème du on error qui ne fonctionne pas. Pas sûr qu'il voulait qu'on lui donne une autre manière de coder...

[RyuAutodidacte]

Re,

En effet Pierre mais je pense que son problème vient du type de sa variable.
Certaines valeurs de i de doit pas correspondre à un integer dans ses données d'où l'erreur de type 13
Je cite MS :

VBA: Message 'Erreur d'exécution13, type incompatible

Dans un module Visual Basic pour Project, lorsque j'exécute certaines
instructions où le type d'argument est correct, j'obtiens le message
d'erreur suivant :
Erreur d'exécution '13':
Type incompatible

Solution :
Vous passez "effectivement" le mauvais type d'argument.
Dans ce cas, passer le type d'argument requis.

Or ici dans son code, i est déclaré en integer, si la donnée en i n'est pas un interger on aura forcément une erreur de type 13.

Du coup ce que je lui propose est bien plus propre je pense (et il me semble que tu es le 1er à prôner d'éviter les gestion d'erreur quand cela es possible )

Si les données ne sont pas forcément du type integer, alors le passer en Variant comme je l'ai fait, doit le faire

[unparia]

Bonjour Ryu
C'est à mon avis très délibérément, que Nico_Weppes a déclaré i dans un type qui engendre une erreur. Justement pour créer une démonstration/exemple de "non fonctionnement", sur SA machine *****, de l'instruction On Error Resume Next

***** -->> aucun problème de l'espèce sur la mienne

Je pense qu'il est en effet dans le cas sur lequel Pierre Fauconnier, que je salue, appelle l'attention.

EDIT : il aurait pu provoquer délibérément n'importe quelle autre erreur (une division par 0, par exemple) pour dénoncer la même "non réaction".

[Pierre Fauconnier]

Ryu,

Relis simplement le message initial pour comprendre le problème de Nico qui est
Mon code s'arrête sur une erreur malgré le on error resume next
et pas
J'ai une erreur de type 13, aidez-moi

[...]Et bien en exécutant ce code, Excel se comporte comme si il n'y avait pas de "On Error Resume Next"[...]

Le code qu'il a donné est donc rédigé expressément pour générer une erreur. Nico aurait pu tout aussi bien illustrer son problème avec une division par 0 ou une tout autre erreur. Le type d'erreur n'a ici aucune importance.

[EDIT] Coiffé au poteau par Jacques, que je salue en retour

[RyuAutodidacte]

En effet, j'ai pas bien lu

Jacques et Pierre

Edit : je n'ai pas ce problème, pas très évident de trouver quand on est pas en conditions réel, face à Excel et la machine en question

[Invité]

Bonjour,
il est évidant que l'exemple fourni par notre amis n'a pour but que de générer une erreur à coup sur!

Code aurait été plus parlant! :

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

1
2
3
4
5
Sub test()
On Error Resume Next
Err.Raise 1664, "MyAppli", "Mort ou pas mort mise en bière à quinze heures !"
If Err <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description
End Sub

il y a plusieurs raison pour que le on error ne marche pas!

comme l'a dit Pierre l'option d'excel interdit la gestion des erreurs par utilisateur!

une erreur chasse l'autre , mais là les option d'excel toujours (enfin je pense!)

une erreur qui menace intégrité d'excel et/ou la mémoire!

[RyuAutodidacte]

Salut Robert,

Dans le 3eme cas que tu cites, y a y-il un moyen de le déterminer ?
Sinon que faut il faire ? Désinstaller et ré-installer Excel ? …