SOS factorisation de code

Hi,
J'ai une fonction que je dois appeler pour une quinzaine de champs de mon formulaire, et jet ne trouve pas comment passer l'Id du champ pour ensuite faire mon check et la mise en forme adhoc.

J'ai donc dupliqué N fois ma fonction , mais c'est nul

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function colorise_mot-1() If is_enrichi(Me.mot-1.Value) = False Then Me.mot-1.BackColor = RGB(255, 255, 0) Else Me.mot-1.BackColor = RGB(255, 255, 255) End If End Function   Function colorise_mot-2() If is_enrichi(Me.mot-2.Value) = False Then Me.mot-2.BackColor = RGB(255, 255, 0) Else Me.mot-2.BackColor = RGB(255, 255, 255) End If End Function

---

Comment faire une fonction qui prend en param l'Id du champ et que devient mon code.
Si je passe Me.mot-1, je peux faire mon check is_enrichi mais ensuite comment modifier le Back Coloor car me.mot-1 est la valur du mot et pas son ID, j'espère que j'explique bien.


Mille merkis

Eh bien passe l'objet control en argument

Code:

---

1 2 3 4 5 6 7 8 9

Sub Colorise_mot( oCtrl as control) If is_enrichi(oCtrl.Value) = False Then oCtrl.BackColor = RGB(255, 255, 0) Else oCtrl.BackColor = RGB(255, 255, 255) End If   End sub

---

que tu appelles depuis ton form par

Code:

---

1 2	call colorise_mot(Me.mot-1)

---