XL 2010 Changer la couleur de l'userform en fonction du resultat du combobox

Myst

XLDnaute Occasionnel
Bonjour le forum
Je cherche a modifier la couleur de l'userform1 en fonction du résultat dans le textbox1 avec les critéres ci-dessous
1 - En vert si le nombre est inférieur ou égal a 3
2 - En orange si le nombre en 4 et 6
3 - En rouge si le nombre est supérieur ou égal a 7
Merci
 

Pièces jointes

  • Myst 1.xlsm
    19.8 KB · Affichages: 51

Jacky67

XLDnaute Barbatruc
Bonjour le forum
Je cherche a modifier la couleur de l'userform1 en fonction du résultat dans le textbox1 avec les critéres ci-dessous
1 - En vert si le nombre est inférieur ou égal a 3
2 - En orange si le nombre en 4 et 6
3 - En rouge si le nombre est supérieur ou égal a 7
Merci
Bonjour
Ou encore comme ceci
Code:
Private Sub ComboBox1_Change()
TextBox1 = ComboBox1
With UserForm1
If Me.ComboBox1.Value <= 3 Then .BackColor = &HC000&
If Me.ComboBox1.Value > 3 Then .BackColor = &H80FF&
If Me.ComboBox1.Value > 6 Then .BackColor = &HFF&
End With
End Sub
 

Si...

XLDnaute Barbatruc
Salut

Pour aller plus loin, avec une autre utilisation du «Me» !
Code:
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex < 0 Then Exit Sub ‘si on écrit n’importe quoi dans le contrôle
  TextBox1 = ComboBox1
  If ComboBox1 < 4 Then Me.BackColor = &HC000&
  If ComboBox1 > 3 Then Me.BackColor = &H80FF&
  If ComboBox1 > 6 Then Me.BackColor = &HFF&
End Sub
Et pour le fun (avec des bottes de 7 lieues ;):oops:)
Code:
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex < 0 Then Exit Sub
  TextBox1 = ComboBox1
  Me.BackColor = IIf(ComboBox1 < 4, &HC000&, IIf(ComboBox1 > 6, &HFF&, &H80FF&))
End Sub
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib