Supprimer toutes les zones de texte d'une cellule

[jmh1]

Bonjour le forum,

J'ai une feuille de calcul où j'ai des zones de texte d'insérées dans certaines cellules.

J'aimerai par une macro, quand je sélectionne une cellule que toutes les zones de texte de cette cellule soient effacées.

J'ai essayé avec le code suivant mais sans succès :

Sub supprimerZoneTexte()

Dim Sh As Shape

feuilleactive = ActiveSheet.Name
celluleactive = ActiveCell.Address

For Each Sh In Worksheets(feuilleactive).Range(celluleactive).Shapes
     Sh.Delete
Next

End Sub

Quelqu'un pourrait-il me dire où est mon erreur

Merci

 

[DoubleZero]

Re : Supprimer toutes les zones de texte d'une cellule

Bonjour, jmh1, le Forum,

Je ne comprends pas 😕 ceci :

... quand je sélectionne une cellule que toutes les zones de texte de cette cellule soient effacées...

Un essai avec le code suivant :

Option Explicit
Sub Zone_de_texte_supprimer_de_sélection()
    Dim c As Range, s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Type = 17 Then
            If Not Intersect(s.TopLeftCell, Selection) Is Nothing Then s.Delete
        End If
    Next
End Sub

A bientôt 🙂

 

[jmh1]

Re : Supprimer toutes les zones de texte d'une cellule

Bonjour DoubleZero

Désolé si je me suis mal exprimé.

Néanmoins, ta solution fonctionne à merveille.

@+