supprimer certaines formes "Shapes"

[jtitin]

bonsoir à tous

je ne trouve pas la solution dans le forum alors je vous pose la question:
comment supprimer certaines formes "Shapes" mais conserver les formes rectangles.
j'ai une feuille comportant des triangle, cercle ,pentagone je veu les supprimer,
et conserver les formes rectangles existantes.


merci

 

[Grand Chaman Excel]

Re : supprimer certaines formes "Shapes"

Bonjour jtitin,

Voici une macro à essayer. Fonctionne uniquement si le nom de tes formes Rectangles contient le mot "Rectangle".

Sub EnleverFormes()
'Effacer les formes dont le nom ne contient pas par "Rect"
    Dim sh As Shape
    
    For Each sh In ActiveSheet.Shapes
        If InStr(1, sh.Name, "rect", vbTextCompare) = 0 Then sh.Delete
    Next sh
End Sub

A+

 

[jmps]

Re : supprimer certaines formes "Shapes"

Bonjour jtitin, Grand Chaman 😀

Bon, j'avais commencé alors je le mets quand même.
Syntaxe différente mais ça revient au même.

Sub SupprimeShapesNonRectangles()
    Dim F As Shape
    For Each F In Shapes
       If Not (F.Name Like "Rectangle*") And F.Type = 1 Then F.Delete
    Next
End Sub

 

[jtitin]

Re : supprimer certaines formes "Shapes"

Merci pour votre réponse c'est OK