Discussion :

[schwarzy2]

Bonsoir,

j'ai un formulaire en mode tabulaire et je voudrais pouvoir changer la couleur de la police d'un enregistrement en fonction de la valeur d'un champ en code VBA , mais le seul code que je sais faire me change la couleur de tout mon formulaire.
Comment faire par enregistrement?

voici mon code actuel (basique), qui me change la couleur de tous les enregistrements:

Private Sub Form_Current()
Dim lngBlue As Long
Dim lngBlack As Long

lngBlue = RGB(0, 255, 255)
lngBlack = RGB(0, 0, 0)

If Me.fact = -1 Then
Me.reference_devis.ForeColor = lngBlue
Me.Référence_marché.ForeColor = lngBlue

Else
Me.reference_devis.ForeColor = lngBlack
Me.Référence_marché.ForeColor = lngBlack

End If
End Sub

merci d'avance pour votre aide!

cordialement

schwarzy2

[tAKAmAkA]

Bonjour,
Ce n'est pas du ressort de la mise en forme conditionnelle?

[marot_r]

Si, la mise en forme conditionnelle va faire cela pour toi sans une seule ligne de code.

Il faut la faire pour chacun des champs affichés et utiliser 'expression' comme critère :

Code :

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

1
2
 
[fact] = true

J'ai mis True par ce que c'est plus parlant que -1 surtout quand on travail dans différents langages où les conventions pour Vrai varies, là il n'y a pas d'embiguité.

A+

[schwarzy2]

OK super merci, ça marche très bien!