Couleur TextBox

[Han]

bonsoir,

Je reprends une question que j'ai déjà. Comment utiliser les formats conditionnels dans les cellules d'un UserForm? en particulier la couleur du TextBox?

Merci.

 

[lupin]

Bonsoir,

Si j'ai bien compris ce que tu voulais, changer la couleur de la textbox en fonction de la valeur qui s'y trouve ? Alors tu places ce code sur l'évènement EXIT de la textbox (ce n'est qu'un exemple) :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case Val(TextBox1)
Case Is < 200
TextBox1.BackColor = RGB(255, 0, 0)
Case Is > 500
TextBox1.BackColor = RGB(0, 128, 64)
Case Else
TextBox1.BackColor = RGB(255, 255, 0)
End Select
End Sub

Il ne te reste plus qu'à jongler avec les valeurs RGB pour obtenir les couleurs que tu veux.

Chiao.
Lupin

 

[Han]

Bonjour,

Merci Lupin. C'est ce que je voulais. Il me reste quand même à gérer ce contrôle conditionnel dans mon UserForm et qui contient plusieurs TextBox. Est-il possible de déclarer un tableau "Array or Dim" de TextBox?

Merci.