Valeur mini de plusieurs champs

**titi95** · 26/08/2010, 14h56

Bonjour
Dans une requête, j'extrais des enregistrements d'une table avec plusieurs champs de type date.
Je voudrais créeer un champ qui me trouve, pour chaque enregistrement, la date la plus ancienne parmi ces dates.
Comment faire ?

Merci d'avance !

**Merryvor** · 26/08/2010, 15h08

http://www.developpez.net/forums/d58...t-sous-access/

je crois qu'il s'agit du même problème que le tien, reste à faire un petit mix pour comparer 3 dates au lieu de 2

**titi95** · 26/08/2010, 18h43

Salut Merryvor
Ceci marche bien avec 2 champs.
Au delà, ce n'est pas aussi simple...
Je fais des recherches et des essais.

**User** · 26/08/2010, 19h35

Salut,

Peut-être en utilisant une fonction dont l'argument est 1 tableau (Option ParamArray) :

Un exemple de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function LeMin(ParamArray Ary())
Dim iCounter
 
LeMin = Ary(0) '1er élément
 
For iCounter = 0 To UBound(Ary)
   If (LeMin > Ary(iCounter)) Then
      LeMin = Ary(iCounter)
   End If
Next
 
End Function

Utilisation dans 1 requête:

Code sql :

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

MinDate: LeMin([Date1];[Date2];[Date3];[Date4])

A toi de l'adapter à ta requête.

A+

**ClaudeLELOUP** · 27/08/2010, 00h42

Bonsoir,

Ces deux fonctions restituent le minimum ou le maximum d’une série de données, quel que soit leur nombre (illimité) et quel que soit leur type (date, numérique ou texte) pourvu qu’elles soient homogènes.
La série de données est présentée sous forme de texte, donc encadrée de quotes. Les composants sont séparés entre eux par un "PaillePeu" "|" = <alt> + 124
Pour le minimum :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Function LeMinimum(Série) As Variant
 'valeurs entre quotes et séparées par |
 'les nombres décimaux avec virgule.
 'le premier membre détermine le type de données (date, numérique ou texte)
 
 'ex d'appels :  LeMinimum("31/12/09|25/3/2003|1/1/07")
 '               LeMinimum("1000|4|5|3,1416")
 '               LeMinimum("abc|d|efg|h|a|bcd")
 '               LeMinimum("1000|abc|5|3,1416") conduit à une erreur
 '               LeMinimum("31/12/09|A|1/1/07") conduit à une erreur
 '               LeMinimum("a|abc|31/12/07|3,1416")sera accepté, _
                   mais les dates et nombres seront traités comme du texte
 
On Error GoTo erreur
Dim ArrSérie() As String, i As Integer
 
ArrSérie = Split(Série, "|")
LeMinimum = ArrSérie(0)
If IsDate(LeMinimum) Then   'comparaison de dates
 'vérifier homogénéité
 For i = 1 To UBound(ArrSérie)
   If Not IsDate(ArrSérie(i)) Then GoTo erreur
 Next i
 'Rechercher le plus petit
 For i = 1 To UBound(ArrSérie)
   If Format(ArrSérie(i), "yymmdd") < Format(LeMinimum, "yymmdd") Then
      LeMinimum = ArrSérie(i)
   End If
 Next i
Exit Function
ElseIf IsNumeric(LeMinimum) Then    'comparaison autre
 'vérifier homogénéité
 For i = 1 To UBound(ArrSérie)
   If Not IsNumeric(ArrSérie(i)) Then GoTo erreur
 Next i
 'Rechercher le plus petit
 
 For i = 1 To UBound(ArrSérie)
   If CDbl(ArrSérie(i)) < CDbl(LeMinimum) Then
      LeMinimum = ArrSérie(i)
   End If
 Next i
Exit Function
Else
 For i = 1 To UBound(ArrSérie)
   If ArrSérie(i) < LeMinimum Then
      LeMinimum = ArrSérie(i)
   End If
 Next i
End If
Exit Function
 
erreur:
MsgBox "les données ne sont pas homogènes", vbCritical
 
End Function

