Transpose Multiple Columns to Single Row

Bonjour,

http://cjoint.com/?ceuKijO3RV

=SI(INDEX(mytable;EQUIV($A1;INDEX(mytable;;1);0)+1;1)=$A1;INDEX(mytable;EQUIV($A1;INDEX(mytable;;1);0)+1;2);"")

Solution VBA:

Sub cree1Ligne()
'Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Header:=xlYes 'tri
Range("a1").Select
ligne = 1
Do While ActiveCell <> ""
matricule = ActiveCell
Sheets("Sheet2").Cells(ligne, 1) = ActiveCell
c = 2
Do While ActiveCell = matricule
Sheets("Sheet2").Cells(ligne, c) = ActiveCell.Offset(0, 1)
Sheets("Sheet2").Cells(ligne, c + 1) = ActiveCell.Offset(0, 2)
Sheets("Sheet2").Cells(ligne, c + 2) = ActiveCell.Offset(0, 3)
c = c + 3
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub

JB

Everyone,

Thank you for all your help. You have made a daunting and highly
manual task easy. Also, your explanations were elementary enough for
my simple mind to wrap around.

Cheers!

Whicks

You're welcome !
Thanks for posting back ..
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"whicks" <whicks@kpmg.com> wrote in message
news:1139241021.187340.306360@z14g2000cwz.googlegroups.com...
> Everyone,
>
> Thank you for all your help. You have made a daunting and highly
> manual task easy. Also, your explanations were elementary enough for
> my simple mind to wrap around.
>
> Cheers!
>
> Whicks
>