transposé ligne en colonne

[roro69]

bonjour
Voici mon souci dans 2 colonne excel j'ai des données rangés comme ceci:

COLONNEA COLONNE B
47 /// 128
47 /// 130
48 /// 140
48 /// 150
49 /// 151
49 /// 165
Ect.......

Voici le résultat que je souhaiterais :

COLONNE A COLONNE B COLONNE C
47 128 130
48 140 150
Ect..............

Merci de votre aide et du temps consacré

 

[Yaloo]

Re : transposé ligne en colonne

Bonsoir roro,

Avec cette macro

Sub Transposé()
Dim i&, l&, c&
For i = 1 To [A65536].End(3).Row
  If Not IsError(Application.Match(Cells(i, 1), Columns(5), 0)) Then
    l = Application.Match(Cells(i, 1), Columns(5), 0)
    c = Cells(l, 255).End(1).Column + 1
    Cells(l, c) = Cells(i, 2)
   Else
    l = [E65536].End(3)(2).Row
    Cells(l, 5).Resize(, 2) = Cells(i, 1).Resize(, 2).Value
  End If
Next
End Sub

A+

Martial

 

[roro69]

Re : transposé ligne en colonne

Merci beaucoup
Exactement ce que je voulais