[Résolu] Passez des données d'une collone à plusieur lignes

[cilieff]

Bonjour,

Je souhaite passer une collonne de données en lignes de 7 case, je donne un exmple pour me faire comprendre :

21020002
21020402
21020404
21020406
21020407
21020412
21020414
21020416
21020417
21020422
21020424
21020426
21020427
21020432
21021394
21021396
21021401
21021402
21021403
21021422
21021423


à


21020002 21020402 21020404 21020406 21020407 21020412 21020414
21020416 21020417 21020422 21020424 21020426 21020427 21020432
21021394 21021396 21021401 21021402 21021403 21021422 21021423

Je pensai utiliser la fonction TRANSPOSE est-ce possible ?

Merci beaucoup,

Charles

 

[Dull]

Re : Passez des données d'une collone à plusieur lignes

Salut cilieff et Bienvenue, le Forum

Un essai en VBA tiré d'un code de Staple 🙂 ici

Option Explicit

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

Bonne Journée

 

[cilieff]

Re : Passez des données d'une collone à plusieur lignes

Ca c'est cool tu viens de m'épargner beaucoup de boulot rebarbatif!

Merci