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 ;

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]"
j'aurait public sub Couleur1_Click() à Public Sub Couleur70_Click()

Mon Évènement serait :
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
Je suis un peu perdu j'espère avoir de l'aide merci