Problème avec les macros - Erreur après : "On Error . . ."

Bonjour à tous,

Jusqu'ici les macros marchaient bien, puis un jour je lance une macro comme d'habitude et une erreur se produit après On Error GoTo Erreur.

A partir de ce moment là, j'ai l'impression que plusieurs macros différentes ont arrêté de fonctionner.
L'erreur se trouve après "On Error ...", par exemple 'On Error Resume Next".

Certaines fois je mets le code On Error et la suite en commentaire et cela fonctionne mais parfois cela me pose problème comme vous vous en doutez.

J'ai essayé de mettre à jour Excel et Windows.

J'ai l'impression que j'ai cassé Excel car cela se produit avec plusieurs fichiers différents.
Je me demandais si il était possible de réinitialiser Excel sans avoir à le désinstaller complètement.

Pièce jointe 657002

Pouvez-vous m'aider ?

Merci

Bonjour,
Dans d'autres langage on appel le on error des exceptions.

Ça ne doit être qu'exceptionnel, mais toit tu l'utilise comme si c'était normal.

Enlève tous ces vilain on error, inspectes les raisons de ces erreurs, et enfin test les données dont tu disposes pour ne plus avoir d'erreurs.

On pourrait utiliser un on error pour éviter les erreurs matériels mais pas logiciel.

Reviens nous voir avec une description exacte de l'erreur et le code incriminé après avoir mis en commentaire tes nombreux on error.

Citation:

---

Envoyé par Thumb down

Bonjour,
Dans d'autres langage on appel le on error des exceptions.

Ça ne doit être qu'exceptionnel, mais toit tu l'utilise comme si c'était normal.

Enlève tous ces vilain on error, inspectes les raisons de ces erreurs, et enfin test les données dont tu disposes pour ne plus avoir d'erreurs.

On pourrait utiliser un on error pour éviter les erreurs matériels mais pas logiciel.

Reviens nous voir avec une description exacte de l'erreur et le code incriminé après avoir mis en commentaire tes nombreux on error.

---

Bonjour,
Ces macros je ne l'es ai pas créés, elles comportent des dizaines de lignes et je ne me débrouille pas assez bien en VBA pour tout comprendre.

Je m'étonne du fait qu'elles ont cessé de fonctionner du jour au lendemain.

Bonjour,

Citation:

---

Je m'étonne du fait qu'elles ont cessé de fonctionner du jour au lendemain.

---

Utiliser les On Error, c'est comme débrancher les alertes de tableaux de bord, on continue à voler jusqu'au moment du crash

Bonjour,
Ça ne change rien,si la personne qui t'a développé l'application a mis des on error un peu partout c'est pour palier à son impuissance faces au différents problème qu'il a du rencontrer.

il est possible que des changements environnementaux , je ne parle pas du changement climatique, expliqueraient que ton application ne marche plus.

Si ton traitement gère beaucoup de données en erreur alors qu'elle ne les rencontrait pas précédemment. Le on error exclu pas les erreurs multiples.

Il est plus facile de debuger un code propre, hors le tien présente dès son développement des sérieux doutes à son créateur.

Prends au moins la peine de publier ton code. Ce sera plus efficace qu'une image qui n'apporte rien.

Bonjour
je rejoins mes camarades de jeu sur le point du on error ...
qui est une vrai cochonnerie et qui est dans 99% des cas évitable( le cas présent en fait partie )

je te propose ceci avec commentaire

Code:

---

1 2 3 4 5 6 7 8

Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets 'boucle sur toutes les feuilles du classeur(ce classeur explicitement !!) If UCase(Sh.Name) = "DATA_ACT" Then 'on teste avec la casse en majuscule au cas ou la casse ne serait pas tout à fait exacte Application.DisplayAlerts = False 'pour éviter le message de confirmation Sh.Delete: Exit For 'on delete et on on sort de la boucle pas la peine d'aller plus loin Application.DisplayAlerts = True'on re active les alertes End If Next

---

Patrick

Citation:

---

Envoyé par patmeziere

Code:

---

1 2 3 4 5 6 7 8

Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets 'boucle sur toutes les feuilles du classeur(ce classeur explicitement !!) If UCase(Sh.Name) = "DATA_ACT" Then 'on teste avec la casse en majuscule au cas ou la casse ne serait pas tout à fait exacte Application.DisplayAlerts = False 'pour éviter le message de confirmation Sh.Delete: Exit For 'on delete et on on sort de la boucle pas la peine d'aller plus loin Application.DisplayAlerts = True'on re active les alertes End If Next

---

Patrick

---

Le Exit For devrait se trouver juste avant le End If pour restaurer Application.DisplayAlerts

Cordialement.

Citation:

---

Envoyé par laurent_ott

Le Exit For devrait se trouver juste avant le End If pour restaurer Application.DisplayAlerts

Cordialement.

---

Bonjour Laurent_ott
oui c'est vrai une erreur de ma part
ou
mettre le exit for après car dans la logique on interrompe les alertes dans la condition

Code:

---

1 2 3 4 5 6 7 8 9

Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets 'boucle sur toutes les feuilles du classeur(ce classeur explicitement !!) If UCase(Sh.Name) = "DATA_ACT" Then 'on teste avec la casse en majuscule au cas ou la casse ne serait pas tout à fait exacte Application.DisplayAlerts = False 'pour éviter le message de confirmation Sh.Delete Application.DisplayAlerts = True'on re active les alertes Exit For 'on delete et on on sort de la boucle pas la peine d'aller plus loin End If Next

---

mode humour

donc, précisément, entre le Application.DisplayAlerts = True et le End If ou alors entre le End If et le Application.DisplayAlerts = True
:marteau:

re
Bonjour nain porte quoi

pas trop forts les coups de marteau quand même

:fou: