[VBA-E] bouton dynamique avec fonction

**ogenki** · 02/02/2006, 16h12

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

**ThierryAIM** · 02/02/2006, 16h15

Envoyé par ogenki

quelles solution proposez vous ?

.InsertLines

**SpaceFrog** · 02/02/2006, 16h18

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 ?

**jmfmarques** · 02/02/2006, 16h28

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

**ogenki** · 02/02/2006, 16h33

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

**SpaceFrog** · 02/02/2006, 16h37

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 :

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

1
2
3
private sub monbouton.click()
call mafonction(monbouton.tag)
end sub

**jmfmarques** · 02/02/2006, 16h39

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.

**ogenki** · 02/02/2006, 16h41

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

**jmfmarques** · 02/02/2006, 16h44

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

**ogenki** · 02/02/2006, 16h46

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

**SpaceFrog** · 02/02/2006, 16h49

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

**Catbull** · 02/02/2006, 17h01

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?

**SpaceFrog** · 02/02/2006, 17h08

sur une feuille excel ...

**ThierryAIM** · 02/02/2006, 17h16

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

**jmfmarques** · 02/02/2006, 17h33

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)

**SpaceFrog** · 02/02/2006, 17h37

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

**SilkyRoad** · 02/02/2006, 17h38

bonsoir

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 :

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

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

**SpaceFrog** · 02/02/2006, 17h39

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

**SilkyRoad** · 02/02/2006, 17h48

rebonsoir

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

Code :

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

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

**jmfmarques** · 02/02/2006, 17h54

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)

[VBA-E] bouton dynamique avec fonction

Macros et VBA Excel

Discussions similaires

Partager

Partager