Cartographie opérationnel

Bonjour à tous,

Je souhaite réaliser automatiquement une cartographie de risques opérationnels à partir d'une liste de données en fonction de la probabilité d’occurrence et d'impact de ces risques.

Bonjour,

Une proposition

Sub aargh()
    i = 4
    Set ws1 = Sheets("impact")
    Set ws2 = Sheets("probabilité")
    Set ws3 = Sheets("cartographie")
    ws3.Range("E5:I9").ClearContents
    bi = 4
    bp = 4
    While ws1.Cells(i, 3) <> ""
        im = ws1.Cells(i, 4)
        Set re = ws2.Columns("B:B").Find(ws1.Cells(i, 3), lookat:=xlWhole)
        If Not re Is Nothing Then
            p = ws2.Cells(re.Row, 3)
            ws3.Cells(6 + bp - p, bi + im) = ws3.Cells(6 + bp - p, bi + im) & ws1.Cells(i, 3) & ";"
        Else
            MsgBox "probalité pour risque " & ws1.Cells(i, 3) & " non trouvée"
            Exit Sub
        End If
        i = i + 1
    Wend
End Sub