Problème pour vérifier si une feuille contenant un graphique existe

Question

Bonjour à tous, je suis en train de faire un projet en Excel VBA pour l'école et je rencontre un problème pour savoir si une feuille contenant un graphique existe dans mes Worksheets.

J'ai d'abord créé un graphique que j'ai déplacé sur autre une feuille que j'ai nommée "RépartitionBudget2021" de cette façon :

 ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="RépartitionBudget2021"

Pour vérifier si la feuille existe j'ai fait quelque chose dans ce genre là :

Dim Feuille As Variant
Dim FeuilleExiste As Boolean

For Each Feuille In Worksheets
    If Feuille.Name = "RépartitionBudget2021" Then

        FeuilleExiste = True
    End If
Next

MsgBox FeuilleExiste

Le problème est que cela me renvoie False à chaque fois alors que la feuille existe bel et bien. J'ai ensuite fait un test en créant une feuille vierge avec le même nom que la feuille du graphique et là ça me renvoie bien True. J'en ai donc déduit que le problème n'arrive que lorsque c'est une feuille de graphique.

J'aimerai donc savoir si quelqu'un connait un autre moyen pour vérifier si la feuille de graphique existe ?

Merci d'avance, Jérémie

Jean-Eric · Accepted Answer

Dans la boucle, remplace Worksheets par Sheets. Cdlt...

ouisansdoute · Accepted Answer

Cela tient à la différence entre Sheets et Worksheets. Sheets boucle sur toutes les feuilles qu'elles soient feuilles de calcul ou feuilles graphiques alors que Worksheets ne boucle que sur les feuilles de calcul. Remplace donc la ligne Par la ligne For Each Feuille In Sheets Remplace...