planning : combinaisons possibles

**ericdev67** · 07/12/2010, 22h26

bonjour,

Je cherche à créer le "planning parfait" et surtout que VBA me calcule toutes les possibilités......

Je mets en PJ le format de tableau que j'utilise. Mon code actuel est :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
Sub xes()
 
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer
Dim i10 As Integer
Dim i11 As Integer
Dim i12 As Integer
Dim i13 As Integer
Dim i14 As Integer
Dim i15 As Integer
Dim i16 As Integer
Dim i17 As Integer
Dim i18 As Integer
Dim i19 As Integer
Dim i20 As Integer
Dim i21 As Integer
Dim i22 As Integer
Dim i23 As Integer
Dim i24 As Integer
Dim i25 As Integer
Dim i26 As Integer
Dim i27 As Integer
Dim a(5)
For i = 1 To 5
a(i) = Cells(i + 1, 37)
Next
For i1 = 1 To 5
For i2 = 1 To 5
For i3 = 1 To 5
For i4 = 1 To 5
For i5 = 1 To 5
For i6 = 1 To 5
For i7 = 1 To 5
For i8 = 1 To 5
For i9 = 1 To 5
For i10 = 1 To 5
For i11 = 1 To 5
For i12 = 1 To 5
For i13 = 1 To 5
For i14 = 1 To 5
For i15 = 1 To 5
For i16 = 1 To 5
For i17 = 1 To 5
For i18 = 1 To 5
For i19 = 1 To 5
For i20 = 1 To 5
For i21 = 1 To 5
For i22 = 1 To 5
For i23 = 1 To 5
For i24 = 1 To 5
For i25 = 1 To 5
For i26 = 1 To 5
For i27 = 1 To 5
 
 
If Not (i1 = i10 Or i2 = i11 Or i3 = i12 Or i4 = i13 Or i5 = i14 Or i6 = i15 Or i7 = i16 Or i8 = i17 Or i9 = i18) Then
If Not (i1 = i19 Or i2 = i20 Or i3 = i21 Or i4 = i22 Or i5 = i23 Or i6 = i24 Or i7 = i25 Or i8 = i26 Or i9 = i27) Then
 
Cells(5, 3) = i1
Cells(6, 3) = i10
Cells(7, 3) = i19
Cells(8, 3) = i28
Cells(9, 3) = i37
Cells(10, 3) = i46
Cells(11, 3) = i55
Cells(12, 3) = i64
Cells(13, 3) = i73
Cells(14, 3) = i82
Cells(15, 3) = i91
Cells(16, 3) = i100
Cells(5, 5) = i2
Cells(6, 5) = i11
Cells(7, 5) = i20
Cells(8, 5) = i29
Cells(9, 5) = i38
Cells(10, 5) = i47
Cells(11, 5) = i56
Cells(12, 5) = i65
Cells(13, 5) = i74
Cells(14, 5) = i83
Cells(15, 5) = i92
Cells(16, 5) = i101
Cells(5, 7) = i3
Cells(6, 7) = i12
Cells(7, 7) = i21
Cells(8, 7) = i30
Cells(9, 7) = i39
Cells(10, 7) = i48
Cells(11, 7) = i57
Cells(12, 7) = i66
Cells(13, 7) = i75
Cells(14, 7) = i84
Cells(15, 7) = i93
Cells(16, 7) = i102
Cells(5, 9) = i4
Cells(6, 9) = i13
Cells(7, 9) = i22
Cells(8, 9) = i31
Cells(9, 9) = i40
Cells(10, 9) = i49
Cells(11, 9) = i58
Cells(12, 9) = i67
Cells(13, 9) = i76
Cells(14, 9) = i85
Cells(15, 9) = i94
Cells(16, 9) = i103
Cells(5, 11) = i5
Cells(6, 11) = i14
Cells(7, 11) = i23
Cells(8, 11) = i32
Cells(9, 11) = i41
Cells(10, 11) = i50
Cells(11, 11) = i59
Cells(12, 11) = i68
Cells(13, 11) = i77
Cells(14, 11) = i86
Cells(15, 11) = i95
Cells(16, 11) = i104
Cells(5, 13) = i6
Cells(6, 13) = i15
Cells(7, 13) = i24
Cells(8, 13) = i33
Cells(9, 13) = i42
Cells(10, 13) = i51
Cells(11, 13) = i60
Cells(12, 13) = i69
Cells(13, 13) = i78
Cells(14, 13) = i87
Cells(15, 13) = i96
Cells(16, 13) = i105
Cells(5, 15) = i7
Cells(6, 15) = i16
Cells(7, 15) = i25
Cells(8, 15) = i34
Cells(9, 15) = i43
Cells(10, 15) = i52
Cells(11, 15) = i61
Cells(12, 15) = i70
Cells(13, 15) = i79
Cells(14, 15) = i88
Cells(15, 15) = i97
Cells(16, 15) = i106
Cells(5, 17) = i8
Cells(6, 17) = i17
Cells(7, 17) = i26
Cells(8, 17) = i35
Cells(9, 17) = i44
Cells(10, 17) = i53
Cells(11, 17) = i62
Cells(12, 17) = i71
Cells(13, 17) = i80
Cells(14, 17) = i89
Cells(15, 17) = i98
Cells(16, 17) = i107
Cells(5, 19) = i9
Cells(6, 19) = i18
Cells(7, 19) = i27
Cells(8, 19) = i36
Cells(9, 19) = i45
Cells(10, 19) = i54
Cells(11, 19) = i63
Cells(12, 19) = i72
Cells(13, 19) = i81
Cells(14, 19) = i90
Cells(15, 19) = i99
Cells(16, 19) = i108
 
stop
 
End If
End If
 
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
 
End Sub

très (trop) lourd, je l'accorde. C'est d'ailleurs pour ça que je l'ai limité au 3 premiers noms...et déjà là, le code rame fort

Le principe est simple : il faut calculer pour chaque demi-journée et pour chaque nom, les combinaisons possibles, d'où l'escalade des "For i....".

Peut-être que je fais fausse route...car ces escalades de "For i..." prennent beaucoup de temps...J'ai essayé avec une double variable style

Code :

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

dim a(13,9)

13 = nombre de personnes
9 = demi-journées
mais je n'arrive pas à combiner....

Une idée, une nouvelle orientation ?

Merci,
A+

**ericdev67** · 08/12/2010, 10h30

Hello,

Je cherche toujours...j'ai essayé

Code :

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

1
2
3
for i = 1 to 13
for j=1 to 9
cells(i+4,j+2)=a(i,j)

Mais ça ne calcule pas toutes les combinaisons....ça calcule uniquement par 1/2 journée...
j'ai aussi essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim e1(13)
dim e2(13)
dim e3(13)
For i = 1 to 3 'en limitant à 3 personnes
for e1(i)= 1 to 5
for e2(i)= 1 to 5
for e3(i)= 1 to 5
cells(i,3)=e1(i)
cells(i,5)=e2(i)
cells(i,7)=e3(i)' en limitant à 3 demi journée
next
next
next

Là, j'obtiens le même résultat qu'avec tous mes "for i..." (cf premier code),
mais ça prend le même temps....

Une autre idée et/ou orientation ?

Merci
A+

**ericdev67** · 09/12/2010, 09h41

Encore et toujours....

j'ai essayé

Code :

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

1
2
3
4
dim a(3)
for a(1)=1 to 10 'essai
for a(2)= 1 to 10
for a(3)=1 to 10

le code me répond "erreur de compilation, variable de controle déjà utilisée", alors que a(1) <> a(2)....
Je ne comprends pas....

merci,
A+

**Godzestla** · 09/12/2010, 09h59

Bonjour,

ta demande est incompréhensible car nulle part tu expliques ce que tu veux faire.

Planning parfait ! Ca existe cela ? Et quelle sont les contraintes.

Concentre toi d'abord sur le but avant de te lancer dans le codage.

Sur base de ta demande que je ne comprends pas, il suffit de 2 boucles imbriquées basiques :

Code :

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

1
2
3
4
5
6
7
8
Sub planning_eric()
Dim pers, demi_j As Integer
For pers = 1 To 13
    For demi_j = 1 To 9
    'ton traitement auquel je ne comprend rien car ton planning parfait je ne comprends pas ce que cela veut dire vu que tu n'expliques nullement le but
    Next demi_j
Next pers
End Sub

**ericdev67** · 09/12/2010, 10h42

Merci Godzestla,

Quand je disais "planning parfait", c'était pour dire que je souhaitais calculer toutes les combinaisons possibles et prendre la meilleure. Mais tu as raison, ce n'était pas très clair....Mais ça fait 15 jours que je suis dedans et donc, ce qui me parait "évident" ne peut l'être pour ceux qui découvre mon problème...

Données :
13 personnes, 9 demi journées, 5 activités incontournables (mais on peut retrouver 3 fois une activité incontournable dans une demi-journée, exemple : l'activité "téléphone" est une activité incontournable et elle doit être programmée 3 fois dans une demi-journée) (activités incontournables : téléphone, accueil, RDV, libre, mise à jour)

Mon but :

Calculer toutes les possibilités pour trouver le meilleur équilibre entre les personnes : que chaque personne fasse le même nombre d'activité incontournable sur une semaine et que toutes les activités incontournables soient programmées par demi-journée (exemple : lundi matin, 3 "téléphone", 2 "accueil", 4 "RDV", 5 "mise à jour", le reste "libre")

Avec mes quelques connaissances, je pense qu'il faut passer par des boucles. Donc, pour reprendre ton code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub planning_eric()
Dim pers, demi_j, act As Integer
For pers = 1 To 13
    For demi_j = 1 To 9
     for act = 1 to 5 ' je rajoute l'activité
next act
    Next demi_j
Next pers
End Sub

la boucle me calcule bien certaines possibilités, mais pas toutes :
mon but est par personne, pour chaque demi journée de boucler sur les activités.
Donc, prenons le cas de la personne 1 :
il faudrait que je fasse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for A1= 1 to 5
for A2= 1 to 5
for A3= 1 to 5
for A4= 1 to 5
for A5= 1 to 5
for A6= 1 to 5
for A7= 1 to 5
for A8= 1 to 5
for A9= 1 to 5
 
cells (5,3)=A1 'la personne 1 est sur la 5ème ligne, lundi matin colonne 3
cells (5,5)=A2
cells(5,7)=A3,
etc....

Ainsi, toutes les combinaisons d'activités sont calculées.

Le problème est je dois faire la même chose avec la personne 2, donc rajouter à mon code:
[CODE]
for A10= 1 to 5
for A11= 1 to 5
for A12= 1 to 5
for A13= 1 to 5
for A14= 1 to 5
for A15= 1 to 5
for A16= 1 to 5
for A17= 1 to 5
for A18= 1 to 5
cells (5,3)=A1 'la personne 1 est sur la 5ème ligne, lundi matin colonne 3
cells (5,5)=A2
cells(5,7)=A3,.....
cells (6,3)=A10 'la personne 2 est sur la 6ème ligne, lundi matin colonne 3
[CODE]et ainsi de suite...d'où mon problème...et ma demande pour voir si une autre possibilité existe et/ou si je dois prendre une autre idée...

Merci,
A+

**Godzestla** · 09/12/2010, 11h05

Re,

je pense que tu n'abordes pas ton problème de la bonne manière, car ton problème n'est pas encore suffisament défini, et pour moi le VBA passe tout à la fin.

J'ai compris :

- que tu veux un équilibre entre les personnes sur la semaine au niveau du nombre des activités incontournables : équilibre en nombre où/et en nature ?

- 13 pers, 9 demi jours (drôle de semaine !!), 5 activités incontournables

- 3 fois 1 activité incontournable par demi-jour : Par personne ou au global ?

- activités incontournables = tel, accueil, rdv, libre, mise à jour)

mais :

- comment choisis -tu 3 activités sur les 5 incontournables ?
- cherches tu un équilibre sur la semaine dans la nature (ex : autant de fois tel que rdv, accueil, etc) par personne ?
- possibilité de plusieurs fois la mm act incontournable la mm demi-journée ?

Etc etc
..

Et oui l'analyse informatique préalable est prioritaire.

tant que tu n'auras pas bouclé une parfaite définition de tes besoins, tu ne trouveras jamais ta solution et tu auras très peu de chance que quelqu'un t'apporte ce que tu cherches.

A mon sens, la base est la définition des tâches a effectuer par personne. ensuite tu répartis ces tâches sur ta semaine, et le tour est joué.

C'est exactement la démarche inverse de la tienne. ce qui me fait dire que à ta manière, tu n'es pas prêt d'y arriver.

Allez Eric,
il faut tout expliquer.

planning : combinaisons possibles

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager