Discussion :

[Andalor]

Bonjour.

Je n'arrive pas à trouver la fonction dans le VBA d'acces pour changer la couleur de toute une ligne dans un Etat par l'intermédiaire d'une condition sur une case de cette ligne.

Exemple :

Code :

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

1
2
3
4
5
If (Date_Fin_Hab < Date) then
  // Changement de la couleur de ligne en rouge (code : 255)
 
else
  // Changement de la couleur de la ligne pour du transparent (code : 16777215)

Merci

[stéphane_ais2]

Bjr,

ET Et encore ...

Vive la FAQ...

http://access.developpez.com/faq/?rechercher=formatage

SE

[Andalor]

Le soucis c'est que je ne comprends pas certains points de ce code

Code :

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

1
2
3
4
5
6
7
Private Sub ZoneDetail_Format (Cancel As Integer, FormatCount As Integer) 
    If Me![ nomControle] < "0"  Then 
        Me![SourcEcr].ForeColor = 16777215 
    Else 
        Me ![SourcEcr].ForeColor = 0 
    End If 
End Sub

Le nom du contrôle je suppose que c'est mon : Date_Fin_Hab < Date
Mais lorsque je lance le code sous cette forme il me sort une erreur à ce niveau.

Code :

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

1
2
3
4
5
Private Sub Detail_Format (Cancel As Integer, FormatCount As Integer) 
    If Me![Date_Fin_hab] < Date  Then 
        Me![Date_Fin_hab].ForeColor = 255
End If
End Sub

Ps : Désolé, j'avais cherché dans le FAQ avant de poster, seulement je n'avais pas pensé à taper le mot clé formatage, Merci.

[stéphane_ais2]

Essaie :

Code :

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

1
2
3
4
5
6
 
Private Sub Detail_Format (Cancel As Integer, FormatCount As Integer) 
    If Me![Date_Fin_hab] < Date() Then 
    Me![Date_Fin_hab].ForeColor = 255
End If
End Sub

SE

[Pogny]

et pourquoi pas
-Etat
-Clique droit sur le champ a colorier
-Mise en forme conditionnelle


et voila ^^

[Andalor]

Voilà, ça marche, en faite j'ai juste viré quelques petites choses que je ne comprennais pas. Ce qui m'a donné ce code :

Code :

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

1
2
3
4
5
Private Sub Detail_Format (Cancel As Integer, FormatCount As Integer) 
    If (Date_Fin_hab < Date) Then 
       Date_Fin_hab.BackColor = 255
End If
End Sub

Pour être franc, tout ce que microsoft a conçu dans le cadre de la programmation sous quelconque forme, je suis complètement à la ramasse. Donc au sujet de la mise en forme conditionnelle, j'avais bien tenté d'essayer de le faire mais je n'ai jamais réussit à lui faire faire une comparaison avec la variable DATE (censé renvoyer la Date actuelle). Donc, si tu as quelques minutes plus tard pour m'expliquer qu'est ce qu'il fallait mettre pour lui faire prendre en compte la variable Date actuelle.

Sans oublier de vous remercier pour l'aide et le temps que vous m'avez offert