Discussion :

[king13]

Bonjour, le libéllé n est peut etre pas tres clair donc je m explique

j'ai un ensemble de 28 boutons et je voudrais avoir un evenement commun a ces 28 bouton sur le click de la souris
ce qui m eviterai de faire :

Code :

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

1
2
3
private sub ctl1_click
call fction (1)
end sub

car je passe le numero du controle dans une fonction

voila je pense que par du VB pure les controles peuvent etre indexé et que ca doit etre possible mais ne VB je ne trouve ni la solution technique, ni une astuce qui me permettrait de contourner le probleme

merci d'avance pour vos solutions ou suggesstions

[helas]

mettre des boutons bascules dans un groupe d'options

[king13]

je ne connais pas les groupes d options mais je vais regarder
pourquoi des boutons bascules et pas des bouton simples ?
je vais regarder cette piste merci pour cette premiere reponse

[LedZeppII]

Bonjour,

une solution que j'ai vue un jour sur ce forum :

Créer une fonction dans le module de code du formulaire.
Par exemple :

Code :

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

1
2
3
4
Function cmdClickCommun(strName As String)
' Si besoin, je peux savoir quel bouton a généré l'appel de cette fonction
' grace à strName
End Function

Pour les boutons qui devront partager cette fonction lors de l'événement "sur Clic",
mettre dans la propriété "Sur Clic"

Code :

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

=cmdClickCommun("NomDuContrôle")

Lors de l'évenement "Sur Clic", la fonction cmdClickCommun(..) sera appelée.

Par exemple si j'ai quatre contrôles de type bouton nommés cmdBouton1, cmdBouton2, cmdBouton3, cmdBouton4.

Code :

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

=cmdClickCommun("cmdBouton1")

Code :

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

=cmdClickCommun("cmdBouton2")

Code :

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

=cmdClickCommun("cmdBouton3")

Code :

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

=cmdClickCommun("cmdBouton4")

A+

[king13]

merci de cette deuxieme reponse par contre je ne comprend pas ou tu me dis de mettre le code d'appel de fonction
tu me dis dans la "proprieté click" mais c'est a dire ?
je met l'appel de fonction dans la proprieté ?la fonction doit donc etre public c est ca ?



pour ce qui ets de la premiere solution , elle marche bien mais il ets impossible d'avoir tous mes boutons relachés en meme temps et je ne souhaite pas avoir en permanence un bouton enfoncé

en totu cas merci de vos reponse , je sens que je touche au but


PS: je viens de trouver merci pour cette derniere solution, je vais essayer de la mettre en oeuvre, j ai reussi l appel de fonction public dans la propriété , je ne savais pas que c etait possible. des que j ai reussi je poste pour la resolution

merci encore

[helas]

pour que les boutons restent relachés, il suffit de récupérer la valeur puis d'affecter la valeur 0 au groupe d'options ce qui a pour effet de relacher le bouton

[cafeine]

Hello,

on peut éviter de fastidieux remplissage de propriété sur Clic en chargeant ces propriétés par le code sur l'événement Load du formulaire

Code :

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

1
2
3
4
5
6
7
dim ctl as Control
for each ctl in me.Controls
   if ctl.controltype = acCommandButton then
      ctl.OnClick = "=MaFonctionGénérique(""" & ctl.name & """)"
   End if
next ctl
set ctl = nothing

ou aussi un exemple ici
http://www.developpez.net/forums/d26...ent-controles/

[vodiem]

bonjour à tous,

il est aussi possible d'utiliser l'appel d'une fonction sans utiliser de paramètre si l'on fait un select case sur le Screen.ActiveControl.Name