Supprimer Tous les traits?(Shapes)

Bonjour,

Dans une macro je voudrais supprimer tous les trais (Shapes) qui existent.

Je ne trouves pas la solution qui doit être du type :

Code:

---

1 2 3 4

For Each ..... In ActiveSheet If ... Is Shapes Then Shapes.Name.Delete Next

---

Merci de votre aide.

C'est bon j'ai trouvé :

Code:

---

1 2 3 4 5 6

Sub SupprimerTrait() Dim Sh As Object For Each Sh In Worksheets(1).Shapes Sh.Delete Next End Sub

---

Ah non c'est pas bon car je supprime mes labels et tous mes boutons...

Bonjour,
Voir avec ...

Code:

---

1 2 3

If TypeOF sh is Msforms."le type à effacer" then sh.Delete end if

---

A+
EDIT : Faut qu'un F (erreur de frappe)
Quel est le type de shape à effacer, je ne trouve pas de ligne dans les objet de feuille.

Justement, je ne connais pas le type a effacer...
C'est un trait... ajouté par (addLine)...
¨
Merci !

bon, c'est différent..

Code:

---

1 2 3 4 5 6

Sub Supprimeline() Dim sh As Shape For Each sh In Sheets("Feuil1").Shapes If Left(sh.Name, 4) = "Line" Then sh.Delete Next sh End Sub

---

A+

J'avais procédé presque pareil.

Je créer les traits par programmation, donc je les renomment en : Trait1, Trait2 etc...

Donc j'ai fait :

Code:

---

1 2 3 4 5 6

Sub Supprimeline() Dim Sh As Object For Each Sh In Worksheets(1).Shapes If InStr(1, Sh.Name, "Trait") > 0 Then Sh.Delete Next End Sub

---

Merci de ton aide !