Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transposition d'un tableau par macro (lignes en colonnes)

W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Bonsoir le Forum,
Malgré quelques recherches je n'ai pas réussi à trouver le moyen de transposer par macro un bloc de cellules (titres à gauche) vers une autre zone de la même feuille (titres en haut).
...
Par appui sur mon bouton vert, les lignes de la première zone, après un tri en ordre croissant, devraient passer en colonnes dans la deuxième zone.
Pouvez-vous me venir en aide ?
Créer une fonction INVERSE ?
Ci-joint un fichier montrant une amorce de ce que je désire afficher dans la deuxième zone.
Le tableau D231 serait rangé en ordre croissant puis transposé en inversé à partir de la cellule E32.
Merci
Webperegrino
 

Pièces jointes

  • Macro transposition tableau.xls
    32 KB · Affichages: 174
Trier par date Trier par votes

Victor21

XLDnaute Barbatruc
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonsoir, webperegrino.

Si j'ai bien compris :
VB: 
Sub Macro1()
    Range("D2:AC27").Copy
    Range("E32").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
 
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonsoir Le Forum,
Bonsoir Victor21,
Je viens d'essayer le code transposé dans mon fichier original : C'EST PARFAIT.
Grand merci pour cette réponse très rapide.

Je pense pouvoir trouver moi-même la partie TRI ... dans le genre "For ligne =2 To 26, tri ordre croissant cellules E à AC, NEXT ligne ".
Bonne nuit,
Webperegrino
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonsoir

Sans passer par le copier/coller (mais aie on perd le format)

VB: 
Sub a()
Dim t: t = [D2:AC27]
With Application
    .ScreenUpdating = False
    [E32].Resize(UBound(t), UBound(t)) = .Transpose(t)
End With
End Sub
 
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonjour Le Forum,
Bonjour Victor21 [Patrick],
Bonjour Staple1600 [JM],

Merci pour cette deuxième solution.
Elle fonctionne tout aussi bien.
Celle de Patrick ne modifie pas le format non plus, mais cela n'a pas d'importance dans mon cas.

Il me reste une "ERREUR 1004" dans ma formultion ci-dessous.
Je vais fouiller dans mes notes ou sur le Forum pour trouver la bonne codification.

Merci à vous deux,
Et bien cordialement,
Webperegrino [Henri]

Private Sub CommandButton1_Click()
'Trier
For i = 2 To 27
Range("E & i:AC & i").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next

'reporter
'Dim t: t = [D2:AC27]
'With Application
' .ScreenUpdating = False
' [E32].Resize(UBound(t), UBound(t)) = .Transpose(t)
'End With
Range("D2:AC27").Copy
Range("E32").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
 
Vote positif 0 Vote négatif
L

laetitia90

XLDnaute Barbatruc
Re : Transposition d'un tableau par macro (lignes en colonnes)

bonjour Webperegrino,Victor21,Staple
si on veut garder le format,moins rapide que passer par un "tablo" mais pour si peu!!

Code: 
Sub es()
Application.ScreenUpdating = False
Range("d2:ac27").Copy
 With Sheets(1).Range("e32")
 .PasteSpecial Paste:=xlPasteFormulas, Transpose:=True
 .PasteSpecial Paste:=xlPasteFormats, Transpose:=True
 End With
Application.CutCopyMode = False
End Sub

ps : bravo staple pour le passage a 11kg
 
Dernière édition:
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Re : Transposition d'un tableau par macro (lignes en colonnes)

Le Forum,
Staple1600 et Laetitia90,
Merci

Je suis déjà satisfait mais je me bats encore avec la formulation du tri qui ne fonctionne pas bien [fichier ci-joint] :

'Trier
For i = 2 To 27
Range("E" & i & ":AC" & i).Select

