Comment transposer toutes les 5 lignes (ou n lignes) d’une colonne en plusieurs colonnes ?
Transposer toutes les 5 lignes (ou *n* lignes) d’une seule colonne vers plusieurs colonnes dans Excel s’avère particulièrement utile pour réorganiser efficacement vos données en vue de leur analyse ou de la génération de rapports. Imaginons que vous disposiez d’une longue liste de données dans la colonne A et que vous souhaitiez désormais transposer chaque bloc de 5 lignes vers des lignes horizontales : par exemple, transformer A1:A5 en C6:G6, A6:A10 en C7:G7, et ainsi de suite, comme le montre la capture d’écran ci-contre. Plusieurs méthodes permettent d’accomplir cette tâche, chacune offrant ses propres avantages. Découvrons ensemble un guide détaillé, étape par étape, pour réaliser cette opération avec précision.
Transposer toutes les 5 lignes (ou n lignes) d’une colonne vers plusieurs colonnes
Transposer toutes les 5 lignes (ou n lignes) d’une colonne vers plusieurs colonnes à l’aide d’une formule
Dans Excel, vous pouvez utiliser la formule suivante pour transposer toutes les n lignes d’une colonne en plusieurs colonnes. Voici la marche à suivre :
1. Saisissez la formule suivante dans une cellule vide pour afficher le résultat.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. Ensuite, faites glisser la poignée de recopie vers la droite sur cinq cellules, puis continuez à la faire glisser vers le bas jusqu’à l’affichage de la valeur 0. Consultez la capture d’écran :
Transposer toutes les 5 lignes (ou n lignes) d’une colonne vers plusieurs colonnes avec Kutools pour Excel
Êtes-vous frustré(e) par la transposition de données Excel d’une colonne vers plusieurs colonnes ? La fonction « Kutools pour Excel » de « Transformer la plage » est là pour résoudre vos problèmes ! Que vous ayez besoin de transposer toutes les 5 lignes ou un nombre personnalisé de lignes, nous avons pensé à tout. La conversion flexible des lignes vous permet de choisir librement le nombre de lignes à transposer d’une colonne vers plusieurs colonnes. C’est simple et rapide, sans opérations complexes — quelques clics suffisent pour obtenir le résultat souhaité.
Après avoir installé « Kutools pour Excel », procédez comme suit :
1. Sélectionnez les données de la colonne, puis cliquez sur « Kutools » > « Plage » > « Transformer la plage ». Voir la capture d’écran :
2. Dans la boîte de dialogue « Transformer la plage », sélectionnez l’option « Une seule colonne vers une plage » sous « Type de transformation », cochez ensuite « Valeur fixe » sous « Lignes par enregistrement », puis saisissez le nombre de colonnes souhaité pour la transposition dans le champ « Valeur fixe ». Consultez la capture d’écran :
3. Cliquez ensuite sur le bouton « OK ». Dans la fenêtre qui s’ouvre, veuillez sélectionner une cellule pour y afficher le résultat. Consultez la capture d’écran :
4. Cliquez ensuite sur le bouton « OK » : vos données en colonne sont alors transposées toutes les 5 lignes, comme illustré dans la capture d’écran suivante :
Transposer toutes les 5 lignes (ou n lignes) d’une colonne vers plusieurs colonnes à l’aide de code VBA
Si vous ne parvenez pas à appliquer correctement la formule, le code VBA ci-dessous peut également vous venir en aide.
1. Maintenez enfoncées les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.
Code VBA : Transposer toutes les 5 lignes (ou n lignes) d’une colonne vers plusieurs colonnes :
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Après avoir collé le code, appuyez sur la touche « F5 » pour l’exécuter. Une boîte de dialogue s’ouvrira afin que vous puissiez sélectionner la colonne à transposer. Consultez la capture d’écran :
4. Cliquez ensuite sur « OK », puis, dans la fenêtre qui s’ouvre, sélectionnez la cellule où vous souhaitez insérer le résultat. Consultez la capture d’écran :
5. Cliquez sur « OK » et les données de la colonne seront converties en cinq colonnes, comme vous le souhaitez. Consultez la capture d’écran :
Pour transposer toutes les 5 lignes (ou n lignes) d’une colonne en plusieurs colonnes dans Excel, cet article présente trois méthodes efficaces. Chacune propose une approche différente pour réorganiser vos données, adaptée à votre niveau de maîtrise d’Excel et de la programmation. Envie de découvrir encore plus d’astuces et de conseils Excel ? Notre site web regorge de milliers de tutoriels !
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