Pour le maximum :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Function LeMaximum(Série) As Variant
 'valeurs entre quotes et séparées par |
 'les nombres décimaux avec virgule.
 'le premier membre détermine le type de données (date, numérique ou texte)
 
 'ex d'appels :  LeMaximum("31/12/09|25/3/2003|1/1/07")
 '               LeMaximum("1000|4|5|3,1416")
 '               LeMaximum("abc|d|efg|h|a|bcd")
 '               LeMaximum("1000|abc|5|3,1416") conduit à une erreur
 '               LeMaximum("31/12/09|A|1/1/07") conduit à une erreur '               LeMaximum("a|abc|31/12/07|3,1416")sera accepté, _
                   mais les dates et nombres seront traités comme du texte
 
On Error GoTo erreur
Dim ArrSérie() As String, i As Integer
 
ArrSérie = Split(Série, "|")
LeMaximum = ArrSérie(0)
If IsDate(LeMaximum) Then   'comparaison de dates
 'vérifier homogénéité
 For i = 1 To UBound(ArrSérie)
   If Not IsDate(ArrSérie(i)) Then GoTo erreur
 Next i
 'Rechercher le plus Grand
 For i = 1 To UBound(ArrSérie)
   If Format(ArrSérie(i), "yymmdd") > Format(LeMaximum, "yymmdd") Then
      LeMaximum = ArrSérie(i)
   End If
 Next i
Exit Function
ElseIf IsNumeric(LeMaximum) Then 'comparaison autre
 'vérifier homogénéité
 For i = 1 To UBound(ArrSérie)
   If Not IsNumeric(ArrSérie(i)) Then GoTo erreur
 Next i
 'Rechercher le plus Grand
 For i = 1 To UBound(ArrSérie)
   If CDbl(ArrSérie(i)) > CDbl(LeMaximum) Then
      LeMaximum = ArrSérie(i)
   End If
 Next i
Exit Function
Else
 For i = 1 To UBound(ArrSérie)
   If ArrSérie(i) > LeMaximum Then
      LeMaximum = ArrSérie(i)
   End If
 Next i
End If
Exit Function
 
erreur:
MsgBox "les données ne sont pas homogènes", vbCritical
 
End Function

Exemple d'utilisation dans une requête
sur "DatesAcomparer" pour les champs date1, date2, date3 et date4

Code :

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

1
2
SELECT DatesAcomparer.date1, DatesAcomparer.date2, DatesAcomparer.date3, DatesAcomparer.date4, LeMinimum([date1] & "|" & [date2] & "|" & [date3] & "|" & [date4]) AS [Min], LeMaximum([date1] & "|" & [date2] & "|" & [date3] & "|" & [date4]) AS [Max]
FROM DatesAcomparer;

**titi95** · 30/08/2010, 14h37

Merci à tous !

La méthode à Claude est parfaite !

**User** · 30/08/2010, 16h26

Bonjour,

C'est quoi l'avantage de la méthode de Claude par rapport à celle que je propose ?

**ClaudeLELOUP** · 30/08/2010, 16h59

Bonjour User,

C'est en effet toi qui avais donné la bonne piste.
J'ai ajouté un bout de code, pour déterminer le type de données pour adapter la syntaxe de comparaison.
... et ajouté un exemple d'appel pour une requête.

**User** · 30/08/2010, 17h06

Salut Claude,

Oui j'ai vu que tu as ajouté une gestion d'erreur et 2 ou 3 bouts de code intéressants, mais là j'avoue que comme VBA nous offre la possibilité de passer 1 tableau en argument pourquoi ne pas l'utiliser

En tous cas, merci pour ta franchise

**ClaudeLELOUP** · 30/08/2010, 17h23

Parce que je n'avais pas compris "(ParamArray Ary())"
Je vais revoir.
Merci pour la remarque.

**titi95** · 30/08/2010, 17h36

Salut User... et les autres

Vraiment désolé si j'ai créé un pb bien involontairement... où il n'y en avait pas.
D'abord, j'ai remercié tout le monde.

Sur mon choix :
1) je ne suis pas un pro comme vous et je prends ce que j'arrive à comprendre et faire marcher
2) j'ai buté comme Claude sur le ParamArray Ary()
3) la gestion d'erreur - à laquelle je n'aurais pas pensé -m'a été très utile (champs pas toujours remplis ou mal remplis)

