[Discussion] Devrait-on utiliser les "On error" statement ?

Bonjour a tous.

A force de coder du VBA depuis un moment, je me rend compte que ce language est quand meme hyper mal foutut, il y a plein de trucs qui ne sont pas logique et la doc est merdique...

Cependant, je me refuse a utiliser les intructions "on error" par principe : Je me dit que, s'il y a des erreur, c'est que j'ai pas coder ce qu'il falait, et qu'il faut que je reprenne mon algorythme ( genre une exception qui n'est pas gérée comme il faut, etc.. ).

Alors, pourquoi diable y a t'il ces On error resume next dans beaucoup de macros trouvable sur internet ?

Pour moi, cela ressemble a un aveu d'echec..

J'aimerais beaucoup qu'on me prouve que je me trompe. Qu'en pensez-vous ? Utilisez-vous ces intructions ? Si oui, pourquoi ?

Bonjour !

Quand quelque chose n'est pas prévue, n'existe pas dans le langage et donc risque de planter l'exécution,
c'est un moyen de s'en sortir mais certes, à utiliser avec précaution ou tout du moins en sachant ce que l'on code …

On peut déplacer le problème dans une fonction laissant ainsi la procédure principale ne pas recourir à cette instruction.

Comme par exemple pour extraire le nom d'une cellule (ou d'une plage) :

Code:

---

1 2 3 4

Function CellName(ByVal Rg As Range) On Error Resume Next CellName = Rg.Name.Name End Function

---

Si le Range n'est pas nommé, l'erreur est fatale sans cette instruction …

Autre exemple, tester si une matrice est vide ou non initialisée :

Code:

---

1 2 3 4 5

Function IsArrayEmpty(V) As Boolean On Error Resume Next U = UBound(V) IsArrayEmpty = U = "" Or U < 0 End Function

---

Tout dépend donc du bon usage du développeur …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

Salut, toujours consultable : La gestion des erreurs dans Excel

Citation:

---

Envoyé par Marc-L

Bonjour !

Comme par exemple pour extraire le nom d'une cellule (ou d'une plage) :

Code:

---

1 2 3 4

Function CellName(ByVal Rg As Range) On Error Resume Next CellName = Rg.Name.Name End Function

---

[INDENT]

---

Que dire de :

Code:

---

1 2 3 4 5

Function cellName(ByVal rg As Range) For Each Nom In Workbook.Name If Nom.Name = rg.Name.Name Then cellName = rg.Nom.Name Next Name End Function

---

La mienne return elle aussi "Nothing" si le nom n'existe pas. Cependant, si une autre erreur survient, elle plante.

Imaginons une autre erreur que la non-existance du range. Ta fonction retournerais alors "nothing" alors que le range existe peut-etre !

Citation:

---

Envoyé par kiki29

Salut, toujours consultable : La gestion des erreurs dans Excel

---

Oui, je suis déja tomber sur ce papier ;) très instructif d'ailleur ! C'est lui qui m'a ammener a cette reflexion...

D'ailleur, dans l'intro même du papier, je vois un truc qui me fait danser le cheveux sur la tête :P :

Citation:

---

Envoyé par http://silkyroad.developpez.com/VBA/GestionErreurs/

De la même façon, une macro qui vérifie l'existence d'une feuille peut logiquement renvoyer une erreur si l'onglet n'existe pas.

---

Dafuck ? Une macro qui teste une existance devrais pas plutot renvoyer false si ça n'existe pas ?

Commence déjà par utiliser Antidote et cela d'urgence.

Citation:

---

Envoyé par lrnv69

Que dire de :

Code:

---

1 2 3 4 5

Function cellName(ByVal rg As Range) For Each Nom In Workbook.Name If Nom.Name = rg.Name.Name Then cellName = rg.Nom.Name Next Name End Function

---

La mienne return elle aussi "Nothing" si le nom n'existe pas. Cependant, si une autre erreur survient, elle plante.

Imaginons une autre erreur que la non-existance du range. Ta fonction retournerais alors "nothing" alors que le range existe peut-etre !

---

Ben non justement ‼ T'as réussi à me faire dresser les cheveux sur la tête avec cette contradiction entre autres …
Et tu as l'air d'avoir la critique un peu facile pour quelqu'un postant un code truffé d'erreurs, vaudrait mieux tester avant !

Ma fonction n'a pas pour but de vérifier si le Range existe mais de renvoyer le nom d'un Range existant s'il a été nommé !
C'était juste un exemple …

La réponse est élémentairement simple et simplement élémentaire. Si une instruction apparaît dans beaucoup de codes, c'est qu'il faut l'utiliser.

Le corollaire c'est qu'il ne faut pas l'utiliser n'importe comment.

Le vrai problème, c'est d'apprendre à l'utiliser correctement, surtout, surtout, surtout, surtout, surtout, surtout, surtout, surtout, surtout, surtout, surtout :

Code:

---

On Error Resume next

---