Bonjour,
Voici mon problème, j'ai des TEXTBOX dans un USERFORM et je souhaite les colorer suivant les valeurs qui vont s'afficher à l'intérieur.
J'arrive à les faire fonctionner mais pas tout à fait comme je voudrais.
Voici ce que j'écris dans mes TEXTBOX :
Afin de les colorer suivant si le contenant est égal à 1 ou à 2.
Private Sub TextBox1_Change()
Select Case Left(TextBox1.Value, Len(TextBox1.Value) - 1)
Case Is = 2
TextBox1.BackColor = RGB(88, 38, 126)
TextBox1.ForeColor = vbWhite
Case Is = 1
TextBox1.BackColor = RGB(141, 66, 198)
TextBox1.ForeColor = vbWhite
End Select
End Sub
Voici ce que j'écris pour remplir mes TEXTBOX :
TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "0.0")
Le problème vient d'ici je pense, je souhaiterai que le chiffre soit entier dans la TEXTBOX et pas à virgule ( 1 plutôt que 1,0 ).
Mais le code ne fonctionne pas si j'y affiche une valeur sans virgule :
TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "0")
ou
TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "")
Je vous remercie par avance.
Commercialement.
Olivier