Cmt afficher des valeurs liées à la suite dans une cellule

Bonjour à tous,

Comme beaucoup sur ce forum j'ai un soucis avec excel, je pense que mon problème peut être résolu avec une simple formule mais malheureusement je n'y arrive toujours pas.

Je souhaiterai afficher des valeurs liées à la suite dans une même cellule :

• j'ai une première colonne A avec des noms de fournisseurs
• une seconde colonne B avec le nom de la division à laquelle appartient ce fournisseur

Des fournisseurs peuvent appartenir à plusieurs divisions différentes , et ont donc plusieurs lignes

Dans une troisième colonne je souhaiterai avoir la liste des divisions du fournisseur séparées par une virgule. Il n'y aurait donc plus qu'une ligne par fournisseur .

Je dois trier une liste de plus 15000 fournisseurs , je ne peux donc pas le faire manuellement.

Vous pouvez trouver en pièce jointe un modèle du problème.

J'espère que vous pourrez m'aider et m'éviter de passer le weekend de paques sur ce problème

Merci beaucoup et bon weekend !

Sofia

Bonsoir,

A essayer :

Sub Lister()
    Dim i&, j&, k%, dv()
    ReDim dv(10): i = 2: j = 0
    With ActiveSheet
        Do
            On Error GoTo errdim
            dv(j) = .Cells(i, 2).Value
            On Error GoTo 0
            If j > 0 Then
                If dv(j) = dv(j - 1) Then
                    dv(j) = Empty
                Else
                    j = j + 1
                End If
            Else
                j = j + 1
            End If
            If .Cells(i + 1, 1).Value <> .Cells(i, 1).Value Then
                ReDim Preserve dv(j - 1)
                .Cells(i, 3).Value = Join(dv, ",")
                ReDim dv(10): j = 0
            End If
            i = i + 1
        Loop While .Cells(i, 1).Value <> ""
    End With
    Exit Sub
errdim:
    If Err.Number = 9 Then
        ReDim Preserve dv(UBound(dv) + 10)
        Resume
    Else
        MsgBox "Erreur d'exécution : " & Err.Number & ". Régler ce problème et " _
         & "recommencer.", vbInformation, "Erreur"
    End If
End Sub

Hey!

La macro marche très bien, merci beaucoup pour votre aide !!

Joyeux Lundi de Pâques

Merci pour le retour.

Toi de même.