Discussion :

[jojo86]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each ..... In ActiveSheet
    If ... Is Shapes Then Shapes.Name.Delete
Next

Merci de votre aide.

[jojo86]

C'est bon j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SupprimerTrait()
Dim Sh As Object
For Each Sh In Worksheets(1).Shapes
    Sh.Delete
Next
End Sub

[jojo86]

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

[LeForestier]

Bonjour,
Voir avec ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jojo86]

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

[LeForestier]

bon, c'est différent..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+