Salut à tous,

J'ai une soixantaine de labels sur une feuille, je peux faire des actions dessus (clic gauche --> disparition du label, clic droit --> changement du caption).
J'ai fait une macro pour les réinitialiser ( = les faire tous réapparaître, et mettre tous les captions à "Y").

Le code donne ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub active_label()
Dim form As Shape
 
  For Each form In ActiveSheet.Shapes
  form.Visible = True
  form.TextFrame.Characters.Text = "Y"
  Next form
 
End Sub

Tous les labels deviennent bien visibles, mais pour le "Textframe.characters.text" il me dit "Propriété ou méthode non géré par cet objet.. alors que ça devrait être le cas !?
Bref je me prends la tête en essayant de changer le complément "textframe" par un autre, mais je n'ai aucun résultat...

Merci par avance pour votre aide!