Somme égale à 26

Bonjour,

J'aimerais trouver toutes les combinaisons possibles d'une somme de 3,4, 5 ou 6 chiffres compris entre 4 et 12 dont la somme donne 26.

Par exemple 4+4+4+4+5+5 = 26.

Merci pour votre aide

Bonjour pagesalex, le forum,

Une petite recherche sur le net et je suis tombé la dessus:

Merci à l'auteur de cette macro,

Cordialement,

Re,

Une autre version plus élaborée du brillantissime Eriiic :

Cordialement,

EDIT: Oups! pas vu qu'on pouvais utiliser le même chiffre plusieurs fois, Bravo H2so4,

Bonjour,

une autre proposition

Sub aargh()
    recherche
End Sub
Sub recherche(Optional n = 1, Optional s = "", Optional nsol = 0, Optional ni = 4)
    For i = ni To 12
        s = s & "+" & i
        ev = Application.Evaluate(s)
        If ev <= 26 Then
            If ev = 26 And n > 3 Then
                'solution
                nsol = nsol + 1
                Cells(nsol, 1) = Mid(s, 2)
            ElseIf n < 6 Then
                recherche n + 1, s, nsol, i
            End If
        Else
            i = 13
        End If
        s = Left(s, InStrRev(s, "+") - 1)
    Next i
End Sub

Effectivement c'est top merci !

Rechercher des sujets similaires à "somme egale"