Inversion de raisonnement

Bonjour,

J'ai besoin d'inverser un raisonnement (je vous mets le fichier en pj).

J'ai un niveau de risque moyen à ne pas dépasser (de 1 à 7). En choisissant ce risque moyen, je voudrai que s'affiche la répartition en pourcentage des deux risques qui collent au niveau de risque moyen choisi

Par exemple, pour obtenir un risque moyen ne dépassant pas 4, je peux faire une répartition de 50% en risque 1 et de 50 % en risque 7.

Le calcul que j'ai mis dans mon fichier donne ça. Sauf qu'il faut que je tâtonne avec les pourcentages

Répartition Risque

50,00% 1

50,00% 7

Niveau moyen de risque (à ne pas dépasser)

4

Répartition Risque

25,00% 1

75,00% 5

Niveau moyen de risque (à ne pas dépasser)

4

Et ce que j'aimerai arriver à faire c'est l'inverse :

Je décide du niveau de risque moyen à ne pas dépasser et qu'excel m'affiche différentes répartitions ne dépassant pas ce risque moyen.

Merci à vous !

Jef

Bonjour,

Une idée ?

Merci de votre aide !

Bonjour,

Une proposition :

Bonjour Saphir, Pedro22,

une solution macro à peaufiner:

Sub CalcRisk()
Dim T(1 To 1000, 1 To 4)
With Worksheets("Feuil1")
Risk = .Range("A1").Value
For X = 5 To 95 Step 5
    Y = 100 - X
    For A = 1 To 7
        B = (Risk * 100 - X * A) / Y
        If B >= 1 And B <= 7 And Fix(B) = B Then
            i = i + 1
            T(i, 1) = X / 100
            T(i, 2) = A
            T(i, 3) = Y / 100
            T(i, 4) = B
        End If
    Next
Next

.Range("B1").Resize(i, 4) = T
.Range("B1").Resize(i, 1).NumberFormat = "0%"
.Range("D1").Resize(i, 1).NumberFormat = "0%"
End With
End Sub

A+

Bonjour AlgoPlus et Pedro 22

Merci à tous deux.

En revanche, comment intégrer et où cette macro stp AlgoPlus ?

Jef

la macro est à copier dans un module standard.

Ok merci, cependant je n'ai pas la compétence nécessaire

JEf