Q. Datacrunching: "Décroiser" un tableau croisé Excel en VBA

Q. Datacrunching: "Décroiser" un tableau croisé Excel en VBA - VB/VBA/VBS - Programmation

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
Reply

Marsh Posté le 17-11-2004 à 00:07:23   

Reply

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


Message édité par Profil supprimé le 17-11-2004 à 13:06:04
Reply

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 )


Message édité par Profil supprimé le 17-11-2004 à 13:06:39
Reply

Sujets relatifs:

Leave a Replay

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