[VBA] Déplacer données Table

Déplacer données Table [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 26-06-2008 à 18:04:13    

Bonjour
 
J'ai une table BUDGET de 15 colonnes qui est de cette forme
 

Code :
  1. flux - Mois1 - Mois2 - Mois3 - ... - Mois12 - NOLIG - NOCOL
  2. O  - 
  3. Ra  -
  4. Re  -
  5. S  -


 
 
Et en fait, j'ai besoin de transformer cette table en 7 colonnes, avec une macro je présume, pour que les champs deviennent
 

Code :
  1. MOIS - O - Ra - Re - S - NOLIG - NOCOL
  2. Mois1 - 
  3. Mois2 -
  4. Mois3 -
  5. ...
  6. Mois12 -


 
Oui ça peut paraitre très stupide vu comme ça, mais j'ai pas trop le choix...
Alors je sais faire via Excel, mais pour adapter la macro tirée d'Excel vers Access, vu mon niveau en VB, ça se complique franchement...
 
Si vous avez des idées.. Merci !
 
Je me demande si la macro Excel peut aider mais à tout hasard, je la mets :
 

Code :
  1. Sub TcD()
  4.     Cells.Select
  5.     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  6.         "Feuil1!C1:C15" ).CreatePivotTable TableDestination:="", TableName:= _
  7.         "Tableau croisé dynamique1"
  8.     ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
  9.     ActiveSheet.Cells(3, 1).Select
  10.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).SmallGrid = False
  11.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("NOLIG" ). _
  12.         Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  13.         False, False)
  14.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("NOCOL" ). _
  15.         Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  16.         False, False)
  17.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Code flux" ). _
  18.         Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  19.         False, False)
  20.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
  21.         Array("NOLIG", "NOCOL", "Données" ), ColumnFields:="Code flux"
  22.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  23.         "BUDGET01" )
  24.         .Orientation = xlDataField
  25.         .Caption = "01"
  26.         .Position = 1
  27.         .Function = xlSum
  28.     End With
  29.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  30.         "BUDGET02" )
  31.         .Orientation = xlDataField
  32.         .Caption = "02"
  33.         .Position = 2
  34.         .Function = xlSum
  35.     End With
  36.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  37.         "BUDGET03" )
  38.         .Orientation = xlDataField
  39.         .Caption = "03"
  40.         .Position = 3
  41.         .Function = xlSum
  42.     End With
  43.     ...
  44.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  45.         "BUDGET12" )
  46.         .Orientation = xlDataField
  47.         .Caption = "12"
  48.         .Function = xlSum
  49.     End With
  50.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" )
  51.         .ColumnGrand = False
  52.         .RowGrand = False
  53.     End With
  54. End Sub

Reply

Marsh Posté le 26-06-2008 à 18:04:13   

Reply

Marsh Posté le 27-06-2008 à 07:15:25    

Bonjour,
cela ressemble beaucoup à : sélectionner la zone, puis "copier" puis collage spécial et sélectionner "transposer"
 
Ce qui donne en utilisant l'enregistreur de macro:
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/06/2008 par PAPOU
'
 
'
    Range("A1:D5" ).Select
    Selection.Copy
    Range("A16" ).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub
 
("A1:D5" ) étant la zone à transposer, et A16 l'endroit où on veut la mettre.


Message édité par seniorpapou le 27-06-2008 à 07:24:58
Reply

Marsh Posté le 01-07-2008 à 11:33:24    

Merci de ta réponse mais cela, tu le fais dans Excel non ?
Je voudrais pouvoir le faire directement dans Access, sans passer par Excel.

Reply

Marsh Posté le 02-07-2008 à 09:47:28    

Ça n'est pas possible de récupérer la macro Excel pour l'adapter à Access.
 
Sous Access il te faut créer dynamiquement la structure de ta nouvelle table en nommant tes champs d'après les valeurs récupérées dans un recordset.
 
Je ne connais pas ton niveau en VBA/Access, mais sans être compliqué, cela demande quelques connaissances des objets Access :
Recordset ,TableDef, Fields, Index, et autres propriétés attachées à ces objets (liste non exhaustive).

Reply

Marsh Posté le 16-09-2008 à 15:33:24    

Je n'ai pas pour habitude de laisser des trucs en plan et laisser des gens qui prennent de leur temps pour moi, sans réponse.  
Désolé j'ai été pris sur un autre truc pendant tout ce temps et n'ai pu me replonger sur le sujet que la semaine dernière.
 
Merci pour tes conseils. Effectivement, j'ai fait autrement en passant par des tables temporaires, des requêtes et tout le toutim.
 
A bientôt

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed