Supprimer les objets d'une feuille

[Tibat]

Bonjour à tout le forum!

Je voudrai savoir s'il existe un code capable d'effacer tout les objets d'une feuille, sans forcemént connaitre le nom de l'objet ?? Les objets en question sont des boutons (dessins) sur lesquels est affecté une macro (la même pour tout les boutons)!

Merci beaucoup de votre aide

 

[Hervé]

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

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

salut

 

[tibat]

Trop fort! Merci beaucoup Hervé 😉

 

[milomss]

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 ?

 

[Dull]

Re : Supprimer les objets d'une feuille

Salut milomss et Bienvenu, le Forum

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

[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

 

[Roland_M]

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