Discussion :

[Olivier3535]

Bonjour,
J'ai un petit soucis et j'ai beau cherché sur le net je ne trouve pas la solution appropriée...
Dans une requete j'ai plusieurs champs calculés :
Q1, Q2, Q3, Q4, Q5, Q6, ces valeurs sont "attachées" à un champ "reférence"
Je souhaiterai identifier la valeur minimale parmi ces 6 champs pour l'intégrer ensuite à une calcul.
Auriez vous une solution à me proposer ?
Merci d'avance
Olivier
PS : si la solution passe par la création d'une fonction, est ce que vous pouvez détailler la manip car je ne maîtrise pas du tout l'affaire.

[3ug3n]

Bonjour,

Je vous propose la solution suivante ; dans Access :
- Appuyez sur Alt+F11
- Allez dans "Insertion"
- Sélectionnez "Module"
- Collez sous les "Options ..." :

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
Function MinOfList(ParamArray varValues()) As Variant
'Provided by Allen Browne, December 2004.  Last updated: April 2010
'Source : http://allenbrowne.com/func-09.html
 Dim i As Integer        'Loop controller.
 Dim varMin As Variant   'Smallest value found so far.
 
    varMin = Null           'Initialize to null
 
    For i = LBound(varValues) To UBound(varValues)
        If IsNumeric(varValues(i)) Or IsDate(varValues(i)) Then
            If varMin <= varValues(i) Then
                'do nothing
            Else
                varMin = varValues(i)
            End If
        End If
    Next
 
    MinOfList = varMin
End Function

- Fermez les yeux et répétez-vous "Quelle star cet Allen Browne !" autant de fois que nécessaire
- Allez dans Fichier/Enregistrez
- Fermez cette fenêtre
- Ouvrez votre requête en mode création
- Ajoutez un champ :

Code :

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

MinVal : MinOfList([Q1];[Q2];[Q3];[Q4];[Q5];[Q6])

- Testez, enregistrez

[Olivier3535]

Super ça marche !
Merci beaucoup pour le coup de main !
et merci à "Allen Browne !"

Cordialement

Olivier