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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas