Couleur Label suivant valeur TextBox

Bonjour le forum,

J'ai cherché dans le forum avant de posté ma question car je n'ai pas trouvé

J'ai un userform avec plusieurs textbox et 1 label

Je souhaiterais Colorer le fond de ce label si la valeur du TextBox est 5

une autre couleur si 4

une autre couleur si 3

et en blanc si ses conditions ne sont pas remplie

Merci d'avance

Amicalement

Crole18

Bonjour,

Private Sub TextBoxCoupléLabel_AfterUpdate()
    With LabelUnique
        Select Case TextBoxCoupléLabel.Value
            Case "5": .BackColor = vbRed
            Case "4": .BackColor = vbYellow
            Case "3": .BackColor = vbCyan
            Case Else: .BackColor = vbWhite
        End Select
    End With
End Sub

A adapter... !

Cordialement.

Bonjour MFerand

J'ai adapter le code comme ceci,

Private Sub Txt10_AfterUpdate()

With LblSolde

Select Case TxtArt10.Value

Case "5": .BackColor = vbRed

Case "4": .BackColor = vbYellow

Case "3": .BackColor = vbCyan

Case Else: .BackColor = vbWhite

End Select

End With

End Sub

Mais cela ne fonctionne pas. Je n'ai pas trouvé ou est mon erreur

Peux-tu m'aider s'il te plait.

Merci d'avance

Je te fais remarquer que je n'ai pas vu ton fichier...

Sorry je te l'envoie

Cela fonctionne parfaitement à condition de mettre la procédure, lorsque la valeur de TxtArt10 varie ! Ce sur quoi reposait ta question...

Maintenant si tu dois afficher la couleur à partir d'autres éléments déclencheurs, ce sont ces éléments qu'il convient de programmer pour que cela déclenche...

NB- Sans regarder le contenu, je considère que 4 Modules standard, c'est déjà 3 de trop. Et si tu peux coder en évitant d'imiter l'enregistreur, ton code y gagnera en efficacité.

Cordialement.

Merci pour ta ta patience et bonne fin d'après midi

Amicalement

Bruno