Discussion :

[kader daret]

Bonjour,

Je souhaiterai via Access et bien entendu si ce dernier me le permet calculer à l'aide d'une requête le nombre de personne qui effectue une activité que j'appelle AS sur plusieurs tranches horaires et sur 24H et cela du 01/01/2013 au 31/12/2013.

Pour cela je dispose d'une table qui contient les éléments suivants:

Champs 1: Nom
Champs 2: Prénom
Champs 3: Centre
Champs 4: Type d'activité que j'appelle "PLANNING_ETAT_LIBELLE_COURT" dans lequel on retrouve le critère AS
Champs 5: Début de l'activité que j'appelle "PLANNING_DEBUT_DATEHEURE" type 00/00/0000 00:00
Champs 6: Fin de l'activité que j'appelle "PLANNING_FIN_DATEHEURE" type 00/00/0000 00:00

Tableau que j'attends de ma requête:

Centre Date Trache Horaire 08H-09H 09H-10H 10H-11H .... 07H-08H
Paris 01/01/2013 5 5 6 3
02/01/2013 4 8 9 7
....
31/12/2013
Lyon 01/01/2013
02/01/2013
....


J'espère avoir été assez explicite.

Merci d'avance.

Cordialement.

Kader

[marot_r]

Le calcul de tranche est toujours un peu complex.

Un événement est dans une tranche si :

1. sa date (et l'heure) de début est dans la tranche
2. sa date (et l'heure) de fin est dans la tranche
3. la tranche est entre la date de début (et l'heure) et la date de fin (et l'heure) de l'événement

personnellement je créerai :

1. Une requête qui sélectionne les événements pour une date donnée (R1).
2. Pour chacune des tranches, une requête qui sélectionne les données de R1 (R2-01 à R2-24 donc au total 24 requêtes)
3. Une requête union qui "concatène" toutes les tranches d'une journée R3 (union de R2-01 à R2-24)
4. Une requête union R4 qui "ajoute" toutes les tranches à R3 pour la date donnée dans R1 pour s'assurer qu'on a bien au moins une fois chaque tranche.
5. Une requête croisée dynamique basée sur R4 qui présente tes données en tableau.

Une autre solution serait de faire une table temporaire présentant autant de champs que de tranche horaire et une ligne par date et de la remplir avec du code VBA qui parcourrerai les données. S tu n'as pas beaucoup de données cette méthode est sans doute plus simple car plus intuitive à programmer.

A+

[Tofalu]

Donnez au moins un exemple de données et de retour correct. Là, votre "tableau" ne possède pas les mêmes colonnes suivant les lignes ...

[madefemere]

Bonsoir,

Je propose de partir sur l'utilisation d'une table temporaire T_temp avec les champs :
- NumEnr (identification de l'élément dans le planning)
- IdPersonne (Identification de la personne en lieu et place de Nom et Prénom)
- Centre (tu l'as)
- PLANNING_ETAT_LIBELLE_COURT (tu l'as)
- DateEnr (ce sera la date de la tranche horaire qui va être utilisé)
- TrancheHEnr (Les tranches horaires, numérotons les de 0 à 23. 24 passe à la DateEnr suivante)

1- On vide cette table temporaire avec un DELETE* FROM T_temp
2- On exécute le code suivant qui permet de charger les informations à partir de la table T_Planning vers la table T_temp avec la valeur "AS" et les délais de présence seront répartis dans les tranches de 0 à 23.
Un premier module permettant d'ajouter les valeurs dans T_temp selon les débuts et fins dans planning

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
'Fonction pour ajouter les valeurs dans la table T_temp
Public Sub AjoutTrancheH(parDebut As Date, parFin As Date, _
                    parCentre As String, parLib As String, _
                    parPers As Integer, parNumer As Integer)
Dim rstTemp As DAO.Recordset
Dim valdate As Date
valdate = parDebut
Set rstTemp = CurrentDb.OpenRecordset("T_temp", dbOpenDynaset)
With rstTemp
    While valdate <= parFin
        .AddNew
        ![NumEnr] = parNumer
        ![IdPersonne] = parPers
        ![Centre] = parCentre
        ![PLANNING_ETAT_LIBELLE_COURT] = parLib
        ![DateEnr] = DateValue(valdate)
        ![TrancheHEnr] = IIf(Hour(valdate) = 24, 0, Hour(valdate))
 
        .Update
    valdate = DateAdd("h", 1, valdate)
    Wend
End With
rstTemp.Close
Set rstTemp = Nothing
End Sub

Parcourir la table T_Planning pour trouver les valeurs avec "AS"

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
'Fonction pour parcourir la table T_Planning
Public Sub ParcourirValPlanningAS()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("T_Planning", dbOpenDynaset)
With rst
    .MoveFirst
    While Not .EOF
    Debug.Print ![NumEnr]
    If ![PLANNING_ETAT_LIBELLE_COURT] = "AS" Then
    Call AjoutTrancheH(![PLANNING_DEBUT_DATEHEURE], ![PLANNING_FIN_DATEHEURE], _
                    ![Centre], ![PLANNING_ETAT_LIBELLE_COURT], _
                    ![IdPersonne], ![NumEnr])
    End If
    .MoveNext
    Wend
End With
rst.Close
Set rst = Nothing
End Sub

L'appel des fonctions

Code :

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

1
2
3
4
5
6
Function execut()
Dim strSQl As String
strSQl = "DELETE * FROM T_temp"
DoCmd.RunSQL strSQl
ParcourirValPlanningAS
End Function

3- Exécuter la requête croisée dynamique suivante pour faire apparaitre le résultat voulu

Code :

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

1
2
3
4
5
TRANSFORM Count(T_temp.IdPersonne) AS CompteDeIdPersonne
SELECT T_temp.Centre, T_temp.DateEnr, Count(T_temp.IdPersonne) AS [Total de IdPersonne]
FROM T_temp
GROUP BY T_temp.Centre, T_temp.DateEnr
PIVOT T_temp.TrancheHEnr;

Attention : Je n'ai pas fait le filtre selon les dates extrêmes. A toi de l'appliquer vu que je ne sais pas si on prend en compte ou non un enregistrement qui commence le 31/12/2013 à 21:00 et se termine le 01/01/2014 à 06:00.

Bonne continuation

[User]

Bonjour à tous,

Comme mentionné par madefemere:

Est-ce que le début et la fin de l'activité peuvent être sur plusieurs jours ?

Exemple :

Durand, Paul, Paris, AS, 01/01/2013 15:00, 02/01/2013 07:00

Cdt,

[pc75]

Bonjour,

J'avais donné un début de piste => http://www.developpez.net/forums/d14...ate-naissance/

[User]

Bonjour,

Avez-vous trouvez une solution à votre problème ?

Sinon, j'aurais un exemple à vous proposer un peu dans le style de pc75 mais avec en plus une table pour enregistrer les heures.

a+