Comment transposer rapidement une liste d’adresses de lignes en colonnes dans Excel ?
Par exemple, vous disposez d’une liste unique comprenant des noms et des adresses, et vous souhaitez la transformer en colonnes, comme le montre la capture d’écran ci-dessous. Excel ne propose pas de fonction intégrée à cette fin, mais cet article vous présente plusieurs méthodes rapides pour y parvenir.
Transposer Liste d'adresses à l’aide de VBA
Transposer Liste d'adresses à l’aide de Kutools pour Excel
Transposer Liste d'adresses à l’aide de VBA
Pour transposer la liste d’adresses de lignes en colonnes, vous pouvez utiliser un code VBA.
1. Ouvrez la feuille contenant les données que vous souhaitez transposer, 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 macro ci-dessous dans le Module. Voir la capture d’écran :
VBA : Transposer Liste d'adresses
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue s’ouvre alors afin que vous puissiez sélectionner la plage de données à utiliser. Voir la capture d’écran :
4. Cliquez sur OK, puis, dans la boîte de dialogue suivante, sélectionnez une cellule où placer le résultat transposé. Voir la capture d’écran :
5. Cliquez sur OK. La liste unique a désormais été transposée en colonnes.
Transposer Liste d'adresses à l’aide de Kutools pour Excel
Si vous disposez de Kutools pour Excel, vous pouvez utiliser la fonctionnalité Transformer la plage pour transposer rapidement une liste d’adresses en colonnes.
1. Sélectionnez les données que vous souhaitez transposer, 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 dans la section Type de transformation, puis sélectionnez l’option Valeur fixe et saisissez le nombre souhaité dans la zone de texte située à droite. Voir la capture d’écran :
3. Cliquez sur Ok, puis sélectionnez la cellule dans laquelle vous souhaitez insérer le résultat transposé. Voir la capture d’écran :
4. Cliquez sur OK. Les listes d’adresses ont été transposées.
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 Liste d'adresses à l’aide de Kutools pour Excel
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