Max Moyenne pondérée VBA

Bonjour tout le monde,

Je souhaite avoir dans la colonne rouge sur la feuille "Feuil1" : Le nom de classement avec le total des prix le plus grand.

exemple :

a 1000

b 2000

b 2000

c 3000

a 4500

a 4000

c 3000

b 1500

b 1200

donc la valeur affichée sur la colonne Rouge ça sera : a (car total prix du classement a = 9500 est le max )

et merci d'avance

bonjour,

solution via une fonction personnalisée

Function maxsomme(prix As Range, classement As Range)
'maxsomme renvoie la valeur de classement pour laquelle la somme des prix est la plus importante

    Set dict = CreateObject("scripting.dictionary")
    For Each vc In classement.Rows
        q = dict(vc.Value) + Cells(vc.Row, prix(1, 1).Column)
        dict(vc.Value) = q
        If q > maxvc Then maxvc = q: cl = vc
    Next
    maxsomme = cl
End Function

Merci pour ta réponse,

est ce que je peux l’intégrer dans le bouton ?

bonjour,

c'est pas nécessaire puisqu'il s'agit d'une fonction. Regarde la formule en D1.

Tu veux absolument une macro ?

Oui voila une marco, dsl je suis debutant en VBA

bonjour,

solution via une macro

Function maxsomme(prix As Range, classement As Range)
'maxsomme renvoie la valeur de classement pour laquelle la somme des prix est la plus importante

    Set dict = CreateObject("scripting.dictionary")
    For Each vc In classement.Rows
        q = dict(vc.Value) + Cells(vc.Row, prix(1, 1).Column)
        dict(vc.Value) = q
        If q > maxvc Then maxvc = q: cl = vc
    Next
    maxsomme = cl
End Function

Sub maxsommemacro()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Range("D1") = maxsomme(Range("B2:B" & dl), Range("C2:C" & dl))
End Sub

Merci Beaucoupppppppppppppppppppppppppppp

svp une derniere question

Si mes données commencent de la ligne 4 et que les 3 premiers lignes sont vides

dois change quoi sur le code ? pour la "dl"

merci

bonjour,

il faut remplacer les 2 par des 5 (si ligne 4 est une ligne d'entêtes) dans

 Range("D1") = maxsomme(Range("B2:B" & dl), Range("C2:C" & dl))