Discussion :

[Oupss]

Bonjour,

je cherche la methode optimale pour balayer l'ensemble des possibles de n variables qui peuvent prendre m valeurs chacune (m^n possibilites).

Sachant que n est une variable d'entree du programme mais m est fixé (tableau de valeurs).

=========================================================
Mon probleme vient de la variabilite de n, si n etait fixe (genre n=3) et m=2, cela donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
m(1)=1
m(2)=2
 
i=j=k=1
 
Do
   j=1
   Do
   k=1
       Do
          toto(m(i),m(j),m(k))
          k=k+1
       Loop until (k=3)
   j=j+1
   Loop until (j=3)
i=i+1
Loop until (i=3)

La procedure toto(n1,n2,n3) me stockant toutes les combinaisons possibles pour les 3 variables n1, n2 et n3 dans une colonne.
Cad 111, 112, 122, 121, 222, 221 ....etc.....
=========================================================

Mais dans mon cas n est une variable d'entree.......elle impacte donc le nombre de boucles Do.

Merci de votre aide

[patbou]

Jette un coup d ' oeil dans cette discussion


http://www.developpez.net/forums/d54...ous-vb6-excel/

[Oupss]

J'ai regarde la discussion conseillee par Patbou...il me semble en effet que ce n'est pas loin de ce dont j'aurais besoin.

J'ai abandonne la procedure folw, fautes de commentaires je n'y comprends pas grand chose.

J'ai essaye d'utiliser/customiser la procedure AddCombination mais elle ne semble pas generer l'ensemble des possibles tel que je l'entends.

Les n variables peuvent piocher une valeur dans un tableau de 13 possibilites, mais les 13 possibilites existent tout le temps. la pioche n'est pas exclusive...

La recursivite semble etre la solution mais je n'arrive pas a formaliser la procedure.....

[Oupss]

Merci Patbou, probleme resolu.
C'est bien la procedure AddCombination qu'il me fallait, juste besoin de modifier la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = NextItem To iPopSize

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 1To iPopSize