Transposition

[anber]

Bonsoir le Forum,
Comment faire une transposition multi lignes en VBA, le pas est constant
J'ai
A
A
A
B
B
B
C
C
C
Je veux obtenir
AAA
BBB
CCC

Merci

 

[anber]

Re : Transposition

J'ai fini par trouver


Sub test()

Dim a As Worksheet, b As Worksheet

Set a = Sheets("base")
Set b = Sheets("test")

Dim Src As Range, Dst As Range
Set Src = a.Range("A1"): Set Dst = b.Range("A1")
While Src.Value <> vbNullString
Dst.Resize(, 3) = Application.Transpose(Src.Resize(3))
Set Dst = Dst.Offset(1): Set Src = Src.Offset(3)
Wend
End Sub