OVH Cloud OVH Cloud

Ajout d'une variable ?

6 réponses
Avatar
Octave
Bonjour à tous

Dans un poste précédent, "loko" m'a renseigné sur la possibilité de garder
un togglebutton transparent même après une première utilisation. Sa solution
fonctionne très bien.

Cependant, je souhaiterais apporter un changement afin de l'exploiter sur un
nombre important de bouton :

Voici une partie de sa macro :

Private Sub ToggleButton1_Click()
transp ToggleButton1
End Sub

Qui pourrait me la transformer pour qu'elle soit valable sur mes 90
Togglebutton sans avoir à la recopier 90 fois.
Je suppose qu'il faut insérer une variable mais je ne l'ai jamais fait.

Merci d'avance.

Octave

6 réponses

Avatar
isabelle
bonjour Octave,

il y a un exemple ici,

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/AjoutBoutonPlusCodeParVBA.txt

isabelle


Bonjour à tous

Dans un poste précédent, "loko" m'a renseigné sur la possibilité de garder
un togglebutton transparent même après une première utilisation. Sa solution
fonctionne très bien.

Cependant, je souhaiterais apporter un changement afin de l'exploiter sur un
nombre important de bouton :

Voici une partie de sa macro :

Private Sub ToggleButton1_Click()
transp ToggleButton1
End Sub

Qui pourrait me la transformer pour qu'elle soit valable sur mes 90
Togglebutton sans avoir à la recopier 90 fois.
Je suppose qu'il faut insérer une variable mais je ne l'ai jamais fait.

Merci d'avance.

Octave


Avatar
Philippe.R
Bonsoir Octave,
peut être avec (non testé) :

Private Sub ToggleButton1_Click()
For i = 1 To 90
transp ToggleButton & i
Next i
End Sub


--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Octave" a écrit dans le message de news:cd9568$k5m$
Bonjour à tous

Dans un poste précédent, "loko" m'a renseigné sur la possibilité de garder
un togglebutton transparent même après une première utilisation. Sa solution
fonctionne très bien.

Cependant, je souhaiterais apporter un changement afin de l'exploiter sur un
nombre important de bouton :

Voici une partie de sa macro :

Private Sub ToggleButton1_Click()
transp ToggleButton1
End Sub

Qui pourrait me la transformer pour qu'elle soit valable sur mes 90
Togglebutton sans avoir à la recopier 90 fois.
Je suppose qu'il faut insérer une variable mais je ne l'ai jamais fait.

Merci d'avance.

Octave





Avatar
michdenis
Bonjour Octave,

Cela est possible en utilisant un module de classe.

Tu peux télécharger ce fichier dm-moduleclasse sur le site de Misange http://www.excelabo.net.. Le code est commenté.


Salutations!


"Octave" a écrit dans le message de news:cd9568$k5m$
Bonjour à tous

Dans un poste précédent, "loko" m'a renseigné sur la possibilité de garder
un togglebutton transparent même après une première utilisation. Sa solution
fonctionne très bien.

Cependant, je souhaiterais apporter un changement afin de l'exploiter sur un
nombre important de bouton :

Voici une partie de sa macro :

Private Sub ToggleButton1_Click()
transp ToggleButton1
End Sub

Qui pourrait me la transformer pour qu'elle soit valable sur mes 90
Togglebutton sans avoir à la recopier 90 fois.
Je suppose qu'il faut insérer une variable mais je ne l'ai jamais fait.

Merci d'avance.

Octave
Avatar
Octave
Bonjour isabelle

Merci pour votre réponse :

"isabelle" a écrit dans le message de
news:
bonjour Octave,
il y a un exemple ici,

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/AjoutBoutonPlusCodeParVBA.txt


Cependant, je ne souhaite pas tout à fait faire la même chose que l'exemple
fourni.
J'ai peut-être mal procédé mais dans mon cas les boutons sont déjà créés.
Je souhaite seulement éviter de retaper 90x la commande :

"Private Sub ToggleButton1_Click()
transp ToggleButton1
End Sub"

en changeant 1 par 2 puis 3... 90

Merci quand même.

Avatar
Octave
Bonsoir "Philippe.R"

Merci pour votre réponse...

"Philippe.R" a écrit dans le message de
news:
Bonsoir Octave,
peut être avec (non testé) :

Private Sub ToggleButton1_Click()
For i = 1 To 90
transp ToggleButton & i
Next i
End Sub


C'est un peu comme cela que j'imaginais la "chose" sans être capable de
l'écrire.
Je me pose encore une question mais je vais essayer de chercher :
Faut-il mettre une variable dans le titre : "Private Sub
ToggleButton1_Click()" de manière à ce que le 1 soit lui aussi modifié ?

Merci encore

Octave

Avatar
Octave
Bonjour "michdenis"

Merci pour votre réponse :

"michdenis" a écrit dans le message de
news:
Bonjour Octave,
Cela est possible en utilisant un module de classe.


J'ai téléchargé ce fichier. Cela correspond exactement à ce que je souhaite
faire.
Je vais m'y mettre tout de suite

Merci encore.

Octave