VBA - Concatener et sommer différents résultats d'une recherchev

Question

Bonjour, j'ai un problème sur VBA.

J'ai trouvé ce code sur un site :

Option Base 1

Function rmult(valcherch As Variant, x As Range, colonne As Long) As String

Dim u As Variant

Dim boucle As Long

Dim Dico

Set Dico = CreateObject("Scripting.Dictionary")

On Error Resume Next

u = ""

For boucle = 1 To x.Rows.Count

If x(boucle, 1) = valcherch Then

Item = Application.Trim(x(boucle, colonne))

Dico.Add Item, ""

End If

Next boucle

For Each k In Dico.keys

u = u & Chr(10) & k

Dico.R

rmult = u

End Function

Sub essai()

Range("D10") = rmult(1, Range("B10:C16"), 2)

End Sub

Ce code doit me permettre de concaténer différents résultats d'une recherchev.

Un autre soucis se pose. J'aimerais sommer les résultats lorsqu'un résultat provient du même critère et avoir ce résultat en % si possible.

Ex :

Steack 10€

Steack 12.8€

Haricots 18.2€

Steack 16.3€

Haricots 11.3€

Steack 17.2€

Abricots 4.6€

Steak 9.6€

Abricots 5€

Résulat souhaité :

Steack 65.9€

Haricots 29.5€

Abricots 9.6€

Je ne peux pas partage mon fichier qui est confidentiel...

Merci de votre aide :)

ThauThème · Answer

Bonjour User et bienvenu, bonjour le forum,

Je suis toujours impressionné par les "Je ne peux pas partager mon fichier qui est confidentiel...".

Il est tellement simple et rapide avec Excel de créer un fichier exemple anonymiser. Mais bon, après tout, c'est toi qui a besoin d'aide...