Q. Datacrunching: "Décroiser" un tableau croisé Excel en VBA - VB/VBA/VBS - Programmation
Marsh Posté le 17-11-2004 à 13:01:24
Sub CALx()
U = 1
L = 2
C = 2
Do
Ligne = ThisWorkbook.Sheets("Feuil1" ).Cells(L, 1)
If Ligne = "" Then End
Do
Colonne = ThisWorkbook.Sheets("Feuil1" ).Cells(L, C)
If Colonne = "" Then Exit Do
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 1) = ThisWorkbook.Sheets("Feuil1" ).Cells(L, 1)
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 2) = ThisWorkbook.ActiveSheet.Cells(1, C)
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 3) = ThisWorkbook.ActiveSheet.Cells(L, C)
C = C + 1
U = U + 1
Loop
C = 2
L = L + 1
Loop
End Sub
Marsh Posté le 17-11-2004 à 13:04:58
le tableau de la feuil1 sera reporté " en 2 colonnes" sur la feuil2 ( en admettant que le tableau de la feuil1 commence en A1 )
Marsh Posté le 17-11-2004 à 00:07:23
Bonsoir,
J'ai un problème... dans le cadre d'une mission de conseil j'ai des données métier à ventiler sur une nouvelle segmentation, je compte utiliser access ou Business Objects pour faire ca...
mais le gros hic c'est que mes données sources sont croisées..
Je m'explique j'ai:
1 2 3 4 5
a x x x x x
b x x x x x
c x x x x x
d x x x x x
e x x x x x
et pour datacruncher gentiment j'aurais besoin de:
a 1 x
a 2 x
a 3 x
a 4 x
a 5 x
b 1 x
b 2 x
.....
e 5 x
J'ai un niveau Consultante Marketing en VBA donc si vous pouvez me dépanner avec une macro ou un petit descriptif de la boucle ca serait très sympa...
Merci à vous!
Message édité par etoile75 le 17-11-2004 à 00:21:51