Bonjour,
Je vous explique mon problème.
J'ai un USERFORM comprenant plusieurs TEXTBOX qui se remplissent suivant différentes conditions.
Suivant la valeur affiché dans la TEXTBOX, celle ci se colorera de différentes façons (Noire si =0, vert si >0 et rouge si <0).
Private Sub TextBox26_Change()
Select Case Left(TextBox26.Value, Len(TextBox26.Value) - 1)
Case -1000000 To -0.0001
TextBox26.BackColor = vbRed
Case 0.0001 To 1000000
TextBox26.BackColor = RGB(128, 159, 214)
Case Is = 0
TextBox26.BackColor = vbGrey
End Select
End Sub
Tout fonctionne bien tant que la TEXTBOX contient un chiffre classique ou un %.
TextBox24.Value = Format(Sheets("Calculs").Range("N52"), "0.0")
TextBox37.Value = Format(Sheets("Calculs").Range("C55"), "##0%")
Mais cela ne marche pas si j'utilise l'unité de mesure "Kg"
TextBox30.Value = Format(Sheets("Calculs").Range("H54"), "# ### ##0Kg")
J'ai l'impression que la valeur n'est pas reconnue comme un chiffre et la TEXTBOX ne se colore pas.
Je souhaiterai que la coloration se produise en gardant le l'affichage du "Kg".
Je vous remercie par avance pour votre aide.