Discussion :

[Tintin&Milou]

Si le montant à facturer est négatif (Etiquette251), dans ce cas une zone texte (Etiquette25) avec bordure et fond colorés ne doit pas être affichée. Je peux supprimer le texte en utilisant un VraiFaux dans le champ « Source Contrôle », et je peux supprimer le fond coloré avec un format conditionnel. Cependant, je n’arrive pas à faire disparaître la bordure noire. J’ai essayé le code VBA suivant, mais ça ne marche pas. Quel est le problème ?
Merci pour vos lumières.


J’ai créé un module, dans lequel j’ai inséré le code VBA suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub Masquage_champ(Cancel As Integer, FormatCount As Integer)
    If Reports!NewFacture_forfait_SAS.Controls!Etiquette251 < “0” Then
        Reports!NewFacture_forfait_SAS.Controls!Etiquette25.Visible = False
    Else
        Reports!NewFacture_forfait_SAS.Controls!Etiquette25.Visible = True
    End If
End Sub

[voyou]

Il faut mettre le "style bordure" à transparent.

[Domi2]

Bonjour,

Le code me semble ok...

Essaie de le mettre dans l'événement Au formatage de la section de l'état dans lequel se trouve le contrôle.

Domi2

[Tintin&Milou]

Bonjour,

Le code me semble ok...

Essaie de le mettre dans l'événement Au formatage de la section de l'état dans lequel se trouve le contrôle.

Domi2

Merci pour ta remarque. J'ai intégré le code VBA dans le pied de groupe, et ça marche.

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As Integer)
If Reports!NewFacture_forfait_SAS.Controls!Etiquette251 < 0 Then
Reports!NewFacture_forfait_SAS.Controls!Etiquette25.Visible = False
Else
Reports!NewFacture_forfait_SAS.Controls!Etiquette25.Visible = True
End If
End Sub