code vbs et userform

[marleauc]

bonsoir,

j'ai un userform qui contient un textbox1 , j'aimerais si possible y intégrer une fonction de couleur conditionnelle.c-a-d que ex: si on inscrit accepté (la couleur de fond devient vert) si refusé(devient rouge)

merci bcp et bonne fin de soirée

 

[Compte Supprimé 979]

Re : code vbs et userform

Bonjour Marelauc,

Une possibilié de code

Private Sub TextBox1_AfterUpdate()
  Select Case Me.TextBox1.Value
    Case "accepté"
      Me.TextBox1.BackColor = &HC000&
    Case "refusé"
    Me.TextBox1.BackColor = &HFF&
    Case Else
    Me.TextBox1.BackColor = &HFFFFFF
  End Select
End Sub

A+

 

[job75]

Re : code vbs et userform

Bonjour marleauc, Bruno, le forum,

Autre solution avec la fonction IIf :

Private Sub TextBox1_Change()
TextBox1.BackColor = IIf(TextBox1 = "accepté", &HC000&, IIf(TextBox1 = "refusé", &HFF&, &HFFFFFF))
End Sub

Ou avec la fonction Switch :

Private Sub TextBox1_Change()
TextBox1.BackColor = Switch(TextBox1 = "accepté", &HC000&, TextBox1 = "refusé", &HFF&, True, &HFFFFFF)
End Sub

A+

 

[Macpoy]

Re : code vbs et userform

Bonjour le forum, job75, BrunoM45, marleauc,

je me permet une petite intrusion

il me semble que si la casse n'est pas respecté ces codes risquent de planter.

car accepte est différent de accepté

mais je me trompe peut être

@plus jacques

 

[JNP]

Re : code vbs et userform

Bonjour le fil 🙂,

il me semble que si la casse n'est pas respecté ces codes risquent de planter.
car accepte est différent de accepté

Très juste, c'est pourquoi je conseillerais plutôt un combobox limité aux 2 solutions possibles 😉.
Bon WE à toutes et à tous 😎

 

[Macpoy]

Re : code vbs et userform

Re,

Ben zut alors !!! je dis pas que des co....ries !!!

et en plus je viens de m'apercevoir que j'ai dépassé les 500 post sans avoir fété ça !!!!

ce midi Apéro. vous venez ???

@plus Jacques

 

[job75]

Re : code vbs et userform

Bonjour Macpoy, JNP,

Tout à fait d'accord, une ComboBox est la bonne solution si l'on veut imposer des valeurs.

Autrement, on peut aussi compléter le texte à partir des 3 (ou 2, ou 1) premières lettres :

Private Sub TextBox1_Change()
If LCase(TextBox1) = "acc" Then TextBox1 = "accepté"
If LCase(TextBox1) = "ref" Then TextBox1 = "refusé"
TextBox1.BackColor = IIf(TextBox1 = "accepté", &HC000&, IIf(TextBox1 = "refusé", &HFF&, &HFFFFFF))
End If

A+

 

[JNP]

Re : code vbs et userform

Re 🙂,

et en plus je viens de m'apercevoir que j'ai dépassé les 500 post sans avoir fété ça !!!!
ce midi Apéro. vous venez ???

Félicitations 😛...
Pour l'apéro, ça fait un peu loin 😀...
Bon WE 😎