Bonjour !
j'ai créer un formulaire avec 70 rectangle sur lequel je voudrait insérer une procédure sur le On_Click.
j'ai ne sait pas trop comment m'y prendre pour affecter les procédure à un évènement par exemple ;
j'aurait public sub Couleur1_Click() à Public Sub Couleur70_Click()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private sub Form_Load() ' parcours l'entete de formulaire For Each ctrl In Form.Section(acDetail).Controls If TypeOf ctrl Is Rectangle Then ' on active l'événement ctrl.OnClick = "[Event Procedure]"
Mon Évènement serait :Je suis un peu perdu j'espère avoir de l'aide merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Couleur1_Click() GetDcColor 'Une Fonction dans un module externe ! End Sub
Partager