Bonjour à tous

Cela fait un moment que je cherche une solution à mon problème sans y arriver donc j'aimerais savoir si quelqu'un ici pouvais m'aider.

Je m'explique, je dispose d'un formulaire sur lequel j'ai une cinquantaine de contrôles de type "Rectangle", j'aimerais que lorsque je clic sur chacun de ces derniers la même macro se lance.

Pour le moment j'ai ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Ctl53_Click()
    [Forms]![Form-TAD]![arret].Value = 53
    [Forms]![Form-TAD]![CommuneDep] = "OETING"
    [Forms]![Form-TAD]![ArretDep] = "DESCARTES"
    DoCmd.OpenQuery "TrajetsExistant", , acReadOnly
    DoCmd.Requery
    DoCmd.Close acQuery, "TrajetsExistant"
    DoCmd.OpenForm "TrajetsDispo", , , , , acDialog
End Sub
 
Private Sub Ctl54_Click()
    [Forms]![Form-TAD]![arret].Value = 54
    [Forms]![Form-TAD]![CommuneDep] = "OETING"
    [Forms]![Form-TAD]![ArretDep] = "AVOGADRO"
    DoCmd.OpenQuery "TrajetsExistant", , acReadOnly
    DoCmd.Requery
    DoCmd.Close acQuery, "TrajetsExistant"
    DoCmd.OpenForm "TrajetsDispo", , , , , acDialog
End Sub
[arret] [CommuneDep] et [ArretDep] alimentent une requête dans mon application, [arret] représentent l'identifiant d'un arrêt se trouvant dans une table. J'ai nommé mes contrôles dans mon formulaire de la même manière que [arret] et j'aimerais donc qu'en cliquant sur chacun des rectangle mes textBox [arret] [CommuneDep] et [ArretDep] prennent les valeurs se trouvant dans ma table.

Est ce que quelqu'un aurait une idée de comment je dois m'y prendre ?

Merci d'avance pour votre aide.