Liste Gestionnaires/Fournisseurs

Question

Encore une fois je requiers votre aide pour quelque chose qui paraît évident au départ mais je n'y arrive pas ... Je pense que le sujet existe déjà mais je ne sais, pour le moment, pas quoi rentrer sur google pour obtenir la réponse que je souhaite désolé ... Je voudrais à partir d'une base de données obtenir une liste de personnes avec leur fournisseurs correspondant. Le mieux est de voir le fichier ci-joint qui sera plus explicite. Je vous remercie de votre aide. Cordialement...

MFerrand · Accepted Answer

Changement de méthode : pas de formule, une procédure va constituer les listes par gestionnaire à partir de la Base (sur 2 colonnes : Fournisseurs/Gestionnaires, données commençant ligne 2). Il convient d'adapter si les éléments diffèrent. La proc. doit être lancée la Base étant la feuille active, et une feuille Listes doit exister pour y consigner les résultats.

Sub ListerFournisseursParGestionnaire()
    Dim d As Object, k, itm, n&, i&
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            k = .Cells(i, 2)
            d(k) = d(k) & ";" & .Cells(i, 1)
        Next i
    End With
    With Worksheets("Listes")
        .UsedRange.Clear
        If d.exists("") Then
            itm = Split("Sans gest." & d(""), ";")
            .Cells(1, 1).Resize(UBound(itm) + 1).Value = WorksheetFunction.Transpose(itm)
            d.Remove (""): n = 1
        Else
            n = 0
        End If
        For Each k In d.keys
            itm = Split(k & d(k), ";")
            n = n + 1
            .Cells(1, n).Resize(UBound(itm) + 1).Value = WorksheetFunction.Transpose(itm)
        Next k
        .Activate
    End With
End Sub

La proc. tient compte de fournisseurs sans gestionnaire (cellule gestionnaire vide), elle en fait une liste, s'il y a lieu, intitulée "Sans gest." à la place du nom, et placée en col. A.

Cordialement.

145picklerick-liste-test.xlsx (10.93 Ko)

mbbp · Answer

=SI(LIGNE()-1&gt;NB.SI('Base de Données'!$B:$B;A$1);"";INDEX('Base de Données'!$A:$A;PETITE.VALEUR(SI('Base de Données'!$B:$B=A$1;LIGNE(A:A);"");LIGNE()-1))) A tirer vers la droite, puis vers le bas...

MFerrand · Answer

En Listes!A2 : =SIERREUR(INDEX('Base de Données'!$A$1:$A$7;PETITE.VALEUR(SI('Base de Données'!$B$2:$B$7=A$1;LIGNE('Base de Données'!$B$2:$B$7);"");LIGNE(1:1)));"") Matricielle (valider par Ctrl+Maj+Entrée) Tirer vers la droite, sur les 3 colonnes, puis vers le bas (nombre de lignes suffisant pour tout afficher : quand plus rien, la formule n'affiche plus...) Cordialement...

MFerrand · Answer

Si tu as un classeur déjà lourd et avec beaucoup de formules... il faudrait peut-être envisager (outre l'alléger) d'utiliser VBA pour faire tes récapitulations (sans formules)... Cordialement...