Discussion :

[misterlagaffe]

Bonjour tous le monde :-)

J'ai un petit souci pour créer un état. Sous Excel, c'est très simple mais sous Acces, je ne vois pas comment faire.

J'ai fait une requete qui me regroupe toute les données par région.

Région1	12
Région2	15
Région3	17
Région4	21
Région5	13
Région6	11

Evidemment, pour creer un etat, ce type d'affichage est bien, mais on me demande de mettre les régions comme en tête, c'est à dire comme cela:

Région1	Région2	Région3	Région4	Région5	Région6
12	15	17	21	13	11

Question :

Comment puis je faire ?

Merci pour vos réponses :-)

[ClaudeLELOUP]

Bonjour,

Regarde cette discussion : http://www.developpez.net/forums/d14...s-seule-ligne/

[misterlagaffe]

merci pour le lien mais je crains que cela ne réponds pas à ma question.

En effet, c'est une transposition de mon tableau que je demande (vertical -> horizontal) et lien ne fait pas vraiment pas cela.

[ClaudeLELOUP]

Ton état n'aura-t-il qu'une seule ligne de données ?

Si oui, le problème se résume à copier le Nbre de chaque ligne de la requête dans une colonne distincte d'une table qui n'aurait qu'une ligne.

[misterlagaffe]

En fait, Il y a exactement 2 colonnes et 8 lignes.

La première colonne, c'est le nom des régions et la deuxième possèdes les chiffres (comme dans mon exemple).

[ClaudeLELOUP]

On part de ceci :



On va alimenter ceci :



qui sera la source de ton état.

Voici une fonction qui fait le travail :

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
Option Compare Database
Option Explicit
 
 
Public Sub Transfo()
Dim UnTableau(10) As Long  '10 = nbre de colonnes maximum de la cible
Dim i As Integer
Dim rs As Recordset
'Lire les enregistrements ramenés par la requête
Set rs = CurrentDb.OpenRecordset("rLaRequeteDepart")
rs.MoveLast
rs.MoveFirst
  For i = 0 To rs.RecordCount - 1
    UnTableau(i) = rs("Nbre")
    rs.MoveNext
  Next i
'Réinitialiser la cible
'Alimenter la cible
Set rs = CurrentDb.OpenRecordset("tLaCible")
For i = 0 To UBound(UnTableau) - 1
  rs.Edit
  rs(i) = UnTableau(i)
  rs.Update
Next i
rs.Close
End Sub

Pour aboutir à ceci :



La BdD exemple est ici : http://claudeleloup.developpez.com/&...terLagaffe.mdb

[misterlagaffe]

Merci, je vais tester cela, et je reviens pour dire si cela fonctionne.

[misterlagaffe]

après quelques semaines, je tenais à te remercier, j'ai adapté le code pour mes besoins et cela fonctionne !

Merci