Transposition

Bonjour

je cherche une formule (ou un moyen) pour transposer des références qui se trouvent dans une colonne, dans une ligne en respectant leurs corrélations.

exemple:

j'ai une colonne de références comme celle ci

10300-12

10300-13

10300-14

22500-11

22500-12

32500-11

32500-15

85800-10

85800-16

et je voudrais quelles soient présenter en ligne comme ceci:

10300-12 10300-13 10300-14

22500-11 22500-12

32500-11 32500-15

85800-10 85800-16

bien sur je travail avec un nombres très grand de référence ce qui deviens laborieux a faire manuellement.

si il existe un sauveur sur ce forum je lui serais grès.

cordialement

Philippe

Je suppose que tes données sont dans la colonne A de ta feuille Feuil1 et qu'une feuille Feuil2 existe.

Sub toto()
    Dim k As Integer, j As Integer
    With Sheets("Feuil1")
        k = 1
        j = 1
        On Error GoTo fin
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If Split(.Cells(i, 1), "-")(0) = Split(.Cells(i + 1, 1), "-")(0) Then
                Sheets("Feuil2").Cells(k, j) = .Cells(i, 1)
                j = j + 1
            Else
                Sheets("Feuil2").Cells(k, j) = .Cells(i, 1)
                j = 1
                k = k + 1
            End If
        Next i
fin:
        Sheets("Feuil2").Cells(k, j) = .Cells(i, 1)
    End With
End Sub

Bonsoir

Comme je l'ai préparée, une solution par formules.

Amicalement

Nad

Bonjour Nad

merci pour ton fichier

par contre il ne fonctionne que jusqu'a le ligne 9 du tableau de la feuille 2 aprés il n'affiche plus rien ( bien sur j'ai renseigné la feuille 1 comme il fallait)

merci

cordialement

Philippe

Bonjour EngueEngue

Merci pour ta macro elle fonctionne bien et va bien m'aider

Merci mille fois

Philippe

Bonjour

Essaye avec ce fichier :

Amicalement

Nad

Bonjour Nad

merci pour la correction cela fonctionne très bien

merci mille fois

a bientôt

Philippe