Matrice de prouty

Bonjour,

J'ai un soucis sur le remplissage automatisé d'une matrice de prouty. Celle-ci s'incrémente automatiquement grâce à des risques côtés en probabilité et impact.

La macro utilisée est la suivante :

Sub macro()

Set wsm = Sheets("matrice") 'feuille de destination

With Sheets("Risques majeurs") 'feuille source

dl = .Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To dl

x = .Cells(i, "C") 'probabilité

y = .Cells(i, "B") 'impact

wsm.Cells(12 - x, y + 3) = wsm.Cells(12 - x, y + 3) & .Cells(i, "A") & vbCrLf 'défini la matrice

Next i

MsgBox "La matrice est complétée"

End With

End Sub

Aujourd'hui, je veux aller à l'étape suivante qui est de remplir la matrice uniquement avec les risques (feuilles "risques majeurs") où il est noté "x".

Pour résumer :

• j'ai une matrice qui s'étale sur la plage suivante : D8:G11 "matrice"
• qui doit être remplie avec les données de la feuille "risques majeurs" (colonne B et C) uniquement si la colonne E renvoie "x"

Auriez-vous une idée ?

Merci beaucoup !

Simone

bonjour,

avec un fichier ce serait plus simple.

dans quelle colonne se trouvent les "x" ?

Les "x" se trouvent dans la feuille "risques majeurs" colonne E; en E1 = en-tête de colonne; en E2 = début des données.

Je préfère éviter de mettre le fichier sur internet...

bonjour

Je préfère éviter de mettre le fichier sur internet...

Sub macro()

    Set wsm = Sheets("matrice")    'feuille de destination
    With Sheets("Risques majeurs")    'feuille source
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            If UCase(.Cells(i, "E")) = "X" Then 'selection des risques marqués x
                x = .Cells(i, "C")    'probabilité
                y = .Cells(i, "B")    'impact
                wsm.Cells(12 - x, y + 3) = wsm.Cells(12 - x, y + 3) & .Cells(i, "A") & vbCrLf    'défini la matrice
            End If
        Next i
        MsgBox "La matrice est complétée"
    End With

End Sub

Merci beaucoup ! ça fonctionne très bien !

Aucune difficulté à poster le fichier en question si ce n'est qu'il faut l'anonymiser et que je n'en ai pas le temps maintenant. Mais je note pour l'avenir