On error resume next inactif

cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013 - 2 mai 2010 à 09:40
cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013 - 2 mai 2010 à 11:04
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

cracos30 Messages postés 81 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 12 avril 2013
2 mai 2010 à 11:04
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
0