Discussion :

[biomat24]

Bonjour,

J ai un champ texte qui contient une valeur extraite d une requête. Dans la même requête est lié a ce champs j ai un code couleur hexa.

EX :

Code | Couleur
ENT | 255


j affiche des enregistrements basés sur ce code dans un état et j aimerai que chaque zone de texte du code se colorise automatiquement grâce au champ "couleur" et éviter la mise en forme conditionnelle .

je ne sais pas si cela peut se faire directement dans le générateur d'expression ou si il faut passer par du VBA ( mes compétences sont réduites ^^)

Merci !

[User]

Bonsoir,

Il faut utiliser le VBA et mettre du code sur l'événement au formatage (ou sur impression) de la section détail de l'état :

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Me.code.BackColor = Me.couleur
End Sub

Le champ couleur doit contenir une valeur entière représentant la couleur ou sinon il faut utiliser la fonction RGB(rouge, vert, bleu).

Cdlt,

[biomat24]

Bonjour,

Merci pour la réponse , je viens de tester mais pas de résultat probant pur le moment .

Ma couleur est sous la forme : 12632256
mais j ai essayé d autres fonctions , le champ ne reçoit pas la commande ..



J ai tenté d autres syntaxes glanée dans le forum

Code :

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

1
2
3
4
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Me.Controls("J").BackColor = rgb(164, 213, 226)
Me.Controls("J").ForeColor = QBColor(0)
End Sub

ca ne fonctionne pas nons plus :/

Il y a un truc que je dois pas faire ...

[User]

Avez vous utilisez le champ me.couleur dans votre code comme je vous l'ai proposé.

J'ai testé mon code avec succès en mode aperçu avant impression.

Les macros et le code VBA doivent être activés..

[biomat24]

Bonjour,

oui j ai suivi votre préconisation , j ai positionné votre code dans le détail de l état .

voila mon etat



le code utilisé

Code :

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

1
2
3
4
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 Me.J.BackColor = Me.couleur
End Sub

Mais pas de réaction positive

meme en mettant une couleur le champ J ne recoit pas d'instruction .

Le VBA et les macros sont activées

Cdlt

[biomat24]

Haaaaaaaaa

mais oui en mode apercu !
ca fonctionne effectivement,
dsl j avais pas vu

Un grand Merci pour le coup de main !!!

Cdlt !