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

[Myst]

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]

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]

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

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]

Bonjour joss56, jacky67
Rapide, efficace et simple 😀🙂
C'est parfait, j'avance a grand pas grâce a vous
Merci

 

[Si...]

Salut

Pour aller plus loin, avec une autre utilisation du «Me» !

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 😉😳)

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]

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