Discussion :

[marsoin38]

Bonjour,
Je travaille avec VB pour applications 7.0

J'ai un userform integrant pas mal de ToggleButtons.Ces derniers sont listés dans une feuille Excel (col 1) et leur dernier état connu (False/True) dans une seconde colonne (col 2).
A l'initialisation du userform, je souhaite prendre le nom du toggleButton, et lui adresser son état.
Mon code:

Code :

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

1
2
3
4
5
For Each Cellule In Range("G2:G" & Range("a65536").End(xlUp).Row)
    nom_toggle = Cellule.Value
    val_toggle = Cellule.Offset(0, 1).Value
    nom_toggle.Value = val_toggle
Next Cellule

Mon probleme:
La commande "nom_toggle.Enabled = val_toggle" ne fonctionne pas et me renvoie une erreur de compilation

Si j'inscris en dur à la place la commande avec les noms et valeurs de ce qui est souhaité, "ToggleButton_1.Enabled = False", celà fonctionne.

Merci d'avance pour votre aide

[riaolle]

Essaie :

Code :

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

Shapes(nom_toggle).Enabled = val_toggle

Mais je ne promets rien

Cependant, personnellement j'aurais procédé d'une autre façon.J'aurais utilisé la cellule de controle (LinkedCell dans les propriétés) du togglebutton. Ainsi tu peux changer la valeur de la cellule de controle ce qui affectera ton bouton.
Connais-tu les LinkedCell?

EDIT : une précision par rapport à LinkedCell :

On peut changer directement la valeur de K1 (VRAI/FAUX) et ceci affecte le togglebutton.

[Menhir]

On ne le répètera jamais assez : pour faire un code propre, il faut déclarer ses variables avec leur type.

Ta variable nom_toggle n'est pas un objet mais une simple chaine de caractères.
A ce titre, elle ne peut donc pas avoir de propriété et encore moins changer la valeur d'une propriété d'un objet dont elle contient le nom.
C'est un peu comme apporter à un garagiste la photo de ta voiture et lui demander de changer le pot d'échappement.

Par contre, ToggleButton_1 désigne (je suppose) un réel objet. C'est pour ça que ça fonctionne.