Comment convertir un tableau croisé (tableau bidimensionnel) en liste dans Excel ?
La conversion d'un tableau croisé (tableau bidimensionnel) en tableau de liste (tableau unidimensionnel) dans Excel peut être nécessaire pour diverses tâches d'analyse de données. Si vous disposez d'un tableau avec des en-têtes de lignes et de colonnes et que vous devez le simplifier en une liste plate, il existe des méthodes efficaces pour réaliser cette transformation. Ce guide vous montrera comment convertir rapidement et facilement votre tableau croisé en un format de liste plus gérable dans Excel.
- Convertir un tableau croisé en liste dans Excel avec VBA
- Convertir un tableau croisé en liste dans Excel avec Kutools for Excel
Tableau croisé (avec en-têtes de lignes et en-têtes de colonnes) | Un tableau de liste (tableau unidimensionnel) |
Convertir un tableau croisé en liste dans Excel avec VBA
La macro VBA suivante peut vous aider à convertir rapidement tous les tableaux croisés des feuilles de calcul actives en listes plates.
Étape 1: maintenez la touche autre + F11 clés dans Excel et il ouvre la fenêtre Microsoft Visual Basic pour Applications.
Étape 2: cliquez sur insérer > Moduleet collez la macro suivante dans la fenêtre Module.
Le tableau croisé VBA sur transpose pour lister:
Sub ConvertTableToList()
'Updated by Extendoffice 2024/07/15
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
Étape 3: cliquez sur le F5 clé pour exécuter cette macro.
Ensuite, vous verrez la liste convertie s'afficher comme la capture d'écran suivante :
- Cette macro VBA perd certaines données de la table d'origine, telles que les en-têtes ou autres. Dans ce cas, les en-têtes (Nom, Grade et Classe) sont perdus.
- Vous pouvez modifier As String = "A" pour répondre à vos besoins. Par exemple, si le tableau croisé est indiqué dans la colonne E, vous devez plutôt « E » au lieu de « A ».
- Et s'il y a d'autres données dans la feuille de calcul, les données de la liste seront parfois erronées après la conversion d'un tableau croisé.
Convertir des tableaux croisés en listes dans Excel avec Kutools for Excel
Si vous avez Kutools for Excel installé, vous pouvez utiliser son Transposer les dimensions de la table outil pour convertir rapidement des tableaux croisés en listes plates.
Étape 1 : Sélectionnez le tableau que vous allez convertir en liste.
Étape 2: cliquez sur le Kutools >Catégorie > Transposer la dimension de la table. Voir la capture d'écran suivante:
Étape 3: dans le Transposer les dimensions de la table boîte de dialogue, vérifiez le Croiser le tableau vers la liste et sélectionnez l'option Gamme de résultats en cliquant sur le .
Étape 4: cliquez sur le OK .
Ensuite, vous verrez la table d'origine est convertie en une liste plate comme capture d'écran suivante:
Transposer les dimensions de la table peut également convertir la liste en tableau croisé. Pour plus d'informations, veuillez vous rendre sur Transposer les dimensions de la table.
Articles relatifs:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!