Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1453 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°900304
etoile75
Posté le 17-11-2004 à 00:07:23  profilanswer
 

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
mood
Publicité
Posté le 17-11-2004 à 00:07:23  profilanswer
 

n°900564
Profil sup​primé
Posté le 17-11-2004 à 13:01:24  answer
 

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
n°900570
Profil sup​primé
Posté le 17-11-2004 à 13:04:58  answer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
tableau de session / foreach[resolu][VBA]ComboBox et feuilles Excel
Taille maximale de tableau[VBA] concaténer des tableaux
apprendre VBAtransfert ftp vba
SQL/VBA : probleme avec LIKE et "*" [RESOLU][VBA] Manipulation de fichiers image
Passage d'un tableau de string vers du code non managé (DLL) 
Plus de sujets relatifs à : Q. Datacrunching: "Décroiser" un tableau croisé Excel en VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR