supprimer certaines formes "Shapes"

jtitin · 3 Avril 2012

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 · 3 Avril 2012

Re : supprimer certaines formes "Shapes"

Bonjour jtitin,

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

VB:

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 · 3 Avril 2012

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.

Code:

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 · 3 Avril 2012

Re : supprimer certaines formes "Shapes"

Merci pour votre réponse c'est OK

supprimer certaines formes "Shapes"

jtitin

XLDnaute Occasionnel

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

jmps

Nous a quitté

jtitin

XLDnaute Occasionnel

Discussions similaires

supprimer certaines formes "Shapes"

jtitin

XLDnaute Occasionnel

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

jmps

Nous a quitté

jtitin

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency