Discussion :

[froggyaz]

Bonjour a tous,

Je voudrais savoir comment faire pour changer la couleur de fond (genre une nuance de bleu ou bien un systeme feu de signalisation vert/orange/rouge) d'une boite de texte (textbox in english ) en fonction d'une valeur en pourcent qui se trouve dans une cellule.

Merci beaucoup pour votre aide.

Fred.

[momone18]

En supposant que les pourcentages de couleur R V B soient inscrits dans les cellules D41 E41 F41 (ex 100% 100% 0%)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
    TextBox1.BackColor = RGB(Int(Range("D41").Value * 255), Int(Range("E41").Value * 255), Int(Range("F41").Value * 255))
End Sub

L'exemple ci dessus met le fond du textbox en jaune lorsque l'on clique sur le bouton de CommandButton1

[mercatog]

Bonjour,
une proposition
tu as un textbox1 sur ta feuille
au changement de la valeur de la cellule B5, la couleur de textbox1 change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim clr As Long
If Target.Address = "$B$5" And IsNumeric(Target.Value) Then
    Select Case Target.Value
        Case Is < 5: clr = RGB(0, 255, 0)
        Case Is < 10: clr = RGB(0, 0, 255)
        Case Else: clr = RGB(255, 0, 0)
    End Select
    ActiveSheet.TextBox1.BackColor = clr
End If
End Sub

[froggyaz]

Je vous remercie pour vos reponses qui fonctionnent tres bien. Elles sont differentes l'une de l'autre donc je vais etudier laquelle sera la plus appropriee.
Merci encore.

Fred.