Changement de couleur sur oui/non

Résolu/Fermé
Ollam - 8 mai 2020 à 17:05
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 - 8 mai 2020 à 22:46
Bonjour,

Bon c'est vrai le titre n'est pas très explicite !!!
Dans un formulaire, j'ai un rectangle d'une couleur A
Dans ce même formulaire, j'ai une case à cocher oui/non (non par défaut).
Je voudrait que la couleur soit A si oui/non est sur Non
et qu'une autre couleur (B) remplace la couleur A si case à cocher sur Oui

Pouvez vous m'aider SVP ?

Access 2007-2013


Configuration: Windows / Chrome 81.0.4044.129
A voir également:

5 réponses

RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 19:10
Si c'est un formulaire en mode continu, j'ai une idée, qui semble OK et tu n'as pas besoin de vba du coup.

En faisant simple :
1/ tu remplaces ton rectangle par une zone de texte indépendante, que tu redimensionnes comme tu veux.
2/ Tu mets comme source de cette zone de texte =[verse] (donc ta zone de texte vaudra -1 si Verse est cochée et 0 si Verse est décochée).
3/ Tu utilises la mise en forme conditionnelle sur la valeur de ta zone de texte, tu choisis la couleur de fond et la même couleur pour le texte si = -1 et idem si =0

Voici ce que ça donne :


A+
1
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 17:24
Bonjour,

déjà dans les propriétés de ton rectangle, mets Style de fond à standard

Ensuite, code vba à mettre sur l'évènement afterUpdate() de ta case à cocher :
If Me.taCase = True Then
   Me.tonRectangle.BackColor = la couleur B 'je ne sais pas c'est laquelle
Else
   Me.tonRectangle.BackColor = le couleur A 'je ne sais pas non plus
End If


A+
0
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 17:26
Et j'oublais,

remets le même code sur l'évènement current() du formulaire, afin que le changement de couleur se réalise à chaque changement d'enregistrement dans le formulaire.

A+
0
Merci beaucoup pour ta réponse rapide.

Je rencontre un petit problème, malgré tout:
Que j'active ou désactive le oui/non, mon rectangle devient noir, si je fais l'action inverse rien ne se passe.

J'ai oublié de préciser, je souhaite utiliser cette fonction sur un formulaire tabulaire.

Voici le code que j'ai inscrit sur tes conseils:
Option Compare Database

Private Sub Form_Current()
If Me.verse = True Then
Me.fond.BackColor = ECCC7C
Else
Me.fond.BackColor = FFF0C9
End If
End Sub

Private Sub verse_AfterUpdate()
If Me.verse = True Then
Me.fond.BackColor = ECCC7C
Else
Me.fond.BackColor = FFF0C9
End If
End Sub
0
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 18:30
C'est quoi ces valeurs ? de l'Hexa ?

Si oui, essaie de mettre &h devant...

A+
0
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 18:44
Quand tu dis "formulaire tabulaire" tu veux dire formulaire continu ?

Si oui, et que tu veux que chaque ligne aie son propre rectangle avec la bonne couleur, je ne sais pas.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
OUI, OUI, OUI !!!!!!!
c'est exactement je que je souhaite, c'est génial.

Merci beaucoup
0
RV71 Messages postés 509 Date d'inscription mardi 14 avril 2020 Statut Membre Dernière intervention 15 avril 2024 31
8 mai 2020 à 22:46
Ton bonheur fait plaisir à lire :-)

Ya plus qu'à mettre le sujet en "résolu".

A+
0