Discussion :

[Miss Ti]

Bonjour à tous,

Je cherche à faire ressortir des enregistrements dans un formulaire, particulièrement dans des zones de listes modifiables.
Pour cela, je cherche une syntaxe de mise en forme conditionnelle qui ferai ressortir les champs où la valeur n'est pas comprise dans la liste déroulante.
J'ai essayé l'expression

Code :

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

pas dans (SELECT champ FROM table)

où SELECT champ FROM table est le contenu de la zone de liste mais on ne peut pas dire que ça fonctionne.

Déjà, est-ce possible?
Si oui, quelle syntaxe dois-je adopter?

Le formulaire qui doit utiliser cette mise en forme est entièrement construit dynamiquement avec des CreateControl. Donc quelle est la syntaxe VBA pour attribuer une mise en forme conditionnelle à un contrôle?

[Tofalu]

Bonjour

Oui, possible.

Il faut passer par une fonction VBA qui retournera Oui ou Non suivant que la valeur existe ou non dans la zone de liste :

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function estDansZL(NomZL As String, NomFormulaire As String, Valeur As String) As Boolean
Dim oCtl As ComboBox
Dim i As Integer
Set oCtl = Forms(NomFormulaire).Controls(NomZL)
For i = 0 To oCtl.ListCount
    If oCtl.ItemData(i) = Valeur Then
        estDansZL = True
        Exit For
    End If
Next i
End Function

Et l'expression de mise en forme conditionnelle devient :

Code :

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

EstdansZl("MaZl";"Frm_Test";[MaZl])=Faux

Ici, je vérifie que ce que l'utilisateur à saisi dans MaZL existe dans le contenu de cette même liste.

[Tofalu]

Si c'est juste pour vérifier que la valeur est présente dans la liste même et non dans une autre, on est pas obligé de passer par du VBA. On peut se contenter de :

Code :

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

[MaZL].ListIndex=-1

en expression de mise en forme conditionnelle

[Miss Ti]

Wouaou, je ne l'aurai pas trouvé toute seule celle là.

Reste plus qu'à coder en VBA...
Je m'y colle et vous tiens au jus.

[Miss Ti]

Avec le tuto sur la mise en forme conditionnelle, ça a été comme sur des roulettes.

Code :

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

1
2
Me.contolX.FormatConditions.Add acExpression, , "[ControlX].ListIndex=-1"
Me.contolX.FormatConditions.Item(0).ForeColor = vbRed

Rapidité, efficacité, réactivité.
Ca, c'est fait.

Merci Tofalu. C'est résolu.