Variable pour un Objet?

Bonjour,

Sous excel, je voudrais avec un Nom (String) Effectuer des actions sur un Bouton portant ce même nom.

Exemple :

Variable = Test

Mon Bouton s'appel : Test

Donc je voudrais faire : Test.Enabled=True

J'éspère que vous me comprenez...

Merci d'avance !

salut,
je suppose que tu veux traiter le bouton dont le nom est contenu dans ta variable...

Si c'est bien cela, tu peux passer par la propriété Controls()

exemple :

Code:

---

1 2 3

Dim variable As String variable = "TextboxTest" Me.Controls(variable).value = "Salut le monde"

---

Bonjour, et merci de cette réponse rapide...

Je pense que ta solution n'est pas celle qu'il me faut...

Je m'éxplique.

En faite, J'ai une fonction qui me donne un nom de mois (Janvier, Fevrier...)

Sur une feuille, j'ai 12 Bouton avec un bouton pour chaque mois. SI La fonction renvoi Mars, je veux que le bouton Mars soit activé.
Bien sur, je pourais utiliser

Code:

---

1 2 3 4 5 6 7

If NomDuMoi = Janvier then Feuil1.Janvier.Enabled=True ElseIf NomDuMoi=Fevrier then '..... 'Etc etc... 'Je voudrais généraliser : Feuil1."NomDuMoi".Enabled = True 'Comprenez vous mieux???

---

Merci !

Comprenez vous???

et avec une adaptation comme ceci :

Code:

---

Feuil1.Controls(NomDuMoi).Enabled = True

---

cela convient-il ?

Erreur !

Pourtant ça devrait fonctionner...

Le message dit :

Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet...

Peut être qu'il y à un truque à faire et que j'ignore...

Je suis sous excel 2003.

Merci beaucoup.

Salut,
Je n'ai jamais réussi à faire fonctionner le Enabled sur un objet de feuille de type bouton (faut dire que j'ai pas cherché des masse) car j'ain contourné par .Visible=True en utilisant Shapes au lieu de Controls
Je sais que c'est pas ce que tu cherches mais c'est mieux que rien et si quelqu'un trouve la manière de mettre un bouton sur feuille en Enabled je suis preneur.

Exemple

Code:

---

Worksheets("TaFeuille").shapes("TonMois").Visible = True

---

A+

Salut.

Code:

---

feuil1.Shapes("bouton 3").OLEFormat.Object.enabled=false

---

Après avoir cherché en utilisant feuil1.Shapes("bouton 3") comme valeur espion...

Il faut cependant noter que cela désactive l'action OnAction sur le bouton, mais ça ne le met pas en grisé... Il faut peut-être passer par

Code:

---

feuil1.Shapes("bouton 3").OLEFormat.Object.font.colorindex=16

---

en choisissant la couleur qui va bien.

Très bien, merci beaucoup !

J'ai déjà de quoi faire !