Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Changer de couleur en fonction de la valeur

Changer de couleur en fonction de la valeur

5 réponses
Avatar
JeanYves \(au pro\)
Bonjour,


Dans un formulaire continu, je gere les horaires de déplacement de véhicules
:
- Départ de la société
- Arrivée chez le client
- Fin d'intervention chez le client
- Retour à la société

Pour réaliser ceci j'ai 4 boutons qui permettent d'alimenter 4 zones dans
lesquelles j'inscris les heures correspondantes.

Lorsque j'ai plusieurs véhicules concernés (le formulaire est en continu) si
je clique sur un des boutons, l'horaire s'inscrit bien dans la cellule.

Me!HeureDépart = Now()

Je veux perfectionner (et je n'y arrive pas...) en faisant passer par
différentes couleurs le fond d'une étiquette, d'une zone texte ou même le
détail du formulaire. Cela ne fonctionne pas car ce sont toutes les zones de
chaques enregistrements qui changent de couleur et non pas uniquement celle
de l'enregistrement concerné.


Pouvez vous m'aider - Merci d'avance
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

sur les version 2000 et + tu passes par la mise en forme conditionnelle.
pour < 2000, lire les pages:
http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Couleurs
http://www.mvps.org/accessfr/forms/frm0024.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JeanYves (au pro)" a écrit dans le message de
news:cd0bkf$ohu$
Bonjour,


Dans un formulaire continu, je gere les horaires de déplacement de
véhicules

:
- Départ de la société
- Arrivée chez le client
- Fin d'intervention chez le client
- Retour à la société

Pour réaliser ceci j'ai 4 boutons qui permettent d'alimenter 4 zones dans
lesquelles j'inscris les heures correspondantes.

Lorsque j'ai plusieurs véhicules concernés (le formulaire est en continu)
si

je clique sur un des boutons, l'horaire s'inscrit bien dans la cellule.

Me!HeureDépart = Now()

Je veux perfectionner (et je n'y arrive pas...) en faisant passer par
différentes couleurs le fond d'une étiquette, d'une zone texte ou même le
détail du formulaire. Cela ne fonctionne pas car ce sont toutes les zones
de

chaques enregistrements qui changent de couleur et non pas uniquement
celle

de l'enregistrement concerné.


Pouvez vous m'aider - Merci d'avance




Avatar
JeanYves \(au pro\)
Merci Raymond ...

... mais je n'y arrive pas !

Je suis avec ACC2000 et j'ai recopié et adapté l'exemple de l'aide mais
visiblement pas correctement

Private Sub Lieux_Click()
With
Forms("SF_InterventionEngins").Controls("Boîte82").FormatConditions.Add(acFi
eldValue, acGreaterThan, "=[ZoneTexte2]")
.BackColor = RGB(255, 255, 255)
.FontBold = True
.ForeColor = RGB(255, 0, 0)
End With
End Sub

j'ai l'erreur 438 propriété ou méthode non géré par cet objet.

Petite précision, je ne suis pas un crac de VB (c'était peut-être pas la
peine de préciser !)

Merci

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

sur les version 2000 et + tu passes par la mise en forme conditionnelle.
pour < 2000, lire les pages:
http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Couleurs
http://www.mvps.org/accessfr/forms/frm0024.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JeanYves (au pro)" a écrit dans le message de
news:cd0bkf$ohu$
Bonjour,


Dans un formulaire continu, je gere les horaires de déplacement de
véhicules

:
- Départ de la société
- Arrivée chez le client
- Fin d'intervention chez le client
- Retour à la société

Pour réaliser ceci j'ai 4 boutons qui permettent d'alimenter 4 zones
dans


lesquelles j'inscris les heures correspondantes.

Lorsque j'ai plusieurs véhicules concernés (le formulaire est en
continu)


si
je clique sur un des boutons, l'horaire s'inscrit bien dans la cellule.

Me!HeureDépart = Now()

Je veux perfectionner (et je n'y arrive pas...) en faisant passer par
différentes couleurs le fond d'une étiquette, d'une zone texte ou même
le


détail du formulaire. Cela ne fonctionne pas car ce sont toutes les
zones


de
chaques enregistrements qui changent de couleur et non pas uniquement
celle

de l'enregistrement concerné.


Pouvez vous m'aider - Merci d'avance








Avatar
Raymond [mvp]
pourquoi le faire en vba ?
passe en modification de formulaire.
menu format / mise en forme conditionnelle
entre tes conditions dans la fenêtre.
(on passe en vba lorsque il faut faire des changements ponctuels et encore )

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JeanYves (au pro)" a écrit dans le message de
news:cd0kmq$spl$
Merci Raymond ...

... mais je n'y arrive pas !

Je suis avec ACC2000 et j'ai recopié et adapté l'exemple de l'aide mais
visiblement pas correctement

Private Sub Lieux_Click()
With

Forms("SF_InterventionEngins").Controls("Boîte82").FormatConditions.Add(acFi

eldValue, acGreaterThan, "=[ZoneTexte2]")
.BackColor = RGB(255, 255, 255)
.FontBold = True
.ForeColor = RGB(255, 0, 0)
End With
End Sub

j'ai l'erreur 438 propriété ou méthode non géré par cet objet.

Petite précision, je ne suis pas un crac de VB (c'était peut-être pas la
peine de préciser !)

Merci


Avatar
JeanYves \(au pro\)
merci

je vais essayer


"Raymond [mvp]" a écrit dans le message de
news:
pourquoi le faire en vba ?
passe en modification de formulaire.
menu format / mise en forme conditionnelle
entre tes conditions dans la fenêtre.
(on passe en vba lorsque il faut faire des changements ponctuels et
encore )


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JeanYves (au pro)" a écrit dans le message de
news:cd0kmq$spl$
Merci Raymond ...

... mais je n'y arrive pas !

Je suis avec ACC2000 et j'ai recopié et adapté l'exemple de l'aide mais
visiblement pas correctement

Private Sub Lieux_Click()
With



Forms("SF_InterventionEngins").Controls("Boîte82").FormatConditions.Add(acFi

eldValue, acGreaterThan, "=[ZoneTexte2]")
.BackColor = RGB(255, 255, 255)
.FontBold = True
.ForeColor = RGB(255, 0, 0)
End With
End Sub

j'ai l'erreur 438 propriété ou méthode non géré par cet objet.

Petite précision, je ne suis pas un crac de VB (c'était peut-être pas la
peine de préciser !)

Merci







Avatar
JeanYves \(au pro\)
Ca marche merci, je ne connaissais pas cette fonctionnalité


"Raymond [mvp]" a écrit dans le message de
news:
pourquoi le faire en vba ?
passe en modification de formulaire.
menu format / mise en forme conditionnelle
entre tes conditions dans la fenêtre.
(on passe en vba lorsque il faut faire des changements ponctuels et
encore )


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"JeanYves (au pro)" a écrit dans le message de
news:cd0kmq$spl$
Merci Raymond ...

... mais je n'y arrive pas !

Je suis avec ACC2000 et j'ai recopié et adapté l'exemple de l'aide mais
visiblement pas correctement

Private Sub Lieux_Click()
With



Forms("SF_InterventionEngins").Controls("Boîte82").FormatConditions.Add(acFi

eldValue, acGreaterThan, "=[ZoneTexte2]")
.BackColor = RGB(255, 255, 255)
.FontBold = True
.ForeColor = RGB(255, 0, 0)
End With
End Sub

j'ai l'erreur 438 propriété ou méthode non géré par cet objet.

Petite précision, je ne suis pas un crac de VB (c'était peut-être pas la
peine de préciser !)

Merci