Afficher dans une cellule toute valeur répondant à plusieurs conditions

Bonjour à tous,

J'espère que vous pourrez m'aider, je suis nouvelle sur le forum et je n'arrive pas à trouver la solution à mon problème.

Dans le fichier ci-joint, je souhaite afficher dans la partie "matrice de risque" la valeurs des cellules de la colonne A en fonction des valeurs sélectionnées dans les listes déroulantes des colonnes "Gravité" et "Probabilité".

Par exemple, je souhaite afficher en J3, toutes les valeurs de la colonne A correspondant aux conditions suivantes:

• valeur de la colonne D= "catastrophique"
• valeur de la colonne E= "improbable"

Ici, la réponse serait R1 et R6.

Je vous remercie par avance! :)

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Option Explicit

Dim tablo, tabloM
Dim i&, iM&, jM&, d$

Sub Report()

    tablo = Range("A3:E" & Range("E" & Rows.Count).End(xlUp).Row)
    Range("J3:M6").ClearContents
    tabloM = Range("I3:M7")

    For iM = 1 To UBound(tabloM, 1) - 1
        For jM = 2 To UBound(tabloM, 2)
            For i = 1 To UBound(tablo, 1)
                'For j = 4 To 5
                    If UCase(tablo(i, 4)) = UCase(tabloM(iM, 1)) And UCase(tablo(i, 5)) = UCase(tabloM(UBound(tabloM, 1), jM)) Then
                        d = IIf(tabloM(iM, jM) = "", "", " ")
                        tabloM(iM, jM) = tabloM(iM, jM) & d & tablo(i, 1)
                    End If
                'Next j
            Next i
        Next jM
    Next iM
    Range("I3").Resize(UBound(tabloM, 1), UBound(tabloM, 2)) = tabloM
End Sub

Bye !

Merci beaucoup GMB! c'est exactement ce que je souhaitais faire !