[Excel 03-VBA] Transposition Verticale
Résolu
nilsys
Messages postés
2
Statut
Membre
-
nilsys Messages postés 2 Statut Membre -
nilsys Messages postés 2 Statut Membre -
Bonjour,
Je souhaiterai automatiser en VBA par transposition d'horizontale en verticale les 3 premières cellules des données ci-jointes (jusqu'à ce que la première cellule de la ligne soit vide).
A B E T G H E
1 2 3 K M I C
A3 TY OP Z P Z
le résultat
A
B
E
1
2
3
A3
TY
OP
Merci d'avance
Je souhaiterai automatiser en VBA par transposition d'horizontale en verticale les 3 premières cellules des données ci-jointes (jusqu'à ce que la première cellule de la ligne soit vide).
A B E T G H E
1 2 3 K M I C
A3 TY OP Z P Z
le résultat
A
B
E
1
2
3
A3
TY
OP
Merci d'avance
1 réponse
-
Bonjour,
a essayer (restitution en feuil2)Sub tranposer() Dim tablo, cptr_y as long,cptr_x as byte, cptr_t as long, derlig as long ReDim tablo(0) derlig = Sheets(1).Range("A65536").End(xlUp).Row For cptr_y = 1 To derlig For cptr_x = 1 To 3 tablo(cptr_t) = Cells(cptr_y, cptr_x) cptr_t = cptr_t + 1 ReDim Preserve tablo(cptr_t) Next Next Sheets(2).Range("A1").Resize(cptr_t, 1) = Application.Transpose(tablo) end sub
