Somme d'une cellule selon combinaison quel que soit l'ordre

Bonjour,

Je cherche a faire le total de chaque combinaison (D2:D24), présente, quel que soit l'ordre, dans la colonne B et, où, il faut donc additionner la valeur correspondante dans la colonne A.

EX: avec la combinaison 2 4 5 dans le fichier joint.

Merci.


re,

petite rectification pour les totaux, ces derniers seront dans la colonne E et non D.

Fichier joint rectifié.

Merci.

21classeur1.xlsx (10.35 Ko)
29classeur2.xlsx (10.36 Ko)

Bonjour,

Un essai avec une macro : (il faut autoriser les macros à l'ouverture du fichier)

clique sur le rectangle MACRO

38classeur2.xlsm (18.39 Ko)

cdt.

Le code

Sub macro()

Dim tableau1() As String
Dim tableau2() As String

For col = 2 To Range("D65000").End(xlUp).Row

valeur = 0

For debut = 2 To Range("B65000").End(xlUp).Row

tableau1 = Split(Cells(debut, 2))
tableau2 = Split(Cells(col, 4))
compteur = 0

For i = 0 To UBound(tableau1)
    For j = 0 To UBound(tableau2)
    If tableau1(i) = tableau2(j) Then
    compteur = compteur + 1
    End If
    Next
Next

If compteur = UBound(tableau1) + 1 And compteur = UBound(tableau2) + 1 Then
valeur = valeur + Cells(debut, 1)
End If

Next

Cells(col, 5) = valeur

Next

End Sub

Rectification : le code ne fonctionne pas à 100% il donne des erreurs (par exemple si je saisis 2 2 2 : il me trouve quand même des valeurs)

Le code fonctionnera si dans tes combinaisons ce sont toujours 3 chiffres différents (2-3-4 par exemple)

Par contre si tu as des combinaisons avec plusieurs fois le même chiffre (3-3-2) par exemple tu auras des erreurs.

A toi de ns dire.

cdt

Bonsoir,

C'est parfait !!! et il n'y a pas de double.

Je ne pensais pas faire une Macro mais en me servant des somme.si. etc...

Merci beaucoup !!!

Rechercher des sujets similaires à "somme combinaison quel que soit ordre"