Discussion :

[surzone]

Bonjour à tous,

Malgré mon précédent Post qui a été brillament résolu, un soupçon de depression persiste.

Je cherche à faire la chose suivante :
- Lorsque mon champ "Statut" à la valeur "Ouverte", j'aimerai que ce champ ait un fond Vert.
- Lorsque mon champ "statut" a la valeur "cloturée" j'aimerai que ce champs ait un fond rouge.

Je ne sais même pas si c'est possible ?

Qu'en pensez vous ?

Surzone.

[Jean-Philippe André]

salut,
regarde du côté de la propriété BackColor

[surzone]

Merci pour ton indication,

A mon avis ça doit ressembler à quelque chose de ce type :


Private Sub statut_AfterUpdate()
SI
Me.ActiveControl.Value = "Cloturé"
Alors
Me.ActiveControl.backcolor = 16315367
ET SI
Me.ActiveControl.Value = "Ouverte"
Alors
Me.ActiveControl.backcolor = 250
End Sub

Comme tu le vois je suis assez minable en VB.
Suis-je suis la bonne piste ?

[Jean-Philippe André]

oui,
en partant de ce raisonnement l'algo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub statut_AfterUpdate()
SI
Me.ActiveControl.Value = "Cloturé"
Alors
Me.ActiveControl.backcolor = 16315367
ET SI
Me.ActiveControl.Value = "Ouverte"
Alors
Me.ActiveControl.backcolor = 250
End Sub

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub statut_AfterUpdate()
If Me.ActiveControl.Value = "Cloturé" Then
Me.ActiveControl.backcolor = 16315367
ElseIf Me.ActiveControl.Value = "Ouverte" Then
Me.ActiveControl.backcolor = 250
End If
End Sub

[surzone]

Voila ce que j'ai trouvé pour le moment et qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub statut_AfterUpdate()
If (Me.ActiveControl.Value = "Cloturé") Then
Me.ActiveControl.BackColor = 270
End If
End Sub

[Jean-Philippe André]

j'en profite pour t'indiquer que
- si tu as clotûré, tu as ouvert,
et
- si tu as clotûrée, tu as ouverte,

une appli bien orthographiée, c'est plus mieux

[surzone]

Oui en effet mieux écrit c plus mieux lol !
Ton code mes plait bien d'autant plus que grâce à toi j'ai appris bcp aujourd'hui.

En revenche, le statut AfterUpdate, qui me change bien les couleurs voulues lorsque je change les valeurs du champ, ne me permet pas de conserver les couleurs propres à chaque enregistrement.

En effet, lorsque je crée un nouvel enregistrement, bien que le champ statut soit "Ouvert", sa couleur de fond est celle qui correspond au statut "Cloturé".

Pourrais tu me dire ou se trouve la subtilité ?

Merci

[Jean-Philippe André]

Si tu veux, tu peux appliquer une valeur par défaut à "ouvert" dans les propriétés de la listbox.

[bestall666]

Hello

le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecontrol

désigne le champ qui a le focus !!

et Me le formulaire

as tu essayée avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

screen.activecontrol

@++

Bestall666

[surzone]

Si tu veux, tu peux appliquer une valeur par défaut à "ouvert" dans les propriétés de la listbox.

En fait, ma listbox a bien la valeur par défaut "Ouvert". Donc lorsque je crée un nouvel enregistrement, Il comporte bien la valeur "Ouvert".

Le prob est qu'au lieu d'avoir la couleur correspondant à la valeur "Ouvert", il a celle de la valeur "Cloturé".

Je commence à me perdre là...

-----------------------------------------------
Private Sub statut_AfterUpdate()
If Me.ActiveControl.Value = "Cloturé" Then
Me.Boîte226.BackColor = 255
ElseIf Me.ActiveControl.Value = "Ouvert" Then
Me.Boîte226.BackColor = 8454016
End If
End Sub
-----------------------------------------------
J'ai mis une copie d'écran en PJ

[surzone]

Bien après avoir "Réfléchit" j'ai trouvé ça et ça marche impec!

Private Sub Form_Open(Cancel As Integer)
If Me.statut.Value = "Cloturé" Then
Me.Boîte226.BackColor = 255
ElseIf Me.statut.Value = "Ouvert" Then
Me.Boîte226.BackColor = 8454016
End If
End Sub

Merci pour votre aide
Bonne continuation