Discussion :

[Thanatos2]

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!

[Menhir]

Essaye plutôt ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  form.TextFrame2.TextRange.Text = "Y"

[Thanatos2]

Salut Menhir,

Merci pour ta proposition, quand je lance la macro du coup il met "La valeur tapée est en dehors des limites" ; j'ai essayé avec des chiffres aussi (0, 1), il me dit chaque fois la même chose...

[Menhir]

C'est étrange. J'ai testé ce code chez moi avec une dizaine de Shapes, ça marche bien.

Tu es sûr d'avoir donné toutes les informations nécessaires ?
En terme Excel, que sont tes "labels" ?

quand je lance la macro du coup il met "La valeur tapée est en dehors des limites"

Qu'est-ce que tu entends par "il me met" ? Est-ce un message d'erreur de VBA ? Dans ce cas, sur quelle ligne de code signale-t-il l'erreur ?

Ce message d'erreur me semble bizarre (le terme "tapé" semble très étrange). Je ne l'ai jamais vu en exécution de VBA. Ca ne serait pas un message d'une autre partie de ton code ?

[Thanatos2]

Re Menhir,

Les labels que j'utilise sont des "Etiquettes Controle ActiveX" car je ne travaille pas avec un formulaire.. peut être que le code ne fonctionne pas avec ce type d'étiquette?

Quand je lance la macro c'est bien un message d'erreur vba qui s'affiche : "Erreur d'exécution '-2147024809 (80070057)' : La valeur tapée est en dehors des limites".
Si je clique sur "débogage" il sélectionne la ligne "form.TextFrame2.TextRange.Text = "Y" "...

[joe.levrai]

Bonjour,

regarde si tu as bien la référence Microsoft Office XX.X Object Library cochée pour ce classeur (valeur de X la plus haute)

[Thanatos2]

Salut Joe, oui elle est bien activée..

[Pierre Fauconnier]

Salut.

Es-tu sûr de n'avoir que des labels sur ta feuille? Car tous les "shapes" n'acceptent pas du texte. La toupie, par exemple, n'en accepte pas. Du coup, ton code plante sur le contrôle qui n'accepte pas la propriété

Démarre en mode pas à pas et lorsque cela bogue, tape ? form.name dans la fenêtre d'exécution (CTRL+G si elle n'est pas active)... Tu verras ainsi sur quel shape tu as le problème...

[Thanatos2]

Salut Pierre,

J'ai aussi un CommandButton mais il doit aussi accepter du texte
Depuis la fenêtre d'exécution avec ton astuce, la macro semble buguer sur le Label1.. je vais y regarder de plus près

[Pierre Fauconnier]

Je n'avais pas percuté sur le fait que tes labels étaient des activeX... Ce sont donc des OLEObjects sur ta feuille.

Voici un code qui fonctionne pour modifier le texte des labels et pour les rendre visibles.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
  Dim form As OLEObject
 
  For Each form In Feuil1.OLEObjects
    If form.progID = "Forms.Label.1" Then
      form.Visible = True
      form.Object.Caption = "y"
    End If
  Next form
End Sub

[Thanatos2]

C'est tout simplement trop fort... ça marche nickel
Un très grand merci à toi Pierre !