Changement de couleur sur oui/non
Résolu
Ollam
-
RV71 Messages postés 656 Date d'inscription Statut Membre Dernière intervention -
RV71 Messages postés 656 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Changement de couleur sur oui/non
- Changer de dns - Guide
- Excel cellule couleur si condition texte - Guide
- Changer la couleur de la barre des taches - Guide
- Somme si couleur - Guide
- Changement d'écriture facebook - Guide
5 réponses
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+
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+
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 :
A+
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+
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+
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+
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:
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question