Suppresion de graphe-onglet

[perenthian]

Bonjour,

je veux supprimer des "onglets-graphes". J'ai ecrit ce code mais cela ne marche pas et je ne comprends pas...

Sub delete_graph()

Dim graph As Chart, wbk As Workbook

Set wbk = ThisWorkbook

For Each graph In wbk.Charts
    graph.delete
Next graph

End Sub

Qu'est ce qu'il peut y avoir de faux ?

Merci

 

[tototiti2008]

Re : Suppresion de graphe-onglet

Bonjour perenthian,

ça fonctionne chez moi, il me met juste un message pour prévenir qu'il va supprimer des feuilles mais ça fonctionne

 

[Papou-net]

Re : Suppresion de graphe-onglet

Bonjour perenthian,

Ton code est bon, je l'ai testé (sur XL2010).

Il efface bien les feuilles de graphique sans problème, en affichant pour chaque onglet un message de confirmation.

Peut-être un problème de ta configuration Office, mais je ne vois pas.

Désolé de ne pouvoir t'aider davantage.

Cordialement.

Edit :
Oups, pas le plus réactif cette fois encore, mais ça ne me surprends guère face à toi tototiti.
Amicalement.

 

[perenthian]

Re : Suppresion de graphe-onglet

Effectivement ça marche. C'est le message d'avertissement qui m'a perturbé lorsque j'avais plus de 50 feuilles a effacer j'ai cru que ça buggait.

Du coup, y a moyen de s'affranchir de cela ?

 

[tototiti2008]

Re : Suppresion de graphe-onglet

Bonjour Papou-net 🙂,
Re,

Sub delete_graph()

Dim graph As Chart, wbk As Workbook

Set wbk = ThisWorkbook

Application.Displayalerts = false
For Each graph In wbk.Charts
    graph.delete
Next graph
Application.Displayalerts = true
 End Sub

 

[perenthian]

Re : Suppresion de graphe-onglet

Merci ça marche impeccable !!