Supprimer Toutes les formes à condition que

Bonjour,

Je n'arrive pas à trouver d'instruction pour supprimer toutes les formes dans une feuille sauf celle contenant du texte...

J'utilise :

Sub efface()
Dim sh As Shape
    For Each sh In Sheets("Carte").Shapes
        sh.Delete
    Next sh
End Sub

Le problème c'est que je n'arrive pas à trouver la bonne condition pour garder les Shapes avec du texte à l'intérieur...

Merci d'avance pour votre aide

Bonjour DBZ, le forum,

Peut-être ainsi:

Sub efface()
 Dim sh As Shape
    For Each sh In Sheets("Carte").Shapes
     If sh.DrawingObject.Text = "" Then sh.Delete
    Next sh
End Sub

Cordialement,

Merci xorsankukai, ça marche parfaitement ;)

Bonne journée à toi