Trasposer et classer des données

Bonjour

J'ai fait un tableau avec les références de moules et les objets qui sont fabriqués dans ce moule.

Comme il y a désormais de plus en plus de moule, je dois faire un nouveau tableau avec les références des objets par ordre alphabétiques et le numéro du moule dans lequel l'objet se trouve.

J'ai essayé transposer, mais cela ne suffit pas car les objets ne sont pas classés par ordre alphabétique.

Avez vous une solution ?? sans devoir reprendre toute ma saisie.

Je n'ai pas su trouver sur le forum réponse à mon problème

merci

Bonjour.

Sub Demo1()
With Feuil1.Cells(1).CurrentRegion
    ReDim TR$(1 To Application.CountA(.Offset(, 1)), 1 To 2)
    VA = .Value
End With

For R& = 1 To UBound(VA)
    For C& = 2 To UBound(VA, 2)
        If VA(R, C) > "" Then
                  L& = L& + 1
            TR(L, 1) = VA(R, C)
            TR(L, 2) = VA(R, 1)
        End If
    Next C
Next R

With Feuil1.Cells(18).Resize(L, 2)
    .HorizontalAlignment = xlCenter
    .Value = TR
    .Sort .Cells(1), Header:=xlYes
End With
End Sub

Bonjour,

Marc merci de ta réponse trés rapide.

Je suis désolée, mais ma version d'Excel 2010 ne me permet pas d'utiliser ta formule, j'ai en effet un Excel stater 2010.

Existe t-il un autre possibilité ??

Merci

Corrige alors dans ta fiche ta version d'Excel !

Essayer alors par petit bout notamment avec la fonction de feuille de calculs TRANSPOSE

puis une fois la liste complète utiliser la fonctionnalité de tri …

Merci de ta réponse,

j'ai modifié mon profil, je vais essayer