Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 [Résolut] Convertir des lignes d'un tableau en colonnes

Zdz16

XLDnaute Occasionnel
Bonjour à tous et au Forum,

Bonne année à tous et au forum, hé, hé le mois n'est pas fini

je vous soumet une petite question que je bloque dessus.
Je voudrai convertir des données sous forme de tableau en données sous forme de colonnes.
via l'utilisation d'une macro ou d'une routine VBA que j'attacherai à un bouton par exemple.
Ces données sont affectées à une clé composée de plusieurs segments et les valeurs sont pour une période (Le mois)
Je joint un fichier qui contient 2 feuilles
La feuille 'Source' est la matrice dont chaque ligne contient la Cle, valeurs pour chaque mois (Période)
La feuille 'Résultats' est la feuille contenant ce que j'aimerai obtenir une colonne période (mois), les colonnes de la clé, et les colonnes de valeurs.
L'objectif est d'utiliser la feuille Résultat pour importation dans une DB.

Merci d'avance pour votre aide et prenez soin de vous et votre famille

Cordialement
 

Pièces jointes

  • XLD.xlsx
    11.7 KB · Affichages: 20
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Zdz16, @pierrejean ,

Essayez le code :
VB: 
Sub EnColonne()
Dim t, r, i&, j&, n&

   With Sheets("Source")
      t = Range("a1").CurrentRegion
   End With
  
   ReDim r(1 To (UBound(t) - 1) * (UBound(t, 2) - 3), 1 To 6)
   For j = 1 To 3: r(1, j + 1) = t(1, j): Next
   r(1, 1) = "Periode": r(1, 5) = t(2, 4): r(1, 6) = t(2, 5): n = 1
   For i = 3 To UBound(t)
      For j = 4 To UBound(t, 2) - 1 Step 2
         n = n + 1
         r(n, 1) = t(1, j):
         r(n, 2) = t(i, 1): r(n, 3) = t(i, 2): r(n, 4) = t(i, 3)
         r(n, 5) = t(i, j): r(n, 6) = t(i, j + 1)
      Next j
   Next i
  
   With Sheets("Resultats")
      .Columns("a:f").ClearContents
      .Columns("a:f").Resize(n) = r
   End With
End Sub
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

=>chris
Merci d' PWquerité la chose, car je m'arrachais les tifs.
Il faut charger le tableau source en cochant Mon tableau contient des entêtes ?
Je bloquais sur cette étape.
(Donc PW n'est pas trop impacté par les cellules fusionnées alors ?)
 
Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc
RE

Il faut l'aider : créer une requête vide et indiquer dans la barre de formule
=Excel.CurrentWorkbook(){[Name="Data"]}[Content]

si la plage est nommée Data

On peut aussi faire la requête comme sur un classeur externe mais pour ma part j'évite
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
537
RyuAutodidacte
  • Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
237
JMC
J
O
  • Question
Power Query Convertir un tableau de colonnes en lignes avec plusieurs variables (power query)
Réponses
8
Affichages
761
oobiz
O
  • Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
739
Phil69970
N
  • Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
509
crocrocro
C
A
  • Question
XL 2019 Convertir un tableau calculé en TCD
2
Réponses
15
Affichages
1 K
nat54
J
  • Question
XL 2016 Tableau de bord - report de données
2
Réponses
16
Affichages
1 K
chris
I
  • Résolu(e)
Microsoft 365 Trier les colonnes d'un tableau de A à Z en VBA
Réponses
11
Affichages
744
iliess
I
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
701
Alain 79
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…