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

Myst · 11 Juillet 2016

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

joss56 · 11 Juillet 2016

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 · 11 Juillet 2016

Myst à dit:
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 · 11 Juillet 2016

Bonjour joss56, jacky67
Rapide, efficace et simple

C'est parfait, j'avance a grand pas grâce a vous
Merci

Si... · 11 Juillet 2016

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 )

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

Myst · 13 Juillet 2016

Bonjour SI...
Intéressant la deuxième solution, formule SI en VBA
Merci

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

Myst

XLDnaute Occasionnel

Pièces jointes

joss56

XLDnaute Accro

Jacky67

XLDnaute Barbatruc

Myst

XLDnaute Occasionnel

Si...

XLDnaute Barbatruc

Myst

XLDnaute Occasionnel

Discussions similaires