Plusieurs enregistrements sur une seule ligne

**romainrogo** · 15/01/2014, 17h10

Bonjour,

J'ai une table Access qui contient des milliers d'enregistrements. J'ai un tas de colonnes mais pour simplifier, disons que j'ai la configuration suivante :

une colonne ID_SECTEUR,
une colonne NOM_CHEF,
une colonne NOMBRE_HEURE

J'ai aujourd'hui, une ligne pour une information et je me retrouve avec plusieurs lignes qui ont un ID_SECTEUR=100. Je souhaiterais pouvoir, quand plusieurs lignes ont le même ID_SECTEUR, les mettre dans une seule ligne avec création de nouvelles colonnes NOM_CHEF2, NOMBRE_HEURE2, NOM_CHEF3, NOMBRE_HEURE3, etc.

Existe t-il des routines pour faire cela ? J'ai testé de faire des requêtes mais je suis bloqué pour le moment.
J'ai posté la demande également pour Excel, l'environnement dans lequel j'étais au départ mais Access me semble plus adapté pour cela.
Je vous remercie par avance pour l'aide que vous pourrez me fournir.

Romain

**ClaudeLELOUP** · 15/01/2014, 17h25

Bonjour,

Je ne comprends pas la finalité.

Mais c'est évidemment possible de le réaliser.

Connais-tu d'avance le nombre de colonnes NOM_CHEFn, NOMBRE_HEUREn ?

Quoi qu'il en soit on est est limité à 255 colonnes dans une table Access.

**romainrogo** · 15/01/2014, 17h31

Bonjour Claude,

