[VBA-E]Gestion d'erreurs multiple

Bonjour tout le monde,
Je voudrais savoir comment gerer les erreurs de facons multiples a partir d'un programme qui serait de la forme suivante:

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

Private Sub CommandButton3_Click() On Error Goto Errorhandler Application.ScreenUpdating=False   Objet1.Activate Objet1.Calculate   Objet2.Activate Objet2.Calculate   Application.DisplayAlerts=False ActiveWorkbook.Charts.Delete Application.DisplayAlerts=True   Call procedure1   Application.ScreenUpdating=True Exit Sub   ErrorHandler: Debub.Print "Erreeur dans la feuille X :" & Err.Description Exit Sub   End Sub

---

J'en profite pour egalement demander si mon utilisation de l'Application.ScreeUpdating est optimale ici car j'ai mon manager qui m'a affirme qu'il ne l'etait pas.

D'avance merci pour votre aide.

Icetechnik

En déclenchant plusieurs opérations sur une seule gestion d'etteur, ce n'est pas vraiment très adroit ! (une par une est plus prudent)
Ton manager a raison ! que se passerait-il, d'après toi, en cas d'erreur ? Où et quand serait rétabli, dans ce cas, le ScreenUpdating ? :lol:

Bonsoir Jmfmarques,

Citation:

---

ce n'est pas vraiment très adroit ! (une par une est plus prudent)

---

Justement je ne suis pas sure de la facon de faire. Il serait bien si tu pouvais detaille a partir de mon exemple.

Citation:

---

Ton manager a raison ! que se passerait-il, d'après toi, en cas d'erreur ? Où et quand serait rétabli, dans ce cas, le ScreenUpdating ?

---

La encore je n'ai pas tres bien saisi car je n'ai jamais utilise de facon avancee VBA jusqu'a ce jour. Tout ce que je sais est que ScreeUpdating = False fais que l'ecran n'est pas mis a jour en meme temps que l'application tourne.

D'avance merci pour ton aide.

Icetechinik

1) la prudence la plus élémentaire conduit à gérer l'erreur susceptible de se produire chaque fois qu'est "lancée" un instruction risquant d'échouer !
ex si on se moque de l'erreur (si non rédhibitoire)
si erreur, aller à l'étiquette etiquette1
instruction_risquée1
si erreur aller à l'étiquette etiquette1 ou étiquette2, selon ce que tu gères
instruction_risquée2
instruction_non risquée
suite des instructions
aller à l'étiquette etiquette3 (pour sauter les etiquettes etiquette1 et etiquette2))
etiquette1
réactions
etiquette2
réactions
etiquette3
on continue

etc...
C'est à toi de savoir ce que tu veux et de décider des passages par étiquettes ou sauts d'étiquettes, en fonction de ce que tu veux !
Il s'agit là, avant même la syntaxe de VB, d'une simple organisation de ta pensée ! prends une feuille de papier, colles-y des "étiquettes"... et simules tes "sauts" avec un crayon, pour voir par où tu passes dans un cas ou dans l'autre !... une autre fois : en oubliant totalement l'informatique !
Si tu n'y parviens pas ainsi (sans informatique), je crains qu'aucun langage informatique ne puisse t'y aider... :cry:
2) les explications données en 1) devraient te permettre de constater pourquoi, en cas d'erreur, ton affichage ne serait pas actualisé et donc, pourquoi l'observation de ton manager est fondée...

bonsoir

Pour moi il n'y a pas de soucis avec "ScreenUpdating"


Par contre j'intégrerais la propriété "DisplayAlerts" dans la gestion d'erreur car il peut arriver qu'elle ne se réinitialise pas tout seul en fin de procédure

tu conserves :

Code:

---

1 2 3

Application.DisplayAlerts=False ActiveWorkbook.Charts.Delete Application.DisplayAlerts=True

---

et tu ajoutes

Code:

---

1 2 3

ErrorHandler: Application.DisplayAlerts=True Debug.Print "Erreeur dans la feuille X :" & Err.Description

---

La meilleurs gestion d'erreur est d'éviter quelle se produise . par exemple :

Code:

---

1 2 3

Application.DisplayAlerts=False If ActiveWorkbook.Charts.Count > 0 Then ActiveWorkbook.Charts.Delete Application.DisplayAlerts=True

---

à quoi correspondent Objet1 et Objet2 ?

s'il s'agit de classeurs tu peux essayer d'enlever les .Activate et par exemple écrire directement

Code:

---

Objet2.Charts.Delete

---

plus généralement si tu enlèves tous les .Select .Activate , tu auras un gain de temps et ScreenUpdating ne sera peut etre plus nécéssaire .



bonne soiree
michel

Merci a tous pour aide. Cela m'a fait pas mal avancer dans mon projet.

Cordialement,

ps : desole du retard de mes nouvelles (internet a domicile en panne (je vous ecrit depuis un cybercafe)).