[VBA] Déplacer données Table

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Déplacer données Table

stanymi

Bonjour

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

Code :

flux - Mois1 - Mois2 - Mois3 - ... - Mois12 - NOLIG - NOCOL
O -
Ra -
Re -
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 :

MOIS - O - Ra - Re - S - NOLIG - NOCOL
Mois1 -
Mois2 -
Mois3 -
...
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 :

Sub TcD()
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!C1:C15" ).CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("NOLIG" ). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("NOCOL" ). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Code flux" ). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
Array("NOLIG", "NOCOL", "Données" ), ColumnFields:="Code flux"
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"BUDGET01" )
.Orientation = xlDataField
.Caption = "01"
.Position = 1
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"BUDGET02" )
.Orientation = xlDataField
.Caption = "02"
.Position = 2
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"BUDGET03" )
.Orientation = xlDataField
.Caption = "03"
.Position = 3
.Function = xlSum
End With
...
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"BUDGET12" )
.Orientation = xlDataField
.Caption = "12"
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1" )
.ColumnGrand = False
.RowGrand = False
End With
End Sub

Publicité

seniorpapou

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

stanymi

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.

tegu

Ç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).

stanymi

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Déplacer données Table

Sujets relatifs
[VBA] Ouvrir fichier Excel - même répertoire	[VBA / Excel] Aide sur une macro a programmer
[VBA] [Résolu] Comment récupérer la formule d'une cellule ??	Parcourir des dossiers et sous-dossiers en VBA
VBA Excel Supprimer des lignesl	incrémenter un champs dans une table via un bouton
VBA : remplacer tous les 0 d'une feuille excel	supprimer un élément de ma table de string
[MYSQL] Limite d'une table	VBA Excel - evenements Copier Coller
Plus de sujets relatifs à : [VBA] Déplacer données Table

Page générée en 0.067 secondes