Comment fractionner une longue colonne en plusieurs colonnes dans Excel ?
Fractionner une longue colonne en plusieurs colonnes à l’aide de VBA
Fractionner une longue colonne en plusieurs colonnes avec Kutools pour Excel
Fractionner une longue colonne en plusieurs colonnes à l’aide de VBA
1. Appuyez sur Alt + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis copiez le code VBA suivant dans la fenêtre qui s’ouvre.
VBA : fractionner une longue colonne en plusieurs colonnes.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Cliquez sur le bouton Exécuter ou appuyez sur la touche F5 pour exécuter la macro VBA. Une boîte de dialogue s’ouvre afin que vous puissiez sélectionner votre liste de données. Cliquez ensuite sur OK pour indiquer, dans la boîte de dialogue suivante, le nombre de lignes souhaité par colonne, puis cliquez sur OK et choisissez une cellule où afficher le résultat. Consultez les captures d’écran :
 |
 |
 |
|
 |
4. Cliquez sur OK, puis vous verrez la longue colonne fractionnée en plusieurs colonnes, chacune contenant 15 cellules.
Fractionner une longue colonne en plusieurs colonnes avec Kutools pour Excel
Certains d’entre vous n’aiment peut-être pas utiliser du code VBA. Heureusement, vous pouvez utiliser l’utilitaire Transformer la plage de Kutools pour Excel pour convertir rapidement et facilement une longue colonne en un nombre fixe de colonnes.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez les données de la colonne que vous souhaitez fractionner, puis cliquez sur Kutools > Plage > Transformer la plage. Voir la capture d’écran :
2. Dans la boîte de dialogue qui s’ouvre, cochez l’option Une seule colonne vers une plage, puis sélectionnez l’option Valeur fixe et saisissez le nombre de colonnes souhaité dans la zone de texte. Voir la capture d’écran :
3. Cliquez sur OK et sélectionnez une seule cellule pour afficher la boîte de dialogue « Diviser les données ». Voir la capture d’écran :
4. Cliquez sur OK pour terminer les opérations. Les données de la longue colonne ont désormais été réparties en trois colonnes.
Est-ce plus simple que le code VBA ? Grâce à l’utilitaire Transformer la plage, transformez une ligne en plage, une plage en ligne ou en une seule colonne — facilement et en un clic !
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