VBA : recher et verification de combinaison

bonjour,

je suis concepteur en mécanique et je me crée parfois des fiches de calcul pour m'aider (je n'ai que les bases en C et VBA).

mon problème est le suivant:

j'ai 2 ensembles. groupe 1 (20 nombres). groupe 2 (10 nombre )

je dois déterminer si je peu obtenir tous les nombre du groupe 1 en faisant des sommes des nombres du groupe 2 ( 3 nombre maximum).

si 1 seul nombre du groupe 1 n'ai pas faisable, j’arrête le programme.

exemple : groupe 1{1; 3; 6} groupe 2 {0.5; 2; 3}

1=0.5+0.5

3=3

6=2+2+2

les ensembles sont validés

je pensais calculer toutes les combinaisons possibles, les mettre dans un tableau de variable et vérifier les nombres du groupe 1 un par un avec le tableau de variable.

le problème c'est que je vais devoir créer beaucoup de variable (8000 pour toute les combinaisons du groupe 1) et que j'ai beaucoup de calcul de ce type à faire (problème de temps de calcul).

y a t-il une solution plus élégante ?

y a t-il des outils spécifiques aux Matrices de variable en VBA?

(déjà poster sur un autre forum mais pas de réponce)

cordialement

Salut,

tu souhaites avoir quoi en sortie de tout ton calcul ?

Une premiere piste serait de faire un calcul a base de modulo pour commencer =]

merci pour ta réponse:D

si un des nombres du groupe 1 ne peux pas être créer à partir du groupe 2, alors mon calcul changera les valeurs du groupe 2 et refera une tentative.
si tous est valider alors le programme s'arrêtera et me renverra les bonnes valeurs du groupe 2 à choisir.

le modulo je vois ce que c'est mais pas comment l'utiliser dans ce cas

Pour simplifier, si par exemple tu avais 13 a faire avec 3 5 7

13 mod 7 = 6
6 mod 5 = 1 => impossible de continuer
6 mod 3 = 0

=> 13 peut etre obtenu par combinaison de 7 et 3

Tu peux faire une boucle jusqu'a ce que ton reste soit = 0 =]

Bonjour à vous,

Le problème avec les modulos, c'est qu'il va être difficile de savoir dans quel ordre faire les calculs.
Le plus logique serait de commencer par le nombre le plus grand du groupe 2.

Par exemple, essayons de faire 19 à partir de 7, 4 et 2.
19 mod 7 = 5 => on se retrouve bloqué...
19 mod 4 = 3 => bloqués aussi
19 mod 2 = 1 => toujours bloqués
Et pourtant, 19 = 7 + 4 + 4 + 4...

certes, mais mon 6 ici n'etait pas le reste mais la difference

toujours est-il que c'est pure perte de temps et que faire du code en boucle pour tester suffirait largement a faire le tout en VBA, peu importe la methode.

reste qu'a la question

Citation:

---

y a t-il des outils spécifiques aux Matrices de variable en VBA?

---

je dis oui on peut passer par le solveur :D

Une solution à tester (en ajoutant une référence à Microsoft Scripting Runtime) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public Function TestGrp() As Boolean Dim Grp1 As Variant, Grp2 As Variant, i As Long, j As Long, Max1 As Double, Nbr As Double Dim PartSom As Variant, NewSom As Double, ListSom As Scripting.Dictionary Grp1 = Array(6, 8, 19) Grp2 = Array(2, 4, 7) Set ListSom = New Scripting.Dictionary ListSom(0) = 0 Max1 = WorksheetFunction.Max(Grp1) For i = LBound(Grp2) To UBound(Grp2) Nbr = Grp2(i) For Each PartSom In ListSom.Keys For j = 1 To Int((Max1 - PartSom) / Nbr) NewSom = PartSom + j * Nbr ListSom(NewSom) = 0 Next j Next PartSom Next i TestGrp = True For i = LBound(Grp1) To UBound(Grp1) If Not ListSom.Exists(Grp1(i)) Then TestGrp = False Exit Function End If Next i End Function

---

Ce code est largement optimisable en supprimant de Grp1 les nombres dès qu'ils apparaissent dans ListSom.

la méthode avec les modulo m’intéresse beaucoup et règle plusieurs de mes problèmes.
je vais aussi essayer la solution de Ben_L. mais elle utilise déjà plusieurs fonction que je ne connais pas :).
je vais la décortiquer , ça me fera progresser.

dans mon idée de programme , ce calcule pourrais être fait plusieurs milliers de fois , alors si je vois mon PC pédaler pendant 4 jour , je reviendrais pour prendre un cours sur les matrice.

je vais déjà essayer ça et je vous dirais.

merci beaucoup