XL 2010 Recherche d'un graphique par son nom

[Fab117]

Hello,
Ma macro va créer un graphique et lui assigner un nom :

Dim COb As ChartObject
Set COb = ActiveSheet.ChartObjects.Add(330, 150, 400, 340)
With COb.Chart
...
End With

COb.Name = "GraphiqueDureeCumuleeParBranche"​

Avant qu'elle ne s'exécute, je souhaiterais qu'elle commence par un test pour vérifier que ce graphique n'existe pas déjà => rechercher dans l'onglet actif un graphique s'intitulant "GraphiqueDureeCumuleeParBranche"

Quelqu'un saurait-il comment faire ?
Merci d'avance.

Fab

 

[Caillou]

Bonjour,

Essayes
Sub cherche_graph()
Dim mong As ChartObject
For Each mong In ActiveSheet.ChartObjects
If mong.Name = "GraphiqueDureeCumuleeParBranche" Then
MsgBox "existe deja"
Exit For
End If
Next
End Sub

Caillou