On error resume next inactif

Signaler
Messages postés
81
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
12 avril 2013
-
Messages postés
81
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
12 avril 2013
-
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

1 réponse

Messages postés
81
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
12 avril 2013

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