Discussion :

[tibun1]

Bonjour à tous,
bravo ;-) pour ce site plein de vie, et de réponses intéressantes.

Je fais appel à vos connaissances, je débute acces et j'ai un soucis de mis en
forme de donnée.


J'ai une requette qui me sort le résultat suivant

Jean|32ans|Poire|Fruit|
Jean|32ans|Courgette|Légume|
Jean|32ans|Brun|
Paul....
Paul...
...


Je souhaite obtenir dans une nouvelle table et l'exporter vers un fichier excel
le résultat suivant:
Jean|32ans|Poire|Fruit|Courgette|Légume|Brun|
Paul....

..

Merci de votre aide désolé , si c'est une question bête pour certain.
Mais là, je coince.

Tibun1
On passe notre vie à apprendre bien que nos capacités d'enregistrement diminuent avec le temps.

[Jean-Philippe André]

Bonjour tibun1,
bienvenue sur DVP
tu as à ta disposition de nombreuses ressources, parmi lesquelles une
dans laquelle bon nombre de "questions types" sont résolues.
Ici, je te recommande de lire l'article suivant : http://access.developpez.com/sources...QLLigneColonne

Si certains points restent obscurs, n'hésite pas à venir nous poser d'autres questions.

Bon courage

[tibun1]

Salut,
merci pour tes lumières, ca fonctionne à moitié,
je voudrais maintenant créer autant de colone
qu'il y a de participants des ton exemple de faq.

Merci

[vodiem]

salut jpcheck et bienvenu tibun1,

regarde l'assistant requete "analyse croisée" si cela ne te conviendrait pas.

[tibun1]

Salut,

avec l'analyse croisé ca ne fonctionne pas,
je n'arrive pas a obtenir le résultat.

[vodiem]

poste nous la structure de tes tables, stp.

[Jean-Philippe André]

et ton code actuel si celui-ci ne t'apporte pas entière satisfaction stp

[tibun1]

Merci,

ci-joint ma table Tbl_Projet

Commune Emetteur
ABANACOURT 915005M50
ABANACOURT 750000F60
ABANACOURT 916500G10
PARIS 750000F60
PARIS 916500G10
ROUEN 652802F50
ROUEN 765015F40
ROUEN 750000F60

mon module

Public Function RecupEmetteur(Commune As Text) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT Emetteur FROM Tbl_Projet WHERE Commune=" & Commune
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupEmetteur = RecupEmetteur & res.Fields(0).Value & " | "
res.MoveNext
Wend
'Enleve le dernier espace
RecupEmetteur = Left(RecupEmetteur, Len(RecupEmetteur) - 1)
'libere la mémoire
Set res = Nothing
End Function

ma requete

SELECT DISTINCT Tbl_projet.Commune, RecupEmetteur(Commune) AS LesEmetteurs
FROM Tbl_projet;

Le résultat souhaité
Commune Emetteur1 Emetteur2
ABANACOURT 915005M50 750000F60
PARIS 750000F60 916500G10

en plus j'ai un problème 3464

[vodiem]

avec une requete analyse croisée:

Code SQL :

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

1
2
3
4
5
6
TRANSFORM First(Emetteur) AS PremierDeEmetteur
SELECT Commune
FROM
Tbl_Projet
GROUP BY Commune
PIVOT "Emetteur " & dcount("*","Tbl_Projet","emetteur<='" & emetteur & "' and commune='" & commune & "'");

[tibun1]

Merci beaucoup vodiem,

J'ai une encore erreur car dans une de mes communes j'ai un apostrophe (AGEN-D'AVEYRON), comment puis-je luis dire pour passe outre?

Sans abuser, si je ne souhaite que les 2 premiers, il y a possibilité de l'inclure dans la requete.

[vodiem]

voilà avec le correctif de l'apostrophe avec limitation à 2 émetteurs.

Code SQL :

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

1
2
3
4
5
TRANSFORM First(Emetteur) AS PremierDeEmetteur
SELECT Commune
FROM Tbl_Projet WHERE dcount("*","Tbl_Projet","emetteur<='" & emetteur & "' and commune='" & replace(commune,"'","''") & "'")<=2
GROUP BY Commune
PIVOT "Emetteur " & dcount("*","Tbl_Projet","emetteur<='" & emetteur & "' and commune='" & replace(commune,"'","''") & "'");

[tibun1]

:Merci: vodiem

Ta requette fonctionne super bien, y a t-il moyen de optimiser le temps de traitement. J'ai utilisé ta requete sur une table contenant 70 000 lignes, ça m'a pris 2h avec un Core2Duo de 2Ghz avec 2Go de Ram.
merci

[vodiem]

il est possible d'optimiser:
la lenteur viens de dcount et replace.

.en créant une requete insertion qui rajoute le champ <Emetteur x> (de la parti pivot) dans une nouvelle table.
.d'effectuer une requete update pour l'apostrophe.
.faire la requete analyse croisé par l'assistant, tu auras cette fois ci tes trois champs nécessaire pour pouvoir y arriver).

exécuter tout cela dans une procédure.
je ne s'aurais dire le gain de temps mais c'est reconnu que les requetes analyse croisée sont plus rapide à partir de table et que de requete.

[tibun1]

merci
bonne journée