Comment transposer des cellules de gauche à droite dans Excel ?

Lorsque nous saisissons des valeurs dans une feuille Excel, nous les tapons généralement de gauche à droite. Cependant, dans certains cas, vous pourriez vouloir transposer des cellules de gauche à droite, comme le montre la capture d'écran ci-dessous. Il n'y a pas de fonctionnalité intégrée dans Excel qui peut vous aider à résoudre cela rapidement, mais dans cet article, je vais vous montrer quelques astuces pour vous y aider.

Transposer des cellules de gauche à droite avec VBA

Transposer des cellules de gauche à droite ou de haut en bas avec Kutools pour Excel

Transposer des cellules de gauche à droite avec VBA

Pour transposer rapidement des cellules de gauche à droite sans formules, vous pouvez utiliser un code VBA.

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script vide.

VBA : Transposer de gauche à droite

Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
  Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
  Dim strTemp As String
 
  On Error Resume Next
    strTemp = Application.InputBox _
    (Prompt:="Enter the column you want to transpose with comma separate", _
    Title:="Kutools For Excel", Type:=2)
    For i = Len(strTemp) To 1 Step -1
       NewOrder = NewOrder + Mid(strTemp, i, 1)
    Next i

  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
            SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Letters = Split(NewOrder, ",")
  ReDim NewLetters(1 To UBound(Letters) + 1)
  Application.ScreenUpdating = False
  For xLng = 0 To UBound(Letters)
    NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
  Next
  Application.ScreenUpdating = True
  Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
  Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub

3. Appuyez sur F5 pour exécuter le code. Une boîte de dialogue apparaît pour vous permettre de saisir les lettres des colonnes que vous souhaitez transposer. Séparez ces lettres de colonnes par des virgules, comme le montre la capture d'écran ci-dessous.

4. Cliquez sur OK. Maintenant, la sélection a été transposée de gauche à droite.

Transposer des cellules de gauche à droite ou de haut en bas avec Kutools pour Excel

Si vous avez installé Kutools pour Excel, vous pouvez rapidement transposer des cellules de gauche à droite ou de haut en bas avec les utilitaires Inverser la plage horizontalement et Inverser la plage verticalement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit : (Téléchargement gratuit de Kutools pour Excel maintenant !)

Sélectionnez les cellules que vous souhaitez transposer de gauche à droite ou de haut en bas, puis cliquez sur Kutools > Plage > Inverser la plage horizontalement/Inverser la plage verticalement > Tout ou Inverser uniquement les valeurs. Voir les captures d'écran :

Inverser la plage horizontale > Tout :

Inverser horizontalement > Inverser uniquement les valeurs :

Inverser la plage verticale > Tout :	Inverser la plage verticale > Inverser uniquement les valeurs :

Démo : Transposer des cellules de gauche à droite ou de haut en bas avec Kutools pour Excel

Vous pourriez être intéressé par :

• Comment transposer une référence lors du remplissage automatique vers le bas/droite dans Excel ?
• Comment transposer et lier des valeurs dans Excel ?