[Excel 03-VBA] Transposition Verticale
Résolu/Fermé
nilsys
Messages postés
2
Date d'inscription
jeudi 15 avril 2010
Statut
Membre
Dernière intervention
15 avril 2010
-
15 avril 2010 à 16:40
nilsys Messages postés 2 Date d'inscription jeudi 15 avril 2010 Statut Membre Dernière intervention 15 avril 2010 - 15 avril 2010 à 17:23
nilsys Messages postés 2 Date d'inscription jeudi 15 avril 2010 Statut Membre Dernière intervention 15 avril 2010 - 15 avril 2010 à 17:23
A voir également:
- [Excel 03-VBA] Transposition Verticale
- Liste déroulante excel - Guide
- Si et excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
15 avril 2010 à 17:13
15 avril 2010 à 17:13
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
15 avril 2010 à 17:23
superbe, une réponse 1/2h après et en plus c'est exactement ce que je voulais !