Effacer zone de texte

Bonjour et bonne année,

Voila j'ai environ 100 zone de texte nommer "ZT-01, ZT-02 ect.." grouper sur une feuille et je suis a la recherche d'un code pour effacer tous les zone de texte.

Je vous remercie d'avance

Cordialement

Max

Bonjour

Pour effacer toutes les Shapes

Sub Efface()
Dim Sh As Shape 
For Each Sh In ActiveSheet.Shapes
    Sh.Delete
Next
End Sub

Cordialement

Bonjour Amadéus et bonne année

Le souci c'est qu'il me supprime carément les zonz de texte alors que moi je vodrais juste les effacer pour lui remettre du texte

@+

Max

Bonjour. Bonne Année à toi également.

J'avais mal compris

Sub Efface()
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        Sh.TextFrame.Characters.Text = ""
    Next
    End Sub

Cordialement

Re,

J'ai un message d'erreur "Erreur défini par l'application ou par l'objet"

@+

re,,

Je joint mon fichier peut être plus simple?

@+

Bonjour

Je n'ai pas la solution

Tes shapes sont groupées. J'ai donc utilisé ce code pour les dégrouper

 Sub Dissocie()
 Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoGroup Then s.Ungroup
Next
'Call Efface
End Sub

Ce qui fonctionne correctement.

Par contre lorsque je vide les shapes avec l'une ou l'autre des instructions suivantes, les zones de texte disparaissent (sont supprimées)

Sub Efface()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
'pour ne pas effacer le bouton
If Left(Sh.Name, 2) = "ZT" Then Sh.OLEFormat.Object.Text = "" 'TextFrame.Characters.Text = ""
Next
End Sub

Un pro en VBA apportera peut-être la solution?

Cordialement

Re,

Je te remercie tu as fait ton possible.

Bon dimanche

Max

Salut Amadeus, Salut Valmax,

@ Valmax : je m'intéresserais bien à ton problème actuel, mais je voudrais déjà recevoir une réponse de ta part quant à ma solution d'hier sur ton autre fil

Cordialement.