Discussion :

[miron]

Bonjour,

J'ai une liste des noms des boutons dans une feuille, et je souhaiterais pouvoir accéder auxdit boutons de manière à pouvoir modifier leurs propriétés, comme par exemple "Enabled".

J'ai trouvé un code qui fonctionne pour les formulaires

Code :

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

Me.Controls("nomducontrol")

Seulement ceci ne fonctionne pas lorsque les boutons sont sur des feuilles de calculs.

Connaissez vous un moyen de parvenir à mes fins ?

Merci par avance de votre aide.

Cordialement,

[Krovax]

il me semble avoir vu une réponse d'ucfoutu a ce sujet indiquant d'utiliser

Code :

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

shapes("nom")

Je recherche le lien

Edit le lien en question :
http://www.developpez.net/forums/d71...bjet-variable/

[LeForestier]

Bonjour,
Si j'ai compris ce que tu explique..
Si le code est dans le module de la feuille,
NomDuControle.Enabled = True
Si dans un module publique, soit activer la feuille soit mettre le nom de la feuille avant.
A+

[miron]

Merci,

il me semble avoir vu une réponse d'ucfoutu a ce sujet indiquant d'utiliser

Code :

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

shapes("nom")

J'avais vu ça ailleurs, mais je dois pas savoir l'utiliser, ni comprendre son fonctionnement, car

Code :

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

Shapes("lenomducontrole").Enabled = False

donne une erreur (l'élément portant ce nom est introuvable).

[MiXinG]

Salut, ce que t'as écrit LeForestier devrait fonctionner.

Si ton bouton s'appele button1 et qu'il se trouve dans la feuille nommée feuil1 tu peux définir sa propriété enabled dans n'importe quel module de ce classeur via la commande:

Code :

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

feuil1.button1.enabled = true

Bon courage

[miron]

Si ton bouton s'appele button1 et qu'il se trouve dans la feuille nommée feuil1 tu peux définir sa propriété enabled dans n'importe quel module de ce classeur via la commande:

Code :

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

feuil1.button1.enabled = true

Bon courage

Merci, mais je souhaiterais appeller le nom du bouton dynamiquement, via une variable (et pas en dur dans le code).
Sinon, en général, j'utilise bien sûr ce moyen pour modifier les propriété des controles

[MiXinG]

ok!
autant pour moi

[LeForestier]

Re,
Je ne suis pas parvenu à assigner directement mais tu peu déjà t'inspirer de ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ChangerBT()
Dim Nom As String
Dim Num As Long
Dim Obj As OLEObject
    Num = 1
    Nom = "Bouton" & Num
 
    For Each Obj In Sheets("Feuil3").OLEObjects
        If Obj.Name = Nom Then
            Obj.Enabled = Not Obj.Enabled
            Exit Sub
        End If
    Next Obj
End Sub

Si tu a un bouton nommé Bouton1 sur la feuille 3, inverse la valeur Enabled à chaque fois que la macro est appelée.
Mais toutes les propriétés sont accessibles.

A+

[miron]

Merci LeForestier, je viens d'essayer rapidement, et bizarement il me trouve pas les boutons, mais uniquement une zone de texte.
Peut etre que c'est le premier Objet et qu'il s'arrete au premier ?! Pourquoi..??!

EDIT : Ca venait apparrament du fait que javais regroupé divers éléments entre eux, et notamment les boutons.
Cependant je n'arrive pas à changer la propriété Enabled d'un bouton...

[LeForestier]

je viens d'essayer rapidement

Peut-être que tu devrais aller moins vite j'ai tester avant de poster le code et ça fonctionne parfaitement sur un bouton.
ATTENTION !! bouton de la boite à outils contrôles, pas formulaire.
Sur les objets formulaires tu n'a pas accès aux propriétés.

[miron]

j'ai tester avant de poster le code et ça fonctionne parfaitement sur un bouton.
ATTENTION !! bouton de la boite à outils contrôles, pas formulaire.
Sur les objets formulaires tu n'a pas accès aux propriétés.

Heu c'est quoi la difference entre les deux boutons ???

[Krovax]

La barre d'outils que tu utilise pour les créer et les chose que tu peux faire avec

(sous 2003 mais 2002 devrais être identique)
La barre
"Boite a outil Contrôle "
Ca c'est les bons

La barre "formulaire"
a éviter si tu ne fait pas un formulaire

[miron]

ATTENTION !! bouton de la boite à outils contrôles, pas formulaire.
Sur les objets formulaires tu n'a pas accès aux propriétés.

Donc j'utilise bien les boutons de la boite à outils contrôles... (Merci Krovax)
Bizarre.

[LeForestier]

Bizarre en effet..
Voir classeur, et puisque tu semble avoir beaucoups de boutons j'y ai ajouter une collection qui permet de les gérer en groupe. (avec une classe)

[miron]

Merci beaucoup LeForestier.

Après beaucoup de temp d'énergie et d'énervement, j'ai trouvé d'où le problème vennais :
Je lancais pas la Sub depuis le Workbook_Activate mais depuis le Worksheet_Activate...
Merci pour ta classe (et la sub Init) mais, après plusieurs minutes pour comprendre à quoi elle servait , pour ma part et à l'heure actuelle, avec les spécificité du fichier actuelle je ne pourrais à priori pas l'utiliser.
Par contre des lignes qui sont dans ChangerBT() me seront très utiles.

J'èspère que ca servira à quelqu'un...
Je mets en place les macros utilisant les "OLEObjects" et si ca marche, je mettrais résolu au post.

Encore merci !