shape à supprimer

Bonjour EdelweissEric, le Forum

Une approche basic :

Sub TheOvalKillerBasic()
Dim Sh As Shape

For Each Sh In ActiveSheet.Shapes
    If Sh.AutoShapeType = msoShapeOval Then
            Sh.Delete
    End If
Next Sh

End Sub

Cliquez pour agrandir...

Qui détruiera toutes les Shapes de Type Oval de la Feuille Active...


Une autre approche qui détruira toutes les Shapes de Type Oval de la Feuille Active qui ont un nom commençant par 'Oval'... (A toi de nommer les Shapes Oval devant persister avec un autre nom...)

Sub TheOvalKillerCheckingName()
Dim Sh As Shape

For Each Sh In ActiveSheet.Shapes
    If Sh.AutoShapeType = msoShapeOval Then
        If Left(Sh.Name, 4) = 'Oval' Then
            Sh.Delete
        End If
    End If
Next Sh

End Sub

Cliquez pour agrandir...

Bon Appétit
[ol]@+Thierry[/ol]

Bonjour

MERCI Thierry ==> super

Bon appétit

Cordialement