Couleur fond de textbox selon condition

[davidp]

Bonjour le forum ,

j'ai une nouvelle fois besoin de votre aide , j'ai cherché sur le forum mais je n'ai pas réussit à l'adapter à mon projet :

Mon problème est le suivant , à l'ouverture de l'userform ,je cherche à appliquer une mise en forme conditionnel de la textbox1(couleur de fond) en fonction de la valeur de la cellule A1 de la feuille"sem1".

sI A1 est vide couleur fond de textbox 1 = Rouge
Si A1 est compris entre 1 et 111 fond de textbox 1 = orange
Si A1 est egal à 112 fond de textbox 1 = vert

Merci d'avance à celui qui pourra m'aider

Bonne journée à tous

DAVIDP

 

[Rilcy]

Re : Couleur fond de textbox selon condition

Bonjour,

Dans le code de ton userform, copie la procédure suivante :

Private Sub UserForm_Initialize()

If Sheets("Sem1").Cells(1,1).Value = "" Then

textbox1.BackColor = RGB(255, 0, 0)​

EsleIf Sheets("Sem1").Cells(1,1).Value > 1 And Sheets("Sem1").Cells(1,1).Value < 111 Then

textbox1.BackColor = RGB(255, 60, 60)​

EsleIf Sheets("Sem1").Cells(1,1).Value = 112 Then

textbox1.BackColor = RGB(0, 0, 255)​

End If​

End Sub

Par contre, il te faudra régler les couleurs RGB.

Cordialement.

 

[davidp]

Re : Couleur fond de textbox selon condition

Bonjour Rilcy,

Un grand merci pour ton aide , cela fonctionne à merveille.

Je n'aurai jamais pu trouver tout seul

Bonne journée et encore merci

DAVIDP