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
 

Fichiers joints

joss56

XLDnaute Accro
Bonjour,
Comme ça peut-être...:
select case val(textbox1)
case >7
me.backcolor=rgb(255,0,0)
case >4
me.backcolor=rgb(?,?,?) ' voir pour la couleur orange
case else
me.backcolor=rgb(0,255,0)
end select

Jocelyn
 

Jacky67

XLDnaute Accro
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
 

Myst

XLDnaute Occasionnel
Bonjour joss56, jacky67
Rapide, efficace et simple :D:)
C'est parfait, j'avance a grand pas grâce a vous
Merci
 

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


Haut Bas