Bugs sur objet Err

**markos63** · 04/03/2017, 08h34

Bonjour, j'ai décidé un peu tard de mettre en place la gestion des erreurs, par contre cela plante sur l'objet Err...
voici une des macro qui plante :
Elle est utilisé pour mettre à jour une listebox au changement de txtRefMUT (alimenté lui même par un combo)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
Private Sub txtRefMUT_Change()
Dim a          As Variant
Dim Sh         As Worksheet
Dim i As Integer, j As Integer
Dim MonTest    As Integer
Dim Msg
    'Dim b As Variant
 On Error GoTo GestERR
 
 
    '' **** ' On Error Resume Next            '***********
  '  On Error GoTo txtRefMUT_Change_Error
    Set Sh = Sheets("Fiche N°5")
    lbInfo.ForeColor = &HC00000
    a = Sh.Range("A3:L" & Sh.[A65000].End(xlUp).Row)
    Dim B()
    Dim C()
    j = 0
    Me.lstExposition.Clear
    Me.lstExposition.ColumnCount = 13
    lstExposition.ColumnHeads = False
    MonTest = 0
    Me.lstExposition.ColumnWidths = "60;35;20;20;20;30;60;55;35;67;50;100;10"
    For i = LBound(a) To UBound(a)     'traite chaque ligne du tableau (a)
 
    '' **** '         On Error GoTo 0                               '***********
        If a(i, 2) = txtRefUT Then
            MonTest = 1 + MonTest
            j = j + 1
            ReDim Preserve B(1 To 13, 1 To j)
            B(1, j) = a(i, 1)
            B(2, j) = a(i, 2)
            B(3, j) = a(i, 3)
            B(4, j) = a(i, 4)
            B(5, j) = a(i, 5)
            B(6, j) = a(i, 6)
            B(7, j) = a(i, 7)
            B(8, j) = a(i, 8)
            B(9, j) = a(i, 9)
            B(10, j) = a(i, 10)
            B(11, j) = a(i, 11)
            B(12, j) = a(i, 12)
            B(13, j) = i + 2
        End If
    Next i
    If MonTest = 0 Then
        lbInfo.Caption = "Aucune donnée pour ce choix"
        lbInfo.ForeColor = &H800000
        lstExposition.Clear
 
    ElseIf MonTest = 1 Then
    'lstExposition.Clear
        Me.lstExposition.AddItem
        Me.lstExposition.List(0, 0) = B(1, j)    'N°RiskHM
        Me.lstExposition.List(0, 1) = B(2, j)    'MUT
        Me.lstExposition.List(0, 2) = B(3, j)     
        Me.lstExposition.List(0, 3) = B(4, j)     
        Me.lstExposition.List(0, 4) = B(5, j)     
        Me.lstExposition.List(0, 5) = B(6, j)    
        Me.lstExposition.List(0, 6) = B(7, j)     '<<<< je pense bug ici si manque de données
        Me.lstExposition.List(0, 7) = B(8, j)     
        Me.lstExposition.List(0, 8) = B(9, j)     
        Me.lstExposition.List(0, 9) = B(10, j)     
        Me.lstExposition.List(0, 11) = B(12, j)     
        Me.lstExposition.List(0, 12) = B(13, j)    
        lbInfo.Caption = "1 ITEM pour cette Option"
        lbInfo.ForeColor = &HFF00FF
    Else
        C = Application.Transpose(B)
        Me.lstExposition.List = C
        lbInfo.Caption = "ATTENTION  =>>  " & MonTest & "  <<   ITEM à évaluer pour cette Option MUT"
        lbInfo.ForeColor = &HFF00FF
    End If
 
Exit Sub
 
GestERR:
Err.Clear          '<<< = BUG
Resume Next
'    On Error GoTo 0
'    Exit Sub
 
'txtRefMUT_Change_Error:
'    Exit Sub
'    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure txtRefMUT_Change of Feuille F_Item"
'Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " & Err.Source & Chr(13) & Err.Description
   ' MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
 
End Sub

En fait la macro fonctionne bien sans la gestion d'erreur, sauf lors d'info manquante lors du remplissage de ma list.

c'est la raison pour laquelle j'ai ajouter la gestion d'erreur.
mais maintenant celle ci bloque sur l'objet Err, je ne comprend pas, j'ai le message Erreur compil. Qualificateur incorrect.
Idem sur Err.Number...
Sur les autres macro ou j'ai voulu rajouter une gestion ce ce type c'est le meme problème. avec un autre code comme celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
On Error GoTo GestERR
' 
'Mon code
' 
Exit Sub
 
GestERR:
Err.Clear      '<<<= même bug ici
Resume Next

J'en profite pour remercier le forum pour toutes les info que j'ai trouvé sur la gestion d'erreur. Magrés tout je ne trouve rien sur ce problème.
Qu'en pensez vous ?

**unparia** · 04/03/2017, 08h50

Bonjour
Je ne vois aucune raison de réception de ton message d'erreur.
Es-tu certain de ne pas avoir déclaré ailleurs une variable que tu aurais nommée Err ?

Invité · 04/03/2017, 09h09

Bonjour,
Vue que tu ne gère en aucun cas les erreur, mais que tu laisser ton programme faire ce qu'il veut !

Un On Error resume next devrait faire l'affaire!

**unparia** · 04/03/2017, 10h10

Bonjour dysorthographie
L'utilisation de On Error Resume Next est presque toujours préférable.
Citation de l'aide VBA à ce propos :

Note Il est préférable d'utiliser l'instruction On Error Resume Next et non l'instruction On Error GoTo pour traiter des erreurs générées à l'occasion de l'accès à d'autres objets. La vérification de la propriété Err après chaque interaction avec un objet évite en effet toute ambiguïté sur l'objet auquel le code accède. Vous saurez ainsi avec certitude quel objet a placé le code d'erreur dans la propriété Err.Number, et quel est celui qui a généré l'erreur à l'origine (indiqué dans la propriété Err.Source).

Il est par ailleurs curieux de faire suivre la méthode Err.clear d'une Instruction Resume (cette dernière appelant elle-même automatiquement la méthode Clear)
Citation :

La méthode Clear est appelée automatiquement dès que l'une des instructions suivantes est exécutée :
Tout type d'instruction Resume
Exit Sub, Exit Function, Exit Property

Mais tout ceci n'explique pas le message d'erreur qu'il reçoit et qui est un comportement pour le moins anormal.
Je persiste donc à penser que :
- soit il a nommé maladroitement Err une variable ailleurs dans le code actif (y compris, donc si dans un addin ou une auto_Open)
- soit son application Excel.Exe a subi une mésaventure et doit être réparée.

EDIT : j'aurais comme tout premier réflex de mettre un simple bouton de commande avec ce seul code :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
  Err.Clear
End Sub

Qui ne devrait provoquer aucun message d'erreur , dans des conditions normales (pas de variable existant par ailleurs avec Err pour nom et application Excel Exe non corrompue)

Invité · 04/03/2017, 10h31

Ce qui expliquerai c'est si le fichier a été créé sur un version et utilisé sur un autre.

Librairie manquante!

**Philippe Tulliez** · 04/03/2017, 12h18

Bonjour,
Je te conseille la lecture de cet excellent tutoriel sur ce sujet La gestion des erreurs dans Excel

**Philippe Tulliez** · 05/03/2017, 13h11

Bonjour Unparia,

L'utilisation de On Error Resume Next est presque toujours préférable.

Je partage ton avis et privilégie également cette instruction lorsque c'est possible. Cependant et curieusement le Resume ne réagit pas après un Resume Next

Procédure 1 qui ne renvoie pas à la ligne où l'erreur a été détectée

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t1()
 Dim resultat As Double, i As Double
 On Error Resume Next
 resultat = 10 / i
 If Err Then
  i = 2: Resume
 End If
 On Error GoTo 0
 MsgBox resultat
End Sub

Procédure 2 utilisant un On Error GoTo

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t2()
 Dim resultat As Double, i As Double
 On Error GoTo errHandler
 resultat = 10 / i
 On Error GoTo 0
 MsgBox resultat
Exit Sub
errHandler:
 If Err Then i = 2: Resume
End Sub

Invité · 05/03/2017, 13h45

Bonjour
Personnellement je suis d'avis de bannir le.on error surtout quand on ne sait pas le gérer!

L'affichage de la fenêtre de débugage et préférable a un résultat bizarre!

Dans d'autres langage on appel ça une exception! Et son emploi doit donc être exceptionnel.

Je veux imprimer un document mais l'imprimante est défaillante , j'ai testé ca présence, mais un messages indépendant de ma volonté s'affiche!

Code :

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

1
2
3
4
5
6
'code...
On error resume next
Imprimer
If err then msgbox err.description
On error goto 0
'fin de code...

Ici on métrise que l'erreur d'impression indépendante de ma volonté!

Pour le restr du code je métrises et je fais des tests pour qualifier les données!

**markos63** · 05/03/2017, 15h24

Bonjour à vous 3,

grand merci pour votre éclairage.
1/ Je vais rechercher si je n'ai pas mis un Err quelque part dans mon programme qui commence à être un peu long.
2/ je vais aussi fermer quelques outils (addin) ou une auto_Open
3/ il est aussi possible Excel.Exe doit être réparée, il bug de temps à autre, mais comment faire ?
4/ en fait mon objectif est de suivre la mise en route de l'application, ne ne pas afficher les erreur pour l'utilisateur, mais d'inscrire les erreurs dans un fichier texte, raison de l'usage de Err.

Je cherche et reviens vers vous une fois le bug réglé.

Merci encore à vous

**anasecu** · 05/03/2017, 17h08

Bonjour,

Je comprends ta démarche qui est intéressante car les utilisateurs te donnerons rarement le contexte.
Si je peux me permettre dans ton enregistrement n'oublies pas le nom de la procédure coupable : c'est très utile.

Bonne suite

**markos63** · 05/03/2017, 19h49

Bonjour,
Merci pour le conseil, effectivement je pense mettre le nom de la procédure, la feuille concerné ou USF, le N° de l'erreur, la Description la date et l'heure.
Cordialement

Invité · 05/03/2017, 20h20

c'est se compliquer la vie que de vouloir fournir le contexte (procédure,variable qu'importe)!

le N° de l'erreur n'aporte pas une information. pertinente! la description de l'erreur oui!

https://www.developpez.net/forums/d1...a/#post8942857

**unparia** · 05/03/2017, 20h29

Bonjour (re-bonjour, en fait)
S'intéresser à la méthode Raise (rubrique Raise, méthode de l'aide VBA). Elle permet beaucoup de choses qui peuvent simplifier la vie et la lecture d'un responsable informatique ou de l'auteur d'une application qui veut savoir ce qui a bien pu se produire.

**joe.levrai** · 05/03/2017, 20h34

oui oui

spéciale dédicace à l'erreur 1664

de Robert

**unparia** · 05/03/2017, 21h02

Bonjour joe.levrai
t'as oublié le lien, que voilà donc :
https://www.developpez.net/forums/d1...on-error-goto/
(Tu as une sacrée mémoire).

Ne manque que la possibilité d'indiquer la source de l'erreur, en plus. Mais en fait, tout cela ne peut résulter que d'une maîtrise PARFAITE (par son créateur) de l'application développée.

Bugs sur objet Err [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager