changement couleur USF sous condition

C

creolia

XLDnaute Impliqué

• 30 Décembre 2009

• #2

Re : changement couleur USF sous condition

re bonsoir ou si quelqu'un peut m'expliquez svp comment ont met une condition sous vba du style si la cellule A1 est inférieure à 100 couleur rouge 100 a 200 orange pouvez vous si possible m'expliquez merci

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 30 Décembre 2009

• #3

Re : changement couleur USF sous condition

bonsoir a tous
essai ce code
Private Sub UserForm_Initialize()
Dim defaut As String
defaut = UserForm1.BackColor
If Range("a1").Interior.Color = 255 Then
UserForm1.BackColor = RGB(255, 0, 0)
Else:
UserForm1.BackColor = defaut
End If
End Sub
A+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 30 Décembre 2009

• #4

Re : changement couleur USF sous condition

merci a vous 2 de m'avoir aider la solution du squale du forum est exactement ce que je recherchais merci en cas tous les 2 a bientôt bonne fête de fin de l'année.

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 30 Décembre 2009

• #5

Re : changement couleur USF sous condition

AIE DSL JE REVIENS au lieu ce soit la cellule qui détermine la couleur est ce que l'ont peut faire en sorte que ce qui apparais dans la textbox1 qui détermine cette couleur exemple


dans la textbox1 valeur 9 USF deviens rouge

car je me suis rendu compte que la valeur est dans la colonne A mais peut être sur une ligne différente comme A1 ou A2 ect est possible svp

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 30 Décembre 2009

• #6

Re : changement couleur USF sous condition

remoi:
essai ceci a la place
Private Sub TextBox1_AfterUpdate()
If TextBox1.Value < 10 Then
TextBox1.BackColor = &HFF&
Else:
TextBox1.BackColor = &H8000000E
End If
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim defaut As String
defaut = UserForm1.BackColor
If TextBox1.BackColor = &HFF& Then
UserForm1.BackColor = RGB(255, 0, 0)
Else:
UserForm1.BackColor = defaut
End If
End Sub
A+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 30 Décembre 2009

• #7

Re : changement couleur USF sous condition

NIKEL carcharodon-carcharias c'est impeccable USF change de couleur selon sa valeur présent dans le combo car je l'ai adapter aussi à un combo merci bonne soirée

 

Vote positif 0 Vote négatif