[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
A voir également:
- [Excel 03-VBA] Transposition Verticale
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour,
a essayer (restitution en feuil2)
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
superbe, une réponse 1/2h après et en plus c'est exactement ce que je voulais !