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 :
Quelqu'un pourrait-il me dire où est mon erreur
Merci
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 :
Code:
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
Merci