[VBA-E] bouton dynamique avec fonction

bonjour

j'ai crée un ensemble de boutons dynamiquement, dans le tag de chaque bouton j'ai mis un string ...
et je veux affecter un click qui appellerait une fonction en passant le tag en paramètre, mais la solution d'ecrire du code dynamiquement avec .InsertLines ne me convient pas
quelles solution proposez vous ?
merci

Citation:

---

Envoyé par ogenki

quelles solution proposez vous ?

---

.InsertLines :oops:

Il me semble qu'à l'époque où je fréquentais ce forum, bidou m'avait proposé une solution avec une création de collection de bouton

Mon iquiétude sur le insertLines est que se passe-til en cas de sauvegarde du fichier ... les lignes insérées sont sauvegardées ?

Citation:

---

dans le tag de chaque bouton j'ai mis un string ...

---

Bon! je vois que l'on recommence... avec la même philosophie....
La mienne est donc également la même :
Si ce qui est inscrit dans la propriété tag l'est dyamiquement..., je veux en conclure que cette inscription correspond à un raisonnement... et que ce raisonnement sera donc répété...systématiquement.
J'ai vraiment besoin que l'on m'explique ce genre de manoeuvre...

Citation:

---

J'ai vraiment besoin que l'on m'explique ce genre de manoeuvre...

---

je sais pas si sa repond a ta question mais mon bouton est dans une boucle et a chaque foi le tag a une valeur diferente...

le but est simplement que l'appui sur le bouton lance la focntion avec le contenu de son tag ...
le contenu du tag étant bien entendu différent pour chaque bouton ...

mais peut être qu'avec une autre approche ...

si tous les boutons portent le même non on a une collection non ?

si on mets juste en dur dans le code un focntion du genre

Code:

---

1 2 3

private sub monbouton.click() call mafonction(monbouton.tag) end sub

---

Bon ! Et alors ?
Je suppose que tu ne changes pas la chaine inscrite dans le .tag juste pour t'amuser à la changer plusieurs fois, dans une boucle.
Je veux penser qu'apès chaque modification de la chaine dans le .tag, tu utilises ce qu'il y a dans le .tag, non ? (et apparemment il s'agit d'un paramètre à passer à une fonction).
Bien que je ne comprenne d'ailleurs pas ce que le .tag aurait de plus intéressant qu'une variable, j'accepte l'idée de son utilisation.
Celà ne change toujours rien à la "philosophie" de la chose.

bin oui je le passe en parametre dans une fonction...

Ta question est-elle donc tout simplement (tag ou pas tag) :
"comment appeler, lors d'un événement click, une fonction en lui passant un paramètre connu ?"
Si c'est cela : bravo pour la perte de temps jusqu'ici...

non ma question est de le faire sans utilisé de
.InsertLines

pour le tag... il faut bien que l'on sache quel bouton doit passer quel paramètre ...
donc au lieu d'associer un tableau avec les valeurs d'un coté et des indices de boutons de l'autre j'ai trouvé plus simple de mettre le paramètre à passer dans le tag ...

la question est comment attribuer le click au bouton ...
qu'est ce que l'on mets dans la boucle ou est ce que simpelemnt le fait que tous les boutons ayant le même nom et avoir une seule sub en dur suffit ...

Et quelle que soit l'issue de ce post ce n'est pas une perte de temps parceque'à cette heure on ne sait pas comment le faire ...

Citation:

---

Envoyé par ogenki

bonjour

j'ai crée un ensemble de boutons dynamiquement, dans le tag de chaque bouton j'ai mis un string ...
et je veux affecter un click qui appellerait une fonction en passant le tag en paramètre, mais la solution d'ecrire du code dynamiquement avec .InsertLines ne me convient pas
quelles solution proposez vous ?
merci

---

Les boutons que tu as créés le sont-ils sur une feuille Excel ou sur une forme?

Peux tu nous fournir le code qui génère ces boutons?

sur une feuille excel ...

Citation:

---

Envoyé par SpaceFrog

si tous les boutons portent le même non on a une collection non ?

---

j'ai un gros doute :?

il me semble, si j'ai bien suivi le topic précédent, que tu es sous Excel, arrête-moi si je me trompe

Or, le gros pb avec Excel, c'est qu'on ne peut pas créer de contrôles avec un index, donc tu ne peux pas leur donner le même nom (même avec une collection, il faudrait pouvoir passer un index à commandbutton_click, qui n'en accepte pas)

Excuse si je dis une anerie, j'suis pas dans mon assiette aujourd'hui :?

Je ne sais pas ce que peut ou non faire Excel (pas ma tasse de thé).
Je pars donc de l'hypothèse selon laquelle excel N'accepte pas de groupes de contrôles.
Si Excel accepte les optionsButtons :
Pourquoi ne pas les utiliser avec pour rôle, pour chacun d'entre eux, de "rapporter" lorsque cliqué, dans une variable ou ailleurs (y compris le tag du commandbutton) un paramètre "en cours"
En cliquant alors sur le commandbutton, c'est ce paramètre qui interviendrait)

le problème reste entier
d'une part assosier un indice à un bouton qui irait rechercher une valeur dans un tableau ...
donc autant passer par le tag ...

je teste les collections de boutons sur une feuille excel .. c'est là ma dernière cartouche

bonsoir

Citation:

---

Envoyé par SpaceFrog

Mon iquiétude sur le insertLines est que se passe-til en cas de sauvegarde du fichier ... les lignes insérées sont sauvegardées ?

---

Oui



un exemple pour que les boutons appellent une fonction contenant une variable

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To 2 Texte = "Sub Bouton" & i & "_Click()" & vbCrLf Texte = Texte & "MaFonction monParametre" & i & vbCrLf Texte = Texte & "End Sub"   With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule j = .CountOfLines + 1 .InsertLines j, Texte End With Next i

---

bonne soiree
michel

ben justement il ne faut pas quelles soient sauvegardées ... :cry:

rebonsoir

Si tu ajoutes les macros dynamiquement , tu peux aussi les supprimer quand tu as terminé de les utiliser

Code:

---

1 2 3 4 5

Sub supprimerProceduresFeuilleActive() With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With End Sub

---

bonne soiree
michel

Bon. J'en reste à la question d'Ogenki, qui n'a à passer que des paramètres.
Si Excel n'offre pas de groupes de contrôles et que l'on veut éviter de répéter trop de code :
appel d'une sous-routine (toujours la même) avec passage du paramètre inscrit dans le tag (ce ne sera qu'un minuscule bout de code pour chaque bouton)