Transposer des lignes en colonne par groupe de 6

Bonsoir,

J'ai besoin d'un macro ou solution VBA qui m'aide à transposer des lignes en colonne par bloc de 6. J'aurais des dizaines de milliers de lignes, voir fichier en pièce jointe

Et aussi en bonus j'aimerais une solution qui me colore les lignes toute les 6 lignes sa serait TOP !

Merci

Julien

sans VBA

Salut Naruto-du69,

Salut Steelson,

une version VBA de 50000 lignes avec encadrements et blocs couleur alternes de 6 lignes.

La macro de traitement se lance par un petit bouton rouge!

A adapter en fonction de tes besoins!

Private Sub cmdGO_Click()
'
Dim tTab
Dim tTab1()
'
Dim iRow As Long
Dim iTemp As Long
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
tTab = Range("A2:A" & iRow)
iFlag = Int((iRow - 1) / 6) + 1
ReDim tTab1(iFlag, 5)
'
iTemp = 0
For x = 1 To iFlag
    For y = 1 To 6
        iTemp = iTemp + 1
        If iTemp <= iRow - 1 Then
            tTab1(x - 1, y - 1) = tTab(iTemp, 1)
        End If
    Next
Next
Range("B2:G" & iFlag + 1) = tTab1
Range("B2:G" & iFlag + 1).BorderAround LineStyle:=xlContinuous
For x = 2 To iFlag + 1 Step 12
    Range("B" & x & ":G" & x + 5).Interior.Color = RGB(215, 215, 215)
    Range("B" & x & ":G" & x + 5).BorderAround LineStyle:=xlContinuous
Next
'
End Sub

Bon travail!

A+