Cartographie des risques
Bonjour la famille. Merci à tous d'être une solution aux problèmes des autres. J'ai un fichier sur la cartographie des risques et je souhaiterais automatiser la cartographie. Je veux reporter automatiquement sur la feuille cartographie, suivant la cotation de la criticité, l'intitulé des risques. Merci pour votre soutien.
bonjour,
une proposition (via une macro)
Sub aargh()
Set wsr = Sheets("cotation")
With Sheets("cartographie").Range("D2") 'position du tableau de résultat à adapter
dlr = wsr.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To dlr
Prob = 6 - wsr.Cells(i, 3)
impact = wsr.Cells(i, 4)
.Cells(Prob, impact) = .Cells(Prob, impact) & wsr.Cells(i, 2) & vbNewLine
Next i
End With
End SubBjr. Merci pour votre réactivité. J copie et colle voir.
Bonjour. Bien recu. Merci
Bonjour. Merci à tous. C'est bien celui de h2so4 que je veux. Merci infiniment.
Bonjour Messieurs,
J'ai à peut pret la meme cartographie à réaliser en 4 niveaux de probabilité et 4 niveaux de risque. (il faut juste enlever le trés élévé et critique). J'essaie de modifier le code VBA fournit mais je comprend vraiment rien aux code
Serait t-il possible d'avoir soit l'explication du code cité si dessus ? ou le code pour seulement les 4 niveaux ? j'aimerais bien comprendre ce code
Je vous joint le meme fichier avec les 4 niveaux !
De plus comment afficher les n° de risque à la place de nom ?
Le graphique 3d est trés intéressant, pouvez-vous fournir ce code
Merci beaucoup pour votre aide
bonsoir,
code adapté pour 4 niveaux, bien que tu aies encore une valeur 5 dans le tableau exemple que tu as mis
Bonjour ,
Merci beaucoup, cela fonctionne parfaitement dans mon cas !
Pierrep56 aurait tu le code pour l'affichage en 3D ?
Merci pour votre retour,
Cdlt