Comparer les valeurs dans les case d"une requête et colorer la valeur la plus grande ?

Version imprimable

22/05/2019, 20h32
EL AYOUB

Comparer les valeurs dans les case d"une requête et colorer la valeur la plus grande ?

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
23/05/2019, 19h41
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+

Colorier le plus grand

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:

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