Changer la couleur du fond d'un champs de texte

Rhaloph Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour tout le monde,

Je cherche à changer la couleur des champs de texte à chaque fois on tombe sur la valeur 0 dans mon champs Numsite et non pas quand c'est égale à 1. j'ai donc essayé un conditionnement basique, type :

Private Sub form_load()

Dim var As Long
var = TXT.Value 'on récupère la valeur de mon champs texte
'on teste si c'est bien égale à 0
If var = 0 Then
TXT.BackColor = RGB(255, 0, 0)
Else
Exit Sub
End If
End Sub

Voici à quoi ressemble mon formulaire (continue)



Mais malheureusement, cela ne fonctionne pas!!

Je vous remercie d'avance.

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

vous pouvez faire une Mise en Forme Conditionnelle au lieu de code VBA.

Clic droit sur le champ, mise en forme conditionnelle
0
Rhaloph Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Mais à chaque fois il peut y avoir des données nouvelles, c'est dynamique tout cela, je veux pas le modifier manuellement à chaque fois on a un nouveau enregistrefois.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

veux pas le modifier manuellement à chaque fois !!!!!!!!!

C'est automatique

A defaut,mettez votre fichier a dispo sans donnees sensibles

Pour transmettre un fichier,
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Je vois ceci:

Private Sub form_load()

Ce n'est pas bon!

Il faut mettre ta macro dans l'évenement

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

de chaque textBox pour que cela soit réactif

0