Discussion :

[petibonohm]

bonjour,

je souhaite supprimer un graph seulement s'il existe...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.DisplayAlerts = False
    Sheets("graph").Select
    ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

mais je trouve pas comment traduire le "si ça existe"...

un tuyau ? ou si vous avez une façon plus simple de procéder..

je suis preneur

Merci

[ouskel'n'or]

Pour supprimer tous les graphes de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each LeGraphe In ActiveSheet.ChartObjects
    LeGraphe.Delete
Next

A+

[fring]

Bonjour tlm,

Une petite variante pour ne supprimer qu'un seul graphique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.DisplayAlerts = False
On Error Resume Next
Sheets("graph").Delete
Application.DisplayAlerts = True

Là bin...si il n'existe pas, il n'existe pas et si il existe il n'existera plus

Bonne journée