Résoudre une équation et écrire toutes les solutions

Bonjour à tous,

je viens chercher de l'aide vers vous car j'aimerais faire un fichier excel pour résoudre ce type de problème :

a *X + b*Y =c avec a,x,b,y,c des entiers.

X et Y doivent être compris entre 15 et 22.

En utilisant le solveur fournit par excel je trouve bien UNE solution à ce problème mais j'aimerais pouvoir trouver toutes les solutions possibles.

Existe t-il un moyen avec le solveur que je ne connais pas ? Est-il possible de traiter ce problème avec un code VBA (une boucle ?)

Si quelqu'un a une idée ou une piste pour m'aider, je suis preneuse

En pj mon excel très simple

Merci d'avance pour vos commentaires qui me sont à chaque fois d'une grande aide.

Orianne,

Bonjour,

voici une solution possible via une macro

Sub aaargh()
    c = Range("B5")
    lim = Int(c / 13)
    For x = 13 To 22
    lima = Int(c / x)
        For y = 13 To 22
            For a = 0 To lim
                If x * a <= c Then
                    b = (c - a * x) / y
                        If b >= 0 And b = Int(b) Then
                            l = l + 1
                            Cells(l, 5) = x & "x" & a & "+" & y & "x" & b & "=" & c
                        End If
                End If
            Next a
        Next y
    Next x
End Sub

Bonjour,

qu'ai-je fait pour que tu ne daignes pas me donner un retour sur la proposition faite ?

Désolé pour la réponse tardive Acide sulfurique.

Problème perso empêchant l'avancé de mon projet...

En tout cas, c'est génial, ton code fonctionne parfaitement et la présentation est sympa

Merci énormément,

Orianne