pbm boucle if

[arno]

bonjour
j ai un probleme avec les boucles if. je souhaite que si un certain graph est present sur ma feuille que celui ci soit effecé. comment puis j ecrir cette condition de presence ou comment realiser cette boucle
merci

 

[Hervé]

Bonjour arno, le forum

tu peux peut etre t'inspirer de ce type de code :

Sub Bouton3_QuandClic()
Dim i As Integer
Dim graph As Object

With ActiveSheet
        For i = .ChartObjects.Count To 1 Step -1
                Set graph = .ChartObjects(i)
                If graph.Name = 'nomdugraphiqueasupprimer' Then graph.Delete
        Next i
End With
       
End Sub

salut