Discussion :

[Nnenetth]

Bonjour !

Un petit dilemme sur lequel je suis cassée les dents toute l'apres midi !
J'ai une table de la forme :

Code / semaine
A / 42
A / 41
A / 40
A / 38
A / 37
B / 42
B / 37
...

Je voudrais pouvoir compter le nombre de semaines consécutives ou chaque code apparait :
A / 3
B / 1

Sur excel ça fonctionne en magouillant un petit peu, mais sur access je n'y arrive pas... Sans compter que je ne suis pas une pro du sql !

Si quelqu'un a des idées, je suis tout ouïe...

[ClaudeLELOUP]

Bonjour,

Pour autant que "Code" varie de A à Z (une seule lettre majuscule) et que "Semaine" varie de 1 à 53, voici une procédure dont tu pourrais t'inspirer :

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
Public Sub subOccurrences()
Dim i As Integer
Dim j As Integer
Dim iConsecutives As Integer
Dim iMaxConsecu As Integer
For j = 65 To 90 'de A à Z pour chr(j)'
iConsecutives = 0
iMaxConsecu = 0
   For i = 1 To 53
      If DCount("Code", "TaTable", "Code = """ & Chr(j) & """ and Semaine =" & i) > 0 Then
          iConsecutives = iConsecutives + 1
          If iConsecutives > iMaxConsecu Then iMaxConsecu = iConsecutives
        Else
          iConsecutives = 0
       End If
   Next i
   Debug.Print Chr(j) & " : " & iMaxConsecu
Next j
End Sub

Reviens-moi si tu as besoin d'aide pour l'adapter à ton contexte.

[J1]

Bonjour,

voici une solution SQL à ta problématique.
Pour tout t'avouer, la détermination de périodes consécutives n'est pas ce qu'il y a de plus simple à appréhender si tu débutes en SQL et je n'ai malheureusement pas le temps de te détailler le fonctionnement de ma requête. J'espère que cela t'aidera quand même.
Dans les deux solutions suivantes (la deuxième étant une variante de la première), je considère que ta table se nomme T.

Pour commencer, une solution avec un NOT EXISTS, peut-être la plus facile à comprendre :

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
SELECT Code, MAX(Fin-Debut)+1 AS MaxSemaines
FROM (
  SELECT Code, Semaine AS Debut, (
    SELECT MIN(Semaine)
    FROM T AS T2
    WHERE Code=T1.Code
    AND Semaine>=T1.Semaine
    AND NOT EXISTS (
      SELECT 1
      FROM T
      WHERE Code=T2.Code
      AND Semaine=T2.Semaine+1)) AS Fin
  FROM T AS T1) X
GROUP BY Code
ORDER BY Code

Et une solution un poil plus dur à comprendre mais aussi plus optimisée, où je remplace le NOT EXISTS par un LEFT JOIN... WHERE... IS NULL.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT Code, MAX(Fin-Debut)+1 AS MaxSemaines
FROM (
  SELECT Code, Semaine AS Debut, (
    SELECT MIN(T2.Semaine)
    FROM T AS T2
    LEFT JOIN T AS T3
      ON T3.Code=T2.Code
      AND T3.Semaine=T2.Semaine+1
    WHERE T2.Code=T1.Code
    AND T2.Semaine>=T1.Semaine
    AND T3.Semaine IS NULL) AS Fin
  FROM T AS T1) X
GROUP BY Code
ORDER BY Code

Je te laisse t'assurer que cela répond à ton besoin.