Discussion :

[jojo86]

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 !

[Jean-Philippe André]

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 :

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

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

[jojo86]

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 :

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

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???

[Jean-Philippe André]

et avec une adaptation comme ceci :

Code :

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

Feuil1.Controls(NomDuMoi).Enabled = True

cela convient-il ?

[jojo86]

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.

[Fvandermeulen]

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 :

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

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

A+