OVH Cloud OVH Cloud

Changer la couleur de la police d'un textbox

4 réponses
Avatar
Hervé
Bonsoir
je désire la chose suivante : si j'ai NON dans mon textbox la police devient
Rouge
en revanche si j'ai OUI la police devient bleue.
J'ai essayé cela mais sans succès.
Merci
Hervé

Private Sub TextBox5_Change()
If TextBox5 = "OUI" Then
TextBox5.ForeColor = red
End If
If TextBox5 = "NON" Then
TextBox5.ForeColor = BLUE
End If
End Sub

4 réponses

Avatar
Michel Pierron
Bonsoir Hervé;
Remplace red et BLUE respectivement par vbRed et vbBlue.
MP

"Hervé" a écrit dans le message de
news:%23n$ItDO%
Bonsoir
je désire la chose suivante : si j'ai NON dans mon textbox la police
devient

Rouge
en revanche si j'ai OUI la police devient bleue.
J'ai essayé cela mais sans succès.
Merci
Hervé

Private Sub TextBox5_Change()
If TextBox5 = "OUI" Then
TextBox5.ForeColor = red
End If
If TextBox5 = "NON" Then
TextBox5.ForeColor = BLUE
End If
End Sub









Avatar
Rai
Bonsoir,

essaie de remplacer ta définition des couleurs
au lieu de red RGB(255,0,0)
au lieu de blue RGB(0,0,255)

Le VBA n'est pas du HTML, les noms de couleurs vont pas trop bien marcher ;o))

Bonne soirée

Rai

"Hervé" a écrit dans le message de news: %23n$ItDO%
Bonsoir
je désire la chose suivante : si j'ai NON dans mon textbox la police devient
Rouge
en revanche si j'ai OUI la police devient bleue.
J'ai essayé cela mais sans succès.
Merci
Hervé

Private Sub TextBox5_Change()
If TextBox5 = "OUI" Then
TextBox5.ForeColor = red
End If
If TextBox5 = "NON" Then
TextBox5.ForeColor = BLUE
End If
End Sub









Avatar
Hervé
Merci beaucoup Raimond
cela fonctionne
Hervé

"Rai" a écrit dans le message de news:
eCm7uNO%
Bonsoir,

essaie de remplacer ta définition des couleurs
au lieu de red RGB(255,0,0)
au lieu de blue RGB(0,0,255)

Le VBA n'est pas du HTML, les noms de couleurs vont pas trop bien marcher
;o))

Bonne soirée

Rai

"Hervé" a écrit dans le message de news:
%23n$ItDO%
Bonsoir
je désire la chose suivante : si j'ai NON dans mon textbox la police
devient
Rouge
en revanche si j'ai OUI la police devient bleue.
J'ai essayé cela mais sans succès.
Merci
Hervé

Private Sub TextBox5_Change()
If TextBox5 = "OUI" Then
TextBox5.ForeColor = red
End If
If TextBox5 = "NON" Then
TextBox5.ForeColor = BLUE
End If
End Sub









Avatar
Hervé
Merci beaucoup Michel
cela fonctionne
Hervé

"Michel Pierron" a écrit dans le message de news:
ubizsLO%
Bonsoir Hervé;
Remplace red et BLUE respectivement par vbRed et vbBlue.
MP

"Hervé" a écrit dans le message de
news:%23n$ItDO%
Bonsoir
je désire la chose suivante : si j'ai NON dans mon textbox la police
devient

Rouge
en revanche si j'ai OUI la police devient bleue.
J'ai essayé cela mais sans succès.
Merci
Hervé

Private Sub TextBox5_Change()
If TextBox5 = "OUI" Then
TextBox5.ForeColor = red
End If
If TextBox5 = "NON" Then
TextBox5.ForeColor = BLUE
End If
End Sub