Supprimer les objets d'une feuille

Hervé

XLDnaute Barbatruc

• 4 Août 2005

• #2

BOnjour Tibat, le forum

Ce type de code te supprime tout les objets shapes et eux seules d'une feuille :

Sub Bouton3_QuandClic()
Dim obj As Shape
For Each obj In ActiveSheet.Shapes
    If obj.Type = 1 Then
        obj.Delete
    End If
Next obj
End Sub

Cliquez pour agrandir...

Il existe un code pour faire ceci en une seule ligne, mais j'arrive plus à remettre la main dessus.

salut

 

Vote positif 0 Vote négatif

T

tibat

Guest

• 4 Août 2005

• #3

Trop fort! Merci beaucoup Hervé 😉

 

Vote positif 0 Vote négatif

M

milomss

Guest

• 18 Août 2008

• #4

Re : Supprimer les objets d'une feuille

OK merci pour le code Hervé, mais comment supprimer les objets présent dans une autre fenêtre que celle qui est active ?

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 18 Août 2008

• #5

Re : Supprimer les objets d'une feuille

Salut milomss et Bienvenu, le Forum

peut-être comme cela
Remplace ActiveSheet par Sheets("Feuil1") Par Exemple

Code:

[SIZE=2][COLOR=darkblue]
Sub Bouton3_QuandClic()
Dim obj As Shape
For Each obj In [B]Sheets("Feuil1")[/B].Shapes
    If obj.Type = 1 Then
        obj.Delete
    End If
Next obj
End Sub
[/COLOR][/SIZE]

Bonne Journée

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 18 Août 2008

• #6

Re : Supprimer les objets d'une feuille

bonjour, pour toutes feuilles

Sub Bouton3_QuandClic()
Dim obj As Shape
For F = 1 To ThisWorkbook.Sheets.Count
For Each obj In Sheets(F).Shapes
If obj.Type = 1 Then obj.Delete
Next
Next
End Sub

Roland

 

Vote positif 0 Vote négatif