code vbs et userform

C

Compte Supprimé 979

Guest

• 8 Mai 2010

• #2

Re : code vbs et userform

Bonjour Marelauc,

Une possibilié de code

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2010

• #3

Re : code vbs et userform

Bonjour marleauc, Bruno, le forum,

Autre solution avec la fonction IIf :

Code:

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

Ou avec la fonction Switch :

Code:

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

A+

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 8 Mai 2010

• #4

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2010

• #5

Re : code vbs et userform

Bonjour le fil 🙂,

Macpoy à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 8 Mai 2010

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2010

• #7

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 :

Code:

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+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2010

• #8

Re : code vbs et userform

Re 🙂,

Macpoy à dit:

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 ???

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif