A partir d'un tableau où figure des ventes par magasins, je souhaite calculer le nombre de magasins représentant 80% du total des ventes. Pour cela je ne peux pas modifier l'ordonnancement du tableau (pas de tris ou de filtres).
Quelqu'un aurait-il une idée pour résoudre ce problème ?
Vous trouverez en PJ une partie du tableau que je dois traiter,
Function NBPCT&(P As Range, pct#)
Dim seuil#, n&, s#
Set P = P.Columns(2).Cells
seuil = P(P.Rows.Count) * pct / 100
For n = 2 To P.Count
s = s + Application.Large(P, n)
If s >= seuil Then Exit For
Next
NBPCT = n - 1
End Function
je souhaite calculer le nombre de magasins représentant 80% du total des ventes. Pour cela je ne peux pas modifier l'ordonnancement du tableau (pas de tris ou de filtres).
Merci beaucoup pour vos solutions, elles m'ont bien aidé !
Roger2327 j'ai un petit soucis sur ton tableau : j'aimerai rajouter deux magasins en colonne mais je n'arrive pas à faire fonctionner tes formules correctement une fois la modif effectuée Pourtant j'ai bien étendu les plages comme la logique le voudrait mais ça ne donne rien !
J'ai mis en PJ le problème que je rencontre, si jamais tu as le temps d'y jeter un coup d’œil ça serait génial