[Toutes versions] Evènement sur plusieurs contrôles [Résolu]

[Fabious]

Bonjour tout le monde,

Alors je pense que ma question a déjà été traité quelque part sur le site mais je n'arrive malheureusement pas à trouver, je vous prie de m'excuser par avance.


Est-il possible d'affecter un évènement (par exemple Sur Click) à plusieurs contrôle d'un formulaire sans pour autant déclarer un par un les évènements ?

J'arrive par exemple à affecter une valeur à chaque controls à l'aide d'un For Each mais j'aimerais que sur le clic un msgbox apparaisse, comment procéder ? Est-ce possible ?

J'aimerais éviter la solution de déclarer une fonction click pour chaque control ^^


Merci d'avance,
Cordialement.

[loufab]

Bonjour,

Avec un for each tu peux également déclarer une fonction sur événement Sur-click de chaque controle.

Exemple :

Code :

1
2
3
4
5
For Each ctrl as me.controls
     if .... then
        ctrl.onclik = "=MafonctionMsg()"
     endif
Next

Tu peux également passer par une classe mais pour un seul formulaire et une seule procédure c'est une perte de temps à mon avis.

Regarde le tuto sur la classe MELA c'est ce qui se pratique mais avec une action différente suivant les événéments et les controles.

Cordialement,

[Fabious]

Merci beaucoup pour ta réponse,


Je me sens un peu idiot car en fait c'est très simple... et ca faisait réellement un moment que je bloquais dessus!
Quand on a la tête dans le code on ne voit pas toujours les choses simples ^^


Merci encore et merci pour le conseil du tuto MELA

[Fabious]

Bonjour,

Je me permet de remonter le topic car j'ai une question,
Peut-on passer un argument à l'évènement ?

Par exemple sur le clique d'un contrôle, j'aimerais pouvoir envoyer à la fonction le nom du contrôle... je ne trouve pas la syntaxe.

Par exemple :

Code :

1
2
3
4
5
6
 
Me.ctl.OnGotFocus = "=test(" & ctl.Name& ")"
 
Private Function test(ByVal ctlName As String)
MsgBox ctlName
End Function

Mais ca ne marche pas :/

Merci d'avance !

[paidge]

Bonjour Fabious,

Tu as juste oublié des guillemets Solution :

Code :

1
2
3
4
5
Me.ctl.OnGotFocus = "=test('" & ctl.Name& "')"
 
Private Function test(ByVal ctlName As String)
MsgBox ctlName
End Function

le paramètre ctlName de ta fonction test(ctlName) étant une string, il doit être entre guillements.comme la propriété OnGotFocus est aussi une string qui se trouve déjà entre guillemets doubles, il faut mettre des guillemets simples ou doubler les guillemets doubles.

Code :

1
2
3
4
5
Me.ctl.OnGotFocus = "=test(""" & ctl.Name& """)"
 
Private Function test(ByVal ctlName As String)
MsgBox ctlName
End Function

devrait donc fonctionner aussi

[Fabious]

Ah merci beaucoup !

Ca me rassure de savoir que je n'étais pas très loin de la solution ^^

Encore merci