on error resume next inactif

Question

Bonjour,
Pour accelérer un code , plutôt que d'énumérer sur un graphique tous les shapes je tente:

            Feuille.ChartObjects("Graphique2C").Activate
            On Error Resume Next
            ActiveChart.Shapes("outil texte Err").Delete'<<<Erreur
            On Error GoTo 0
mais j'ai quand même un arret erreur 440. Pourquoi?

Merci

cracos30 · Answer

Par contre ceci fonctionne 

            Feuille.ChartObjects("Graphique2C").Activate
            On Error Resume Next
            Set Shaperr = ActiveChart.Shapes("outil texte Err")
            If Shaperr Is Nothing Then GoTo pastext
            ActiveChart.Shapes("outil texte Err").Select
            ActiveChart.Shapes("outil texte Err").Delete
            On Error GoTo 0
pastext:
Toujours intéressé pour une explication

On error resume next inactif

1 réponse

Votre réponse

Discussions similaires