C'est tout simple.

Encore merci à TOUS de prendre du temps pour aider des "petits" développeurs occasionnels comme moi.
Ca c'est du forum !

**User** · 30/08/2010, 18h01

Salut titi95,

Y-a pas de mal, tu as fait ton choix pour une solution plus usuelle,
je comprends parfaitement ton choix. Je voulais juste mentionner cette possibilité qu'offre le VBA...

Bonne continuation,

**ClaudeLELOUP** · 30/08/2010, 23h07

Bonsoir User et tous les autres,
Je reviens sur ta suggestion d'utiliser ParamArray Arguments() pour passer les composantes à trier.
Dans ma proposition, les composantes à comparer sont passées comme ceci :
LeMinimum("1000|4|5|3,1416")
c'est à dire le bloc entre quotes, les éléments séparés par | (<Alt>124).
J'ai choisi le paillepeu, comme séparateur car il est rarement utilisé et donc peu susceptible d'interférer.
Avec ParamArray, j'ai cru comprendre que le séparateur était obligatoirement la virgule.
Quid, si ma recherche de minimum ou maximum contient un numérique avec une décimale ?
Avec ParamArray je crois que je vais comparer 1000, 4, 5, 3 et 1416.
Je te concède que de mon côté, il y aurait problème si un élément comportait des quotes.
Ex le minimun entre Chablis "Mont de Milieu" Billaud Simon d'une part
et
Château La bastide, cuvée "OPTIMEE" Corbières d'autre part
Mais, ici il y a une parade : doubler les quotes intérieurs.

Code :

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

leMinimum("Chablis ""Mont de Milieu"" Billaud Simon|Château La bastide, cuvée ""OPTIMEE"" Corbières")

me donne un résultat correct.

Quelque chose m'a échappé ?

**User** · 31/08/2010, 16h08

Salut Claude,

Avec ParamArray, j'ai cru comprendre que le séparateur était obligatoirement la virgule.
Quid, si ma recherche de minimum ou maximum contient un numérique avec une décimale ?
Avec ParamArray je crois que je vais comparer 1000, 4, 5, 3 et 1416.

Ce n'est pas 1 problème,

L'expression ParamArray Ary() veut dire en gros tu peux passer une liste d'arguments, en nombre quelconque et le langage se charge de traduire cette liste d'arguments en 1 tableau. Donc si un argument contient une virgule il ne sera pas séparé en 2, mais traité comme un argument seul qui sera un élément du tableau.

A+

**ClaudeLELOUP** · 31/08/2010, 16h46

Bonjour et merci user.
Je retiens pour une prochaine occasion.

**ricachu** · 30/09/2010, 11h20

Bonjour,

Je me permets de relancer ce sujet.

J'ai testé la solution de Claude mais la requête me renvoi un message d'erreur :

Je n'ai pas d'idée sur l'origine de l'erreur.
Est-ce que cela parle à quelqu'un svp ?

merci d'avance

**ricachu** · 01/10/2010, 17h28

Envoyé par ricachu

Bonjour,

Je me permets de relancer ce sujet.

J'ai testé la solution de Claude mais la requête me renvoi un message d'erreur :

Je n'ai pas d'idée sur l'origine de l'erreur.
Est-ce que cela parle à quelqu'un svp ?

merci d'avance

Pour être un peu plus explicite, j'ai copié le code puis j'ai renseigné la requête comme suivant :

Code :

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

1
2
3
SELECT ..., ..., LeMaximum([/a_isoctry_zneffectiveness_start_date] & "|" & [/iso_ctry_ideffectiveness_start_date]) AS start_date
 
FROM ...

C'est alors que j'ai le message d'erreur

**ricachu** · 01/10/2010, 17h30

OUP'S...J'ai trouvé mon erreur (de débutant) : il ne faut pas oublier d'indiquer tous les champs de date dans le "groupe by".....

Valeur mini de plusieurs champs [AC-2002]

Requêtes et SQL.

Discussions similaires

Partager

Partager