Suppression de ligne via un bouton

Bonjour,

Grâce à la macro ci-dessous, je sais supprimer automatiquement toutes les figures sur la feuille 2 de mon dossier Excel.

Sub Delete_Line()
Dim Shp As Shape
For Each Shp In Sheets("Sheet2").Shapes
Shp.Delete
Next Shp
End Sub

Néanmoins, je voudrais supprimer SEULEMENT les figures de type LIGNE, pas les cercles, pas les triangles, pas les photos, ..., Juste les lignes !

Est-ce que c'est possible ?

Merci d'avance !

Bonjour,

En exécutant ce code en pas-à-pas (touche F8), à tour de rôle, un shape sera sélectionné, puis le numéro de son type sera dans un MsgBox.

Quand tu auras trouvé le numéro du type désiré, tu pourras utiliser la ligne présentement en commentaire avec le bon numéro pour les suppressions.

Sub Delete_Line()
Dim Shp As Shape
    For Each Shp In Sheets("Sheet2").Shapes
        Shp.Select
        MsgBox Shp.Type    ' < pour connaître le type

        '''    If Shp.Type = 1 Then Shp.Delete
    Next Shp
End Sub

ric

Re,

Il te faut regarder du coté de AutoShapeType. Un test avec un ligne, un cercle et ton code modifié :

Sub Delete_Line()
Dim Shp As Shape
For Each Shp In Sheets("Feuil1").Shapes
    Shp.Select
    Debug.Print Shp.AutoShapeType
Next Shp
End Sub

m'a renvoyé des numéros différents. Mais je ne sais pas à quoi correspondraient tes shapes à toi..

[Édition]

Bonjour Ric. Le même test avec Type m'a renvoyé le même numéro... Du coup, je n'avais pas gardé...

Super, merci beaucoup les gars !!!

Merci pour votre aide