TextBox Color condition
Bonsoir,
J'ai un problème que je n'arrive pas à résoudre voici ci dessous le code :
Private Sub TextBox9_Change()
Select Case TextBox9
Case Is < 0.8
TextBox9.ForeColor = RGB(255, 0, 0)
Case 0.8 To 0.9
TextBox9.ForeColor = RGB(255, 165, 0)
Case Is > 0.9
TextBox9.ForeColor = RGB(0, 255, 0)
End Select
End Sub
La macro s'exécute correctement,
Mais la condition n'est plus prise en compte et le font est en vert quand je rajoute ça car je veux que ça soit en pourcentage :
TextBox9.Value = Format(TextBox9, "0.00%")
Merci d'avance pour votre aide
Bonjour,
Une idée ... pas testée ...
Utiliser l'évènement Exit pour modifier le format en pourcentage ...
En espèrant que cela t'aide ...
Je l'ai essayé ça ne marche pas :/
bonjour
les textbox sont des string
Select Case TextBox9
pour les chiffres
Select Case CDbl(TextBox9)
A+
Maurice
Bonjour,
Pour t'apporter une solution personnalisée ... il faudrait que tu joignes ton fichier ...