Discussion :

[dany13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[fring]

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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   GestionCouleur_1050("Txt_GSMS")

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

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   GestionCouleur_1050(Txt_GSMS.Name)

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

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   "...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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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

[Golork]

Avec le code de fring, remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub GestionCouleur_1050(TxtName As String)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub GestionCouleur_1050(ByRef TxtName As TextBox)

Puis quand tu veut appeler ta procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' soit
GestionCouleur_1050 Txt_GSMS
' soit
Call GestionCouleur_1050(Txt_GSMS)

[dany13]

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