Discussion :

[granchef]

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 :


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 :

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

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?

[Rino702]

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 :

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
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

[granchef]

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