Passer le nom d'une TextBox en paramettre d'une procedure

Bonsoir,
mon soucis est assez basique mais je m'arrache les cheveux car je n'arrive pas à faire ce que je veux.
Je veux gerer la couleur de de differentes textbox de mon userform et comme cette gestion de couleur se fait lors de plusieurs evenement de mon formulaire et que le traitement est identique au niveau de cette gestion de couleur, j'aimerai faire une fonction GestionCouleur que j'appellerai dans mes differents evenements. Sauf que j'ai une erreur dans mon appel mais je ne sais pas ou???
Voici ma fonction, où TxtName est le nom de mes textbox que je passe en paramettre :

Code:

---

1 2 3 4 5

Sub GestionCouleur_1050(TxtName As String) If TxtName.Value > 10 And TxtName.Value < 50 Then TxtName.Value.BackColor = RGB(255, 255, 255) 'normal If TxtName.Value >= 50 Then TxtName.BackColor = RGB(255, 0, 0) 'Rouge If TxtName.Value <= 10 Then TxtName.BackColor = RGB(0, 255, 0) 'vert End Sub

---

Voici un exemple de procedure où j'appelle ma fonction :

Code:

---

1 2 3 4 5

Private Sub Cmd_GSMS_Click() Txt_GSMS.Value = Val(Txt_GSMS.Value) + Val(Txt_AddGSMS.Value) 'gestion couleur GestionCouleur_1050(Txt_GSMS) End Sub

---

Une idée?
Merci infiniment par avance!
;)

Bonjour,

Plusieurs petits trucs à modifier

1. Le nom de la TextBox, passé en paramètre dans ta fonction, doit être de type String, donc soit tu ajoutes des doubles quotes si tu introduits directement le nom
   
   Code:

   ---

   GestionCouleur_1050("Txt_GSMS")

   ---

   soit tu fais appel à la propriété Name de ta TextBox
   
   Code:

   ---

   GestionCouleur_1050(Txt_GSMS.Name)

   ---

2. Dans ta fonction, il y a une petite erreur dans la première condition de couleur
   
   Code:

   ---

   "...Then TxtName.Value.BackColor =..." --> "...Then TxtName.BackColor =..."

   ---

3. Vu que ta fonction se trouve en dehors de l'object UserForm, tu dois préciser à quel UserForm sont liées les TextBox
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9 10 11

   Sub GestionCouleur_1050(TxtName As String) With UserForm1.Controls(TxtName) '<-- nom du UserForm (UserForm1) à adapter If .Value > 10 And .Value < 50 Then .BackColor = RGB(255, 255, 255) ElseIf .Value >= 50 Then .BackColor = RGB(255, 0, 0) Else .BackColor = RGB(0, 255, 0) End If End With End Sub

   ---

Avec le code de fring, remplace

Code:

---

Sub GestionCouleur_1050(TxtName As String)

---

par

Code:

---

Sub GestionCouleur_1050(ByRef TxtName As TextBox)

---

Puis quand tu veut appeler ta procédure :

Code:

---

1 2 3 4

' soit GestionCouleur_1050 Txt_GSMS ' soit Call GestionCouleur_1050(Txt_GSMS)

---

Bonsoir,
Merci pour vos réponses qui m'ont bien aidé. Les solutions proposées ne m'étaient pas surprenantes, j'avais déjà essayé mais je pense que ça ne passait pas à cause de ma fonction (sans les with) et de mes if...

Toutefois, Golork, le Byref ne passe pas du tout ainsi que l'appel de la fonction comme tu me le suggères. C'est étonnant car j'avais essayé cela aussi et je ne comprends pas pourquoi ça ne passe pas :(

@bientôt:ccool: