Vérifier si 2 string sont identique et calculer valeur attachée

Bonjour,

Voilà ce que j'aimerai faire mais j'y arrive pas du tout :

Sur chaque ligne, si les trois ressources sont différente, je prend la valeur max de cette ressources comme résultat. Par contre, si deux ressources sont identique, (genre 2 cotons sur la même ligne) j'additionne la valeur de ces deux cotons ensemble et si cette valeur est supérieur à la valeur de l'autre ressource, c'est cette valeur qui doit apparaître.

La seule chose que je saurai faire c'est de checker si deux ressources ont le même nom mais pour le reste, je n'ai aucune idée de comment procéder.

Dans mon exemple que j'ai attaché, la case G3 devrait afficher 0.28 et la case G16 0.28 également.

Je vous remercie pour votre aide!

Bonjour,

un essai par fonction personnalisée :

en G3: =Max_Goauld(A3:F3) à tirer vers le bas

et dans un module standard :

Function Max_Goauld(Plage)
Dim dico, T
T = Plage
Set dico = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(T, 2) Step 2
    dico(T(1, i)) = dico(T(1, i)) + T(1, i + 1)
Next
Result = Application.Max(dico.items)
Max_Goauld = IIf(Result > 0, Result, "")
End Function

A+

Merci ! Ca marche super !

Je réouvre ce sujet car j'ai encore besoin d'aide sur cette fonction.

Maintenant, au lieu de renvoyé la valeur des nombres, j'aimerai juste renvoyé le nom de la ressource.

Donc pour reprendre mon exemple attaché, la ligne 3 devrait renvoyé "Cotton", ligne 5 "Iron".

Merci pour votre aide

à tester:

Function Max_Goauld(Plage)
Dim dico, T, T2, result As Double, result2 As String
T = Plage
Set dico = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(T, 2) Step 2
    dico(T(1, i)) = dico(T(1, i)) + T(1, i + 1)
Next
result = Application.Max(dico.items)
If result > 0 Then
    T2 = Application.Transpose(Array(dico.keys, dico.items))
    For i = LBound(T2, 1) To UBound(T2, 1)
        If T2(i, 2) = result Then Max_Goauld = T2(i, 1)
    Next
Else
    Max_Goauld = ""
End If
End Function