Fonction récursive vba

Bonjour,

Depuis lundi, je n'arrive pas à construire une fonction récursive dont le but est de remplir un tableau.

Je peux avoir N plannings k individus. L'idée étant de lister re ventiler de toutes les manières possibles les k individus.

Ex avec n=4 et k=3

n1	n2	n3	n4
0	0	0	3
0	0	1	2
0	0	2	1
0	0	3	0
0	1	0	2
0	1	1	1
0	1	2	0
0	2	0	1
0	2	1	0
0	3	0	0
1	0	0	2
1	0	1	1
1	0	2	0
1	1	0	1
1	1	1	0
1	2	0	0
2	0	0	1
2	0	1	0
2	1	0	0
3	0	0	0

L'optique choisie me conduit à vouloir modéliser de gauche à droite :
Pièce jointe 593244

Le tableau devrait contenir les intitulés :
tab(0) = n1
tab(1)=n2/n1=0
tab(3)=n2/n1=1
etc

La récursivité semble dès lors s'imposer:

Code:

---

1 2 3 4 5 6 7 8 9

Function recurs(param1,param2) if qqchoseLiéAuxParam then arret else redim preserv tabCombi(0 to max) tabCombi(max)=QqChoseEnLienAvecParam1et2 max=max+1 recurs=recurs(param1,param2) end if end function

---

La fonction de récursivité devrait s'arrêter quand le nième planning est atteint pour le kième individu : nN/nN-1=k/nN-2=k/.../n1=k

Je n'ai jamais fait de fonction récursive et je me sens dépassé en raisonnement théorique : depuis lundi je tente des énumérations/fonctions pour modéliser mais je bloque. Pourriez-vous m'aider svp?

Bonjour Grandchef,

Pour ton problème, chaque nouvelle ligne est générées à partir de la ligne précédente, donc ce n'est pas une fonction récursive.

Voici le code qui permet de générer un tableau pour N planning et K individus.

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Option Explicit   Sub GenPlan(ByVal N As Long, K As Long) Dim i As Long, x As Long, s As Long, j As Long Cells.ClearContents For i = 1 To N - 1 Cells(1, i).Value = 0 Next Cells(1, N).Value = K x = 1 Do i = N Do While Cells(x, i) = 0 And i > 1 i = i - 1 Loop s = K - Sommer(x, 1, i - 1) If Cells(x, i).Value = s Then For j = i To N - 1 Cells(x + 1, j).Value = 0 Next Cells(x + 1, N).Value = s - 1 Else Cells(x + 1, i).Value = Cells(x, i).Value - 1 End If Cells(x + 1, i - 1).Value = Cells(x, i - 1).Value + 1 i = i - 2 Do While i > 0 Cells(x + 1, i).Value = Cells(x, i).Value i = i - 1 Loop x = x + 1 Loop Until Cells(x, 1) = K End Sub   Function Sommer(ByVal line, ByVal fc As Long, ByVal lc As Long) As Long Dim s As Long, i As Long s = 0 For i = fc To lc s = s + Cells(line, i).Value Next Sommer = s End Function   Sub Test_GenPlan() Call GenPlan(4, 3) End Sub   Tu n'a qu'à exécuter mettre en paramètre le nombre de Planning et d'individus dans la routine Test_GenPlan pour produire le tableau désiré.

---

Rino702

Merci infiniment ! Faute de mieux j'étais parti sur un algo vraiment sale et peu performant.
Bien vu pour la déduction d'une ligne à l'autre. Bonne journée