Discussion :

[Kyul27]

Bonjour,

J'ai une table TABLE avec trois colonnes :

- DATE : date de la réunion (format date dd/mm/yyyy)
- PARTICIPANT : Nom du participant à la réunion (format texte)
- ABS_PRES : Présence ou Absence du membre (format texte)

J'aimerai créer une requête Access qui me permette de compter le nombre d'absences consécutives du participant depuis la dernière réunion où il a été présent. Ce "compteur d'absences" repart donc à 0 à chaque fois que le participant est présent à la réunion.

Ci-dessous, un exemple des résultats que j'aimerai obtenir de la requête (en jaune)



Sachant que je n'ai pas besoin d'obtenir une table comme présentée, juste du nombre d'absences consécutives (0, 1 ou 2) par participant au moment où je lance ma requête (ci-dessous).



Connaissant très peu le langage VBA/SQL, je ne sais vraiment pas comment aborder ce type de requête, même si cela peut paraître simple.

Merci par avance si jamais vous avez une idée à me proposer, ou un post vers lequel m'orienter et que je n'aurai su trouver.

Bien cordialement

Kévin L

[ClaudeLELOUP]

Bonjour,

On va essayer une méthode artisanale sans VBA (qui serait plus simple, et en tout cas plus court).
Pour la description de la méthode qui consiste à juxtaposer, dans une requête, des éléments d’un enregistrement avec des éléments de l’enregistrement qui le précède (ou qui le suit, dans notre cas !), je t’invite à consulter la proposition de f-leb : http://blog.developpez.com/f-leb/p11...istrement_prec

Au départ, cette table



Et pour faciliter la lecture de la suite : un extrait par individu



Nous aurons ce résultat :





---------------------


Une première requête pour ramener les absences




On recherche ensuite la date de la réunion suivante




On peut déterminer ainsi si l’individu était présent à la suivante





Et on continue le même raisonnement



Jusqu’au moment où, la requête qui prépare les suivants ne ramène rien



Dans notre cas de test, plus la peine d’aller plus loin…

On fait une requête qui récapitule les résultats





Et finalement, pour ne retenir que les lignes qui nous intéressent, c’est-à-dire :





cette dernière requête (pas piquée des vers !)




dans laquelle on exprime qu’on ramène la ligne pour autant qu’une de ses colonnes n’est pas aussi incluse dans une colonne plus à droite.


Et voilà

[Kyul27]

Bonjour Claude,

Merci beaucoup pour ton aide détaillée et pédagogique, qui m'a permis d'atteindre ce que je cherchais à faire .

J'ai juste l'impression que les illustrations qui suivent, pour la 2e absence, ton "On peut déterminer ainsi si l’individu était présent à la suivante" ne sont pas celles que tu voulais montrer. Néanmoins, l’illustration pour la 3e absence m'a permis de comprendre ce que tu me disais de faire.

Par curiosité, je suis preneur si quelqu'un à un code VBA pour faire cela plus rapidement.

Merci encore, bien cordialement

Kévin L

[ClaudeLELOUP]

J'ai juste l'impression que les illustrations qui suivent, pour la 2e absence, ton "On peut déterminer ainsi si l’individu était présent à la suivante" ne sont pas celles que tu voulais montrer. Néanmoins, l’illustration pour la 3e absence m'a permis de comprendre ce que tu me disais de faire.

Bien vu, je viens de corriger ! Merci

Par curiosité, je suis preneur si quelqu'un à un code VBA pour faire cela plus rapidement.

En cours.

[ClaudeLELOUP]

Voici.

L’environnement





Une routine qui complète la colonne

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
Option Compare Database
Option Explicit
 
 
Public Sub NumAbsences()
  Dim i As Integer
  Dim sParticipant As String
  Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("rLaTableTriee")
    rst.MoveFirst
    Do While Not rst.EOF
 
      'À la rupture, réinitialiser le compteur
      If sParticipant <> rst("Participant") Then
         i = 0
         sParticipant = rst("Participant")
      End If
      'Compter
      If rst("Present") = False Then
          i = i + 1
        Else
          i = 0
      End If
      'Compléter la colonne NumOrdreAbs
      rst.Edit
      rst("NumOrdreAbs") = i
      rst.Update
      'Au suivant
      rst.MoveNext
 
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Pour l’exécuter : <CTRL + G> pour afficher la fenêtre d’exécution et saisir :



Et le résultat :