Discussion :

[debdev]

Bonjour,

Je vous explique mon problème. Je souhaiterai faire une cross tab mais je n'y arrive pas (avec l'assistant!)

J'ai une table 1 où j'ai les noms des chefs. Chaque chef a un id.
J'ai une table 2 où j'ai les noms des employés. Chaque employé a un id.

Tables 1 et 2 sont reliées par l'id du chef.
Chaque chef a 4 employés.

Donc dans ma table 2, j'ai 4 enregistrements (un par employé) pour chaque chef.

Ce que je voudrais c'est une crosstab qui me présente les résultats comme ceci:

Code :

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

1
2
3
4
5
 
               emp1           emp2            emp3           emp4
chef 1       id_emp1         id_emp2        id_emp3       id_emp4
chef 2       id_emp1         id_emp2        id_emp3       id_emp4
chef n       id_emp1         id_emp2        id_emp3       id_emp4

pour chaque ligne du tableau, je veux les identifiants des employés correspondant au chef.

Quand je fais une cross tab avec l'assistant, je peux choisir les lignes (donc id des chefs). Pour les colonnes, je mets id_employés. Sauf que ça fonctionne pas car ça me fait une crosstab avec 600 colonnes car ça me prend tous les id employés. Or moi, je ne veux que 4 colonnes (employé 1/2/3/4) et à l'intérieur de ces colonnes, à l'intersection avec chaque ligne, je veux les id_employés correspondant.

Merci de votre aide

[random]

il te manque une donnée
quant tu énumères employe1 employé2... tu fais un dénombrement
comment il va faire access ?

il te faut rajouter écrire une fonction qui pourra renseigner l'ordre

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
 
Function ordre(idemploye As Variant, idchef As Variant) As String
 
Dim base As DAO.Database
Dim req As DAO.Recordset
Dim x As Integer
Set base = CurrentDb()
Set req = base.OpenRecordset("SELECT idemploy, idchef FROM matable WHERE idchef = " & idchef & " ORDER BY idemploy;")
req.MoveFirst
x = 1
Do Until req.EOF Or req![idemploy] = idemploye
x = x + 1
req.MoveNext
Loop
ordre = "employé" & x
Set req = Nothing
End Function

[debdev]

merci pr ta réponse.
je vais regarder tout ça de plus près.
je te tiens au courant
a+