Comment transposer facilement et rapidement une plage de données pour la convertir en une colonne empilée dans Excel ?
Par exemple, certaines données sont organisées par groupes, et je souhaite désormais transposer la plage pour empiler les données de chaque colonne, comme le montre la capture d’écran ci-dessous. Dans cet article, je vous présente les méthodes permettant d’accomplir cette tâche dans Excel.
Transposer et empiler des données avec VBA
Transposer et empiler des données avec la fonction Transposer le tableau Dimension Transposer le tableau de Kutools 
Transposer et empiler des données avec VBA
Vous pouvez utiliser un code VBA pour transposer et empiler vos données.
1. Sélectionnez les données à l’exception des en-têtes de colonne, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans le Module.
VBA : Transposer et empiler des données
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
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
3. Appuyez sur la touche F5 et les données seront automatiquement transposées et empilées. Voir la capture d’écran :
Remarque : Dans le code VBA, « A » indique que les données transposées doivent être placées dans la colonne A de la feuille de calcul active, remplaçant ainsi les données d’origine situées dans cette même colonne.
Transposer et empiler des données avec la fonction Transposer le tableau Dimension Transposer le tableau de Kutools
Si vous souhaitez transposer et empiler rapidement et facilement une plage de données sans utiliser de code VBA, utilisez l’utilitaire Kutools pour Excel : Transposer le tableau en dimension.
1. Sélectionnez les données à utiliser, puis cliquez sur Kutools > Plage > Convertir la dimension du tableau. Voir la capture d’écran :
2. Dans la boîte de dialogue, cochez l’option Convertir un tableau bidimensionnel en un tableau unidimensionnel, puis sélectionnez une cellule dans laquelle vous souhaitez insérer les données transposées dans le champ Plage de résultats (cellule unique). Voir la capture d’écran :
3. Cliquez sur OK. La plage est désormais transposée et empilée en colonnes.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Démo : Transposer une plage et empiler des données avec la fonction Transposer le tableau Dimension Transposer le tableau de Kutools
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels