Bugs sur objet Err

Version imprimable

Bugs sur objet Err

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:

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:

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 ?

04/03/2017, 08h50
unparia

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 ?
04/03/2017, 09h09
Invité

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!
04/03/2017, 10h10
unparia
Bonjour dysorthographie
L'utilisation de On Error Resume Next est presque toujours préférable.
Citation de l'aide VBA à ce propos :

Citation:

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 :

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:

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)
04/03/2017, 10h31
Invité

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

Librairie manquante!
04/03/2017, 12h18
Philippe Tulliez

Tutoriel - Gestion des erreurs

Bonjour,
Je te conseille la lecture de cet excellent tutoriel sur ce sujet La gestion des erreurs dans Excel
05/03/2017, 13h11
Philippe Tulliez
Bonjour Unparia,

Citation:

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:

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:

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
05/03/2017, 13h45
Invité
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:

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!
05/03/2017, 15h24
markos63

Bonjour à vous 3,
:P:P 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
05/03/2017, 17h08
anasecu

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
05/03/2017, 19h49
markos63

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
05/03/2017, 20h20
Invité

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
05/03/2017, 20h29
unparia

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.
05/03/2017, 20h34
joe.levrai

oui oui

spéciale dédicace à l'erreur 1664 :aie: de Robert
05/03/2017, 21h02
unparia

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.