Discussion :

[EL AYOUB]

Bonjour à vous tous,

j'ai crée une requête pour afficher des valeurs numérique dans Trois Cases ( tension L1 L2 L3) , la Question c'est comment je peut Comparer les valeurs dans les cases et colorer la valeur la plus grande, Mais verticalement pour chaque ligne ?


Vos aides seront les bienvenus

[marot_r]

Bonjour.

Il vous faut déterminer si cette valeur est le max des données affichées, donc dans la source.
La fontion DMax(), (MaxDomaine en français il me semble) peut être ce dont vous avez besoin ou une requête de regroupement en jointure sur vos données.
Vous pouvez utiliser une formule dans la mise en forme conditionnelle (avec DMax()) mais je vous recommande plutôt un champ calculé du genre EstMax qui va valoir Vrai ou Faux et dans la mise en forme conditionnelle de tester EstMax.
C'est plus facile à mettre au point.

A+

[Zekraoui_Jakani]

La réponse de marot_r est la plus indiquée, mais comme vous n'avez que 3 valeurs, ce simple code fera l'affaire.
Le plus simple est le copier/coller dans l'évènement "afterUpdate" (ou après mise-à-jour) du 1er champs.
Ensuite, dans l'évènement "afterUpdate" des 2 autres champs, vous faites appel à ce même code "Call ColorierlePlusGrand".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ColorierlePlusGrand()
 
    Dim A, B, C
    Dim Resultat As String
 
    A = 0.4   'A = Me.L1 dans votre exemple
    B = 20   'B = Me.L2 dans votre exemple
    C = 30   'C = Me.L3 dans votre exemple
 
    If A > B And A > C Then: Resultat = "A est le plus grand"
    'Dans votre exemple, ce sera: Me.L1.BackColor = vbCyan (ou vbyellow, vbgreen, vbblack, vbred, ...)
    'et remettre la couleur par défaut pour B et C (vbWhite)
    If B > A And B > C Then Resultat = "B est le plus grand"
    'Dans votre exemple, ce sera: Me.L2.BackColor = vbCyan (ou vbyellow, vbgreen, vbblack, vbred, ...)
    'et remettre la couleur par défaut pour A et C (vbWhite)
    If C > A And C > B Then Resultat = "C est le plus grand"
    'Dans votre exemple, ce sera: Me.L3.BackColor = vbCyan (ou vbyellow, vbgreen, vbblack, vbred, ...)
    'et remettre la couleur par défaut pour A et B (vbWhite)
 
    MsgBox Resultat 'pour info uniquement
 
End Sub