la finalité sera de réaliser une jolie carte avec camembert et le logiciel (et d'autres) me permettent de faire ce type d'analyse que sur une seule ligne.

Je ne connais pas d'avance le nombre n mais je peux certainement trouver un maxi.

**ClaudeLELOUP** · 15/01/2014, 17h35

... et en tout moins de 255 colonnes ?

**romainrogo** · 15/01/2014, 17h36

oui

**ClaudeLELOUP** · 15/01/2014, 17h38

Peux-tu poster un échantillon de ta table en version Access2000 ? et me donner la valeur maximum de n.

**romainrogo** · 15/01/2014, 17h48

Le nombre maximum est de 20.

Voici pour l'échantillon, il est dispo en pièce jointe (dans Access) :

ID_SECTEUR ||NOM_CHEF || NOMBRE_HEURE
100 Romain 123
100 Vincent 101
100 Norbert 250
102B Romain 521
102B Valérie 378
102B Pascal 52
102C William 54

Devrait donner :
ID_SECTEUR ||NOM_CHEF || NBRE_HEURE ||NOM_CHEF2 || NBRE_HEURE2 ...
100 Romain 123 Vincent 101

etc.

**ClaudeLELOUP** · 16/01/2014, 07h01

Voici une proposition.
Au départ :

À l’arrivée :

L’idée

On commence par vidanger tTransformee de son contenu ancien.
On lit la table tOrigine triée sur ID_SECTEUR et NOM_CHEF.
Pour chaque groupe de ID_SECTEUR, on construit à la volée une requête ajout dont voici la représentation graphique pour le 100 :

Remarque

S’il s’avère qu’un groupe contient plus de cas que le maximum prévu, ici 20, un message est publié et le programme s’interrompt

Si tout se passe bien, ce message :

Voici le code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Compare Database
Option Explicit
 
 
Public Sub Transfo()
  On Error GoTo GestionErreurs
  Dim rs As DAO.Recordset
  Dim sRupture As String
  Dim j As Integer
  Dim sSql1 As String
  Dim sSql2 As String
  'Vidanger tTransformee
  DoCmd.SetWarnings False
  DoCmd.RunSQL ("DELETE tTransformee.ID_SECTEUR FROM tTransformee;")
  'Création du recordset
  Set rs = CurrentDb.OpenRecordset("SELECT tOrigine.ID_SECTEUR, tOrigine.NOM_CHEF, tOrigine.NOMBRE_HEURE FROM tOrigine ORDER BY tOrigine.ID_SECTEUR, tOrigine.NOM_CHEF;")
  'Initialiser sRupture,sSql1 et sSql2
  sRupture = rs("ID_SECTEUR")
  sSql1 = "INSERT INTO tTransformee ( ID_SECTEUR, "
  sSql2 = "SELECT """ & rs("ID_SECTEUR") & """ AS Sect,"
  'Mise en ligne
  Do Until rs.EOF
     If sRupture <> rs("ID_SECTEUR") Then
         'Terminer sql1
         sSql1 = Left(sSql1, Len(sSql1) - 1) & ")" 'on ampute la dernière virgule et on ferme la parenthèse
         sSql2 = Left(sSql2, Len(sSql2) - 1) & ";" 'on ampute la dernière virgule et on ajoute le point-virgule
         DoCmd.RunSQL sSql1 & " " & sSql2 ' on exécute le SQL ainsi construit
         'Réinitialiser sSql1, sSql2,sRupture et remettre j à zéro, pour le groupe suivant
         sSql1 = "INSERT INTO tTransformee ( ID_SECTEUR, "
         sSql2 = "SELECT """ & rs("ID_SECTEUR") & """ AS Sect,"
         sRupture = rs("ID_SECTEUR")
         j = 0
     End If
     sSql1 = sSql1 & " NOM_CHEF" & j & ", NOMBRE_HEURE" & j & ","
     sSql2 = sSql2 & """" & rs("NOM_CHEF") & """ AS Chf" & j & ", " & rs("NOMBRE_HEURE") & " AS hr" & j & ","
     j = j + 1
     rs.MoveNext
  Loop
  'Traiter la fin du dernier groupe
  'Terminer sql1
  sSql1 = Left(sSql1, Len(sSql1) - 1) & ")"
  sSql2 = Left(sSql2, Len(sSql2) - 1) & ";"
  DoCmd.RunSQL sSql1 & " " & sSql2
  rs.Close
  Set rs = Nothing
  DoCmd.SetWarnings True
  MsgBox "La table tOrigine a été convertie en tTransformee"
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 3127
      MsgBox "La source contient " & j & " enregistrements" & vbLf _
               & "pour le secteur " & sRupture & "."
    Case Else
      MsgBox "Erreur dans sub Tranfo " & Err.Number & " " & Err.Description
  End Select
End Sub

La db de test est ici.

**romainrogo** · 16/01/2014, 07h11

Je teste cela dès que je suis arrivé au boulot et te fais un retour, merci 1000 fois Claude !

**romainrogo** · 16/01/2014, 10h08

Hello,

Cela fonctionne parfaitement et correspond exactement à ce que je souhaite faire. Merci beaucoup ! Je vais modifier le script pour le faire correspondre à ma vraie situation maintenant. Il y a encore un peu de boulot pour moi.

Merci encore !

**lmc71** · 20/08/2015, 09h19

Bonjour le Forum
Bonjour Claude
Ce n'est pas la première fois que je visite ce site dont je trouve des merveilles, mais c'est la première fois que je l'utilise. Je ne connais pas le protocole.
Suite à cette Discussion, voici mon soucis Claude, car c'est pour le code ci-dessous que j'écris.
Il m'intéresse énormément et je voudrais savoir s'il est compatible avec Access 2007 car il est construit pour Access 2000 et de plus je ne connais pas suffisamment le VBA pour me permettre de le modifier.
Merci
Cordialement

Envoyé par ClaudeLELOUP

Voici une proposition.
Au départ :

À l’arrivée :

L’idée

On commence par vidanger tTransformee de son contenu ancien.
On lit la table tOrigine triée sur ID_SECTEUR et NOM_CHEF.
Pour chaque groupe de ID_SECTEUR, on construit à la volée une requête ajout dont voici la représentation graphique pour le 100 :

Remarque

S’il s’avère qu’un groupe contient plus de cas que le maximum prévu, ici 20, un message est publié et le programme s’interrompt

Si tout se passe bien, ce message :

Voici le code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Compare Database
Option Explicit
 
 
Public Sub Transfo()
  On Error GoTo GestionErreurs
  Dim rs As DAO.Recordset
  Dim sRupture As String
  Dim j As Integer
  Dim sSql1 As String
  Dim sSql2 As String
  'Vidanger tTransformee
  DoCmd.SetWarnings False
  DoCmd.RunSQL ("DELETE tTransformee.ID_SECTEUR FROM tTransformee;")
  'Création du recordset
  Set rs = CurrentDb.OpenRecordset("SELECT tOrigine.ID_SECTEUR, tOrigine.NOM_CHEF, tOrigine.NOMBRE_HEURE FROM tOrigine ORDER BY tOrigine.ID_SECTEUR, tOrigine.NOM_CHEF;")
  'Initialiser sRupture,sSql1 et sSql2
  sRupture = rs("ID_SECTEUR")
  sSql1 = "INSERT INTO tTransformee ( ID_SECTEUR, "
  sSql2 = "SELECT """ & rs("ID_SECTEUR") & """ AS Sect,"
  'Mise en ligne
  Do Until rs.EOF
     If sRupture <> rs("ID_SECTEUR") Then
         'Terminer sql1
         sSql1 = Left(sSql1, Len(sSql1) - 1) & ")" 'on ampute la dernière virgule et on ferme la parenthèse
         sSql2 = Left(sSql2, Len(sSql2) - 1) & ";" 'on ampute la dernière virgule et on ajoute le point-virgule
         DoCmd.RunSQL sSql1 & " " & sSql2 ' on exécute le SQL ainsi construit
         'Réinitialiser sSql1, sSql2,sRupture et remettre j à zéro, pour le groupe suivant
         sSql1 = "INSERT INTO tTransformee ( ID_SECTEUR, "
         sSql2 = "SELECT """ & rs("ID_SECTEUR") & """ AS Sect,"
         sRupture = rs("ID_SECTEUR")
         j = 0
     End If
     sSql1 = sSql1 & " NOM_CHEF" & j & ", NOMBRE_HEURE" & j & ","
     sSql2 = sSql2 & """" & rs("NOM_CHEF") & """ AS Chf" & j & ", " & rs("NOMBRE_HEURE") & " AS hr" & j & ","
     j = j + 1
     rs.MoveNext
  Loop
  'Traiter la fin du dernier groupe
  'Terminer sql1
  sSql1 = Left(sSql1, Len(sSql1) - 1) & ")"
  sSql2 = Left(sSql2, Len(sSql2) - 1) & ";"
  DoCmd.RunSQL sSql1 & " " & sSql2
  rs.Close
  Set rs = Nothing
  DoCmd.SetWarnings True
  MsgBox "La table tOrigine a été convertie en tTransformee"
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 3127
      MsgBox "La source contient " & j & " enregistrements" & vbLf _
               & "pour le secteur " & sRupture & "."
    Case Else
      MsgBox "Erreur dans sub Tranfo " & Err.Number & " " & Err.Description
  End Select
End Sub

La db de test est ici.

**ClaudeLELOUP** · 20/08/2015, 09h37

Bonjour Imc71,

et je voudrais savoir s'il est compatible avec Access 2007

En principe, oui !

Je ne connais pas le protocole.

Quel est le problème ?

**lmc71** · 20/08/2015, 11h54

Bonjour Claude
Bonjour le Forum
Merci pour la compatibilité de ton code sur Access 2007
En ce qui concerne le problème, est que je ne savais pas comment je pouvais poser ma question sur ce site.
Sinon pour l'utilisation de ton code je ne sais pas si je serai capable de pouvoir le modifier. Alors si tu veux me donner un petit coup de main de te remercie d'avance.
Merci d'avoir répondu si rapidement.
Cordialement

Envoyé par ClaudeLELOUP

Bonjour Imc71,

En principe, oui !

Quel est le problème ?

**ClaudeLELOUP** · 20/08/2015, 12h41

Evite de supprimer tes messages : la discussion perd sa cohérence !
Explique comment on peut t'aider.

**lmc71** · 20/08/2015, 13h22

Envoyé par ClaudeLELOUP

Evite de supprimer tes messages : la discussion perd sa cohérence !
Explique comment on peut t'aider.

Re
Je ne sais pas comment j'ai fait pour supprimer mes messages. C'est la raison pour laquelle je disais que je ne connaissais pas le protocole d'utilisation.
Donc si tu veux me venir en aide, je vais essayer de t'expliquer.
C'est le même problème que le thème à savoir des enregistrements d'une table en plusieurs colonnes que je voudrais transposer en ligne.
Une table Origine avec quatre colonnes : RefAnnée - RefVendangeur - Mt Hébergt - Nbr Hébergt.
L'histoire est la suivante: Je créée une application pour gérer des vendangeurs tant sur les jours - heures qu'hébergement. Un vendangeur peut au cour d'une période de vendange présenter plusieurs situation tant sur les heures que sur l'hébergement.
Jusque là j'arrive à gérer les temps de présence que ce soit en heures ou nombre d'hébergement (P'tit Déj - Répas - Souper et Coucher).
Mais lors de la création du bulletin de paie, je n'arrive pas à lier les calculs précédents (différents calculs coupeur - porteur - cuisinier ou autre.. taxes ) avec les hébergements.
Il me faut qu'une seule ligne de calculs d'hébergement par vendangeur. En effet si un vendangeur n'a pas le même nombre de P'tit Déj, Repas, Souper ou de coucher pendant la période, il y a autant de ligne d'enregistrements qu'il y a de différences d'hébergements pour le même vendangeur.
J'ai créé un petit fichier avec une seule table :T_Hébergt_Origine comme exemple.
Dans la table T_Transfom_Hébergt , il faudrait la colonne RefAnnée et RefVendangeur (qui me sert de référence pour tous mes calculs) et Mt Hébergt et Nbr Hébergt qui ces deux colonnes doivent être mises sur une ligne avec le nombre d'enregistrements évolutifs selon la situation du vendangeur.
Je te remercie d'avance et je reste à ta disposition.
Cordialement

**ClaudeLELOUP** · 20/08/2015, 14h16

Désolé, mais j'utilise Access2000 et je ne suis pas équipé pour lire des fichier .accdb.

Si l'explication fournie n'est pas claire pour toi, depuis que j'avais posté cette réponse, j'ai trouvé ce billet : http://access.developpez.com/sources...QLLigneColonne. Tu y trouveras peut-être meilleur compte.

**Malick** · 20/08/2015, 14h59

Envoyé par ClaudeLELOUP

Désolé, mais j'utilise Access2000 et je ne suis pas équipé pour lire des fichier .accdb.

Voici le fichier compatible avec la version 2000.

**ClaudeLELOUP** · 20/08/2015, 15h05

Merci pour la conversion Malick.

Mais je crois avoir dit tout ce que je savais sur le sujet.

**lmc71** · 20/08/2015, 15h20

Envoyé par ClaudeLELOUP

Désolé, mais j'utilise Access2000 et je ne suis pas équipé pour lire des fichier .accdb.

Si l'explication fournie n'est pas claire pour toi, depuis que j'avais posté cette réponse, j'ai trouvé ce billet : http://access.developpez.com/sources...QLLigneColonne. Tu y trouveras peut-être meilleur compte.

Re
Effectivement j'utilise Office 2007.
Je te remercie pour le lien que j'ai regardé avec intérêt. Mais comme je te l'ai dit, je ne suis pas un féru en VBA et de ce fait je ne connais pas tout les terme et subtilités du VBA.
Je te remercie et je vais essayé de décortiquer ton code.
Encore merci
Cordialement

**lmc71** · 20/08/2015, 15h58

Envoyé par ClaudeLELOUP

Merci pour la conversion Malick.

Mais je crois avoir dit tout ce que je savais sur le sujet.

Re Excuse moi de revenir vers toi.

Dans ton code je vois la ligne suivante

Code :

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

 DoCmd.RunSQL ("DELETE tTransformee.ID_SECTEUR FROM tTransformee;")

qui apparemment sert à purger la table tTransformée
or j'ai ouvert cette table pour voir sa construction et j'ai remarqué qu'aucune clef n'est apparente.
D'où les questions suivantes :

Est-ce normale ?

Si oui comment fait-on pour lier les deux tables à toutes les autres tables pour permette une utilisation ultérieure des enregistrements de la table tTransformee ?

J'essaye de comprendre pour mieux apprendre.
Merci
Cordialement

Plusieurs enregistrements sur une seule ligne

IHM

Discussions similaires

Partager

Partager