Selection.Sort Key1:=Range("E" & i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
 

Pièces jointes

  • Macro_transposition_tableau(2).xls
    41 KB · Affichages: 188
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonjour Webperigrino, le fil

Histoire de saluer leti (et de jouer avec mes Endives )
VB: 
Sub esalut_L()
With Feuil1
    .[D2:AC27].Copy
    With .[E32]
        .PasteSpecial Paste:=-4123, Transpose:=True
        .PasteSpecial Paste:=-4122, Transpose:=True
    End With
End With
End Sub

edition: désolé pour la faute de frappe
 
Dernière édition:
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Re : Transposition d'un tableau par macro (lignes en colonnes)

Le Forum,
Staple1600, Laetitia90,

Je vois que vous vous amusez bien avec ma requête !

J'ai corrigé .[A2:AC27].Copy
... en .[D2:AC27].Copy

et c'est tout bon aussi... du moins pour la transposition du tableau non trié précédemment par lignes.

Merci car vous m'instruisez beaucoup avec votre sympathique joute excel-"downloadienne française" !Bonne continuation donc,
cordialement,
Webperegrino
 
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Re : Transposition d'un tableau par macro (lignes en colonnes)

Bonsoir Le Forum,
Chers amis,
Je viens vous donner ma solution : je viens de la trouver !
La macro ci-après fonctionne à merveille.
Merci encore pour votre soutien, principalement à Laetitia90, à Staple1600 et à Victo21.
A bientôt pour un autre défi sur le Forum,
Bien cordialement
Webperegrino

Sub TriBasGauche() 'tri liste b
Application.ScreenUpdating = False
'*** Tri des lignes ***
Dim i As Integer
For i = 2 To 31
Range(Cells(i, 5), Cells(i, 29)).Select
Selection.Sort Key1:=Cells(i, 5), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next i
'*** Transpose les lignes en colonnes ***
With Feuil8 'Feuille ListB - Staple1600
.[D2:AC31].Copy
With .[E33]
.PasteSpecial Paste:=-4123, Transpose:=True
.PasteSpecial Paste:=-4122, Transpose:=True
End With
End With

' Range("D2:AC31").Copy 'Merci Victor21
' Range("E33").PasteSpecial Paste:=xlPasteValues, Transpose:=True

'Dim t: t = [D2:AC31] 'Merci Staple1600
'With Application
' .ScreenUpdating = False
' [E33].Resize(UBound(t), UBound(t)) = .Transpose(t)
'End With

'Application.ScreenUpdating = False ' Merci Laetitia90
'Range("d2:ac31").Copy
' With Sheets(1).Range("e33")
' .PasteSpecial Paste:=xlPasteFormulas, Transpose:=True
' .PasteSpecial Paste:=xlPasteFormats, Transpose:=True
' End With
'Application.CutCopyMode = FalseRange("D1").Select
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
Microsoft 365 "transposition" de tableau
Réponses
3
Affichages
281
djidji59430
M
  • Question Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
349
job75
  • Résolu(e)
Microsoft 365 Powerquery - Total par Compte / lignes en insérant des colonnes
Réponses
5
Affichages
152
chris
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
536
Webperegrino
W
M
  • Question Question
Microsoft 365 interdire l'ajout et la suppression de lignes et de colonnes en vba
Réponses
9
Affichages
405
Eric C
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
461
Nel'
N
E
  • Question Question
Microsoft 365 Mettre code couleur quand un texte en dessous d'un autre
Réponses
3
Affichages
356
Erakmur
E
S
  • Résolu(e)
Microsoft 365 Excel recopier des données d'un tableau dans un autre onglet sans macro
Réponses
5
Affichages
772
Sissou71
S
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
550
crocrocro
C
  • Question Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
381
jeff1494
C
  • Question Question
Microsoft 365 Transposer des valeurs en 2 colonnes en fonction d'une référence produit
Réponses
9
Affichages
639
Cagnet
C
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
735
Alain 79
A
G
  • Question Question
XL 2019 Transformer des lignes en colonnes mais conserver la colonne 1 en colonne
Réponses
2
Affichages
384
gafp
G
I
  • Résolu(e)
Microsoft 365 Trier les colonnes d'un tableau de A à Z en VBA
Réponses
11
Affichages
773
iliess
I
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
430
Romain77144
R
Transposer en colonnes des blocs de données en lignes - via Macro
Réponses
0
Affichages
378
oguruma
O
  • Question Question
Power Query Convertir un tableau de colonnes en lignes avec plusieurs variables (power query)
Réponses
8
Affichages
781
oobiz
O
W
  • Question Question
XL 2016 Transfert de 2 colonnes sans formules et duplication des cellules selon le nbre de fois indiqué en colonne L
Réponses
9
Affichages
621
Webperegrino
W
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
663
Phil69970
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…