Microsoft 365 Liste de cellules avec condition

[Ananke]

Bonjour à tous,

Je cherche à générer des listes comme suit :

A partir de ce tableau...

J'ai besoin que ces listes soient dynamiques (et ordonnées en faisant apparaître en priorité les résultats de chaque ligne) et je ne sais pas bien comment m'y prendre...

Si quelqu'un a une idée... Je joins mon fichier.

Merci et bonne journée

 

[laurent3372]

Bonjour,
J'ai créé une fonction personnalisée qui renvoie une matrice.
Il faut la rentrer comme fonction matricielle (validée par Ctrl+Maj+Entrée) dans une matrice verticale de 56 lignes (comme le nombre total de cellules du tableau analysé).
Cordialement,
--
LR

 

[laurent3372]

Voici une nouvelle version, sans tableau intermédiaire (voir en bas de la feuille).
La fonction personnalisée est assez courte :

Public Function Gen_Liste(rngTab As Range, clé As Variant)
    Dim lig As Long, col As Long
    Dim i As Long                 'Indice dans le tableau result
    Dim result() As Variant
    ReDim result(1 To (rngTab.Rows.Count - 1) * (rngTab.Columns.Count - 1))
    For i = 1 To UBound(result): result(i) = "": Next i
    i = 0
    For lig = 2 To rngTab.Rows.Count
        For col = 2 To rngTab.Columns.Count
            If rngTab.Cells(lig, col).Value = clé Then
                i = i + 1
                result(i) = rngTab(1, col) & rngTab(lig, 1)
            End If
        Next col
    Next lig
    Gen_Liste = Application.Transpose(result)
End Function

 

[Ananke]

Merci Laurent, tes 2 solutions fonctionnent parfaitement.

Je laisse la conversation ouverte le temps de finir de les adapter à mon tableau entier.

As-tu une idée de comment j'aurais pu m'y prendre sans VBA ?

Bonne journée,

Edit : Ca marche nickel tel quel, merci encore

 

[laurent3372]

Bonjour,

Non, je ne vois pas comment s'y prendre sans VBA.

Cordialement,
--
LR