Sub proposition()
'Macro réalisée le 17/08/2012 par Excel-lent
Dim Variable As Variant
Dim Cap as 'à compléter
Dim Surplus as 'à compléter
'Mémoriser tous les pourcentages en mémoire dans une variable pour les analyser et retraiter
Variable = Array([G3], [G4], [G5], [G6], [G7], [G8], [G9], [G10], [G10])
'Dans le cas où le pourcentage à ne pas dépasser (les fameux 90%) sont saisie en G1
Cap = [G1]
Surplus = 0
'Mettre dans les différentes variables le Loot/Quête de la Force, Agilité, Résistance, ...
'Si Pourcentage > 90% -> variable "Cap"
'Alors mettre dans la variable 90% et mettre la partie qui dépasse des 90% dans la variable Cap
'Sinon mettre le pourcentage de la colonne G dans sa variable
For i = LBound(Variable) To UBound(Variable)
If Range("G" & i + 1) > Cap Then
Variable(i) = Cap
Surplus = Surplus + (Range("G" & i + 1) - Cap)
Variable(i) = Range("G" & i + 1)
Else
Variable(i) = Range("G" & i + 1)
End If
Next i
'Répartir le surplus stocké dans la variable Surplus sur toutes les variables ... en répondant aux critères indiqués dans le post 8 situé juste au-dessus
'A compléter...
'Une fois terminé, mettre chaque variable dans la colonne H, sur la ligne correspondante
For j = LBound(Variable) To UBound(Variable)
Range("H" & j + 1) = Variable(j)
Next j
End Sub