Changer la couleur du fond d'un champs de texte
Rhaloph
Messages postés
2
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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.
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
-
Bonjour,
vous pouvez faire une Mise en Forme Conditionnelle au lieu de code VBA.
Clic droit sur le champ, mise en forme conditionnelle-
-
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...
-
-
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
