Copier Bloc de lignes et coller dans autre feuille transposé

[DL_13]

Bonjour,

Je suis confronté à une colle dont je n'arrive pas a me dépatouiller

Le problème:

Feuil1:
30000 lignes par bloc de 39 cellules à copier et coller dans la feuil2 à la première cellule vide de la Colonne A transposé

CAD
Premier Bloc:
Ligne 1 à la ligne 39 de la feuille 1 à copier
et à coller à la ligne 2 de la Feuille 2

Deuxième Bloc:
Ligne 40 à la ligne 78 de la feuille 1 à copier
et à coller à la ligne 3 de la Feuille 2

Troisième Bloc:
Ligne 79 à la ligne 117 de la feuille 1 à copier
et à coller à la ligne 4 de la Feuille 2

Etc...etc

Un fichier est joint pour une meilleur visualisation

Merci pour toute l'aide que vous m'accorderez

Bonne Journée

 

[Staple1600]

Re : Copier Bloc de lignes et coller dans autre feuille transposé

Bonjour le fil

La macro ci-dessous devrait de dépatouiller

Sub a()
Dim i&
For i=1 to [A65536].End(xlup).Row Step 39
Feuil2.[A65536].End(xlUp)(2).Resize(,39)=Application.Transpose(Cells(i,1).Resize(39))
Next
End Sub

PS: test OK chez moi

 

[laetitia90]

Re : Copier Bloc de lignes et coller dans autre feuille transposé

bonjour DL_13,Jean marie 🙂🙂
j'ai regardais ce post je savais pas par quel "bout" le prendre🙁🙁
que dire de ton post... simple , court , rapide , efficace .bravo🙂🙂

 

[Staple1600]

Re : Copier Bloc de lignes et coller dans autre feuille transposé

Bonsoir Leti

Merci pour le bravo.

J'espère simplement que DL_13 ne voulait récupérer les couleurs lors de la transposition 😉

 

[DL_13]

Re : Copier Bloc de lignes et coller dans autre feuille transposé

Bonjour, le Fil 🙂

Merci Jean Marie pour ces quelques lignes de codes 🙂

C'est exactement cela Lætitia 🙂

je savais pas par quel "bout" le prendre

c'est pourquoi j'ai fait appel à vous

J'espère simplement que DL_13 ne voulait récupérer les couleurs lors de la transposition😀

Non Staple 😀 les couleurs c'est pour que ce soit le plus compréhensif possible

Merci pour ce dépatouillage express

Bonne Journée