Version imprimable
Salut
Désolé mais j'ai du mal avec tes notations n43,s43,...
Tu décides d'un nombre de tours max, mais comment, pourquoi?
Le code que tu donnes, est ce qu'il te donne les résultats que tu souhaites? Si oui tu veux juste simplifier son écriture? Ou il ne te donne pas satisfaction?
le nb de tours max j'ai mis 6 mais on pourrait mettre plus, c'est pour limiter les combinaisons.
Je pense que ce que j'ai écrit est juste. Je l'ai trouvé avec des cas concrets.
C'est l'écriture en VBA qui me poses plus problème.
Après je me dis qu'il doit y avoir une formule générale mais laquelle...
Qwazerty, tu seras peut-être me dire pourquoi ce code ne fonctionne pas.http://cjoint.com/?eirsWQgnjC
non ce raisonnement n'est pas bon non plusCode:
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
Voila une traduction en vba, a toi de l'intégrer dans ton fichier et de la tester
Alors bien qu'il te suffise de faire du copier coller, je te propose avant que tu n'ailles plus loin de tester le code au dessus pour voir s'ildonne bien les resultat que tu attendCode:
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
Si c'est le cas il y a de forte chance que celui ci soit simplifiable vu qu'au final on utilise toujours la meme formule (si j'ai pas fait de coquille bien sur ^^)
Il faut absolument que tu apprennes a indenter tes codes, l'indentation te permet de contrôler que tu ne laisse pas des boucles ouvertes, je n'ai pas regardé ton code, mais vu sont organisation je suis sur qu'il te manque des fermeture de boucles (je suppose que tu avais un message d'erreur)
++
Qwaz
j'ai essayé d'adapter ce que tu m'as donné avec ce fichier: http://cjoint.com/?ejkqLlSmyL
cela correspond à un cas où s23<s43
voici le code:
Code:
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
il ne fonctionne pas: il met uniquement des 0 sur la première ligne de mon tableau
Salut
Essais comme celaCode:
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
++
Qwaz
merci encore.
Par contre, ça ne fonctionne pas. Ca met untiquement des 3 partout or quand tu regardes la ligne 28, Xtot devrait être égal à 2.
Salut
prend les valeur de la ligne 28 et applique les ici
le résultat retourné est effectivement 3, a toi de me dire ou est l'erreur dans ton raisonnement, ton c = s43 - B me parait suspect.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
++
Qwaz
ligne 28: s23=0 et s43=9,1
donc on est dans le cas:
9,1/7=1,3Code:
2
3
4
1<1,3 soit X43=1+1=2
donc Xtot=2
Salut
Un bloc de code n'etait pas a sa place
Ayant lu un autre de tes poste, je crois que tu ne fais qu'effleurer ton problème.Code:
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
J'ai vu que tu as une quantité de paramètre encore plus vaste que ce que tu présente ici, réfléchi peut être a se genre d'organisation (voir feuil2), elle te permettra peut être de pouvoir limiter les sorties a des cas réalisables
Par ce que
plusieurs sites
Plusieurs camions
Plusieurs type de trajet
Plusieurs tarifs
ça fait bcp, si tu ne t'organise pas au mieux avant de commencer a produire du code, a mon avis tu vas dans le mur (ne le prend pas mal, c'est vraiment constructif ce que je te dis).
++
Qwaz
J'oublié, tu néglige aussi me semble t il un autre paramètre très important.
Tu parts d'un volume a évacuer et d'une flotte de camion, ok, mais attention une pelle ne peut remplir qu'un camion a la fois, ainsi si tu as 3 camion a la file, le temps d'attente est perdu :s
apparemment ça a l'air de fonctionner. Maintenant je vais rajouter le cas où s43<s23 et après le réintégrer à ma macro initial.
dans les temps T22, T42, j'ai pris en compte le temps de chargement, de déchargement.
Je sais bien, c'est un problème bien plus complexe. Mais je voulais voir cmt ça se passait avec un cas simple. Et c'est déjà pas évident.
j'ai fait le cas avec N22, N42, N23, N43. Je me suis rendu compte d'un probléme. J'ai N22=6 tours, N42=5 tours, s22=7,6332h et s42=10,875h.
s22>7H, je trouve X22=2Code:
2
3
4
5
6
7
8
9
10
11
j'ai donc D=2*7 - 7,6332=6,3668
D>T42=2,175
D<s42=10,875
alors E=4,5082
E/7=0,64, on devrait donc avoir X42=1, sauf que là j'ai l'impression qu'il prend 0 car mon Xtot=2 au final.
Je me demande si ça ne vient pas du fait que int(E/MAXI)=0
je comprends encore moins, surtout que sur un autre cas ça fonctionne pour s42<s22
Je n'avais pas fait attention a ton code precedent, refais tes indentation, tu ne ferme pas tes boucle if comme il faut .
Je crois qu'il te manque une petite notion de vba sur les boucle
si tu fais
il n'y a pas besoin de end if puisque tout est sur la même ligneCode:if s43=7 then x43=1 else x43=2
par contre
ici on aura bien le end if, en se qui concerne l'endentation de ton code, tu peux voir ici que if, else et le end if sont tous au même niveau il est donc facile de reperé chaque membre.Code:
2
3
4
5
Un exemple plus compliqué
pour aller plus vite pour indenter ton code tu peux sélectionner plusieurs lignes et appuyer sur tabulation, ça ajoute une indentation, si tu fais Shift+Tabulation ça enlève un niveau d'indentationCode:
2
3
4
5
6
7
8
9
10
11
12
Reprend ton code avec ses info, je ne te corrige pas le tien car vers la fin je ne sais pas trop ce que tu souhaite faire exactement.
mais quelle est la différence de signification
Aucune, c'est le langage qui est conçu comme ça, lorsque tu ecris tout sur une ligne, VisualBasic c'est interpreter ce que tu veux, mais si tu utilise la notation sur plusieur ligne, il va bien falloir lui dire ou il doit s'arreter.
Regarde le code de base d'une procedure
Ca ne te choque pas d'avoir un point qui parque le début (Sub...) et un qui marque la fin (End sub) et bien c la meme chose avec If.Code:
2
3
Regare cette exemple qui est volontairement faut, je ne fereme pas le 1er If,elseif
J'espère que ça t'aidera a comprendre, sinon il doit y avoir des tutoriels a ce sujet qui te fourniront peut être une explication qui te conviendra mieux.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
oui sur ton exemple je comprends. Mais dans le cas de ce que je dois faire j'en ai tellement que j'arrive pas à voir où je dois boucler.
Par ex, j'ai voulu rajouter une condition pour éliminer des combinaisons. Je voulais dire que: (min=6h)
If 0 < s22 + s42 < min Then Ligne = Delete
donc normalement il y a pas de end if
pourtant ça me met une erreur
Dans la meme ligne, ca
tu dis a vbCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
si D < a T43,
ou D>= T43
ou D>= T43
tes 2 dernière boucle sont identiques, seule la 1ère (des 2 dernières) sera utilisée.
il faut que je l'écrive de cette manière alorsCode:
2
3
4
5
6
7
8
9
Non
comme ca je pense que c le résultat attendu
Par contre je pense que ton raisonnement ne va pas aller.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Prend le cas suivant,
T23 = 1.5h
Si on regarde pour 1 camion le nombre de trajet simple fret on
n23 = 7/1.5 = 4,66 don n23 = 4 trajets
Maintenant disons que tu as 30 camions sur ton chantier
Donc tu pourras faire 30 fois plus de trajet simple fret soit
30 * 4 = 120 trajet SF
120 trajet représente en temps
120*1.5= 180h
Maintenant, on utilise ton raisonnement pour résoudre le même problème
donc,
t23 = 1.5h
On nous donne s23 = 180h de simple fret et on va chercher combien de camion on veut louer
ce qui donne 180/7 arrondi supérieur = 26 ... 26 camions seulement! alors qu'il en faudrait 30, je t'avais déjà alerté sur un autre poste a ce sujet.Code:If Int(s23 / Maxi) < s23 / Maxi Then X23 = Int(s23 / Maxi) + 1 Else X23 = s23 / Maxi
Puisque 4*1.5 = 6h, tu perds 1h par camion et cette perte d'une heure fois le nombre de camion
1*30 = 30h avec lesquels tu n'a pas la possibilité de faire du simple fret.
L'erreur vient de l'utilisation de Maxi, il faudrait calculer pour 1 camion le temps maxi de simple fret (7/1.5 arrondi inf.)*1.5 = 6h
Si on refait le calcule précèdent
180/6 arrondi sup. = 30, on retrouve bien nos 30 camions nécessaire.Code:If Int(s23 / Maxi) < s23 / Maxi Then X23 = Int(s23 / Maxi) + 1 Else X23 = s23 / Maxi
Voila le raisonnement que je te propose pour corriger cela
Tu as
t23 = 1.5h
175h de simple fret a faire
donc on cherche le temps de trajet que représente le maximum de trajet simple fret
Maxt23 = (7/1.5 arrondi inf.)*1.5 = 4*1.5 = 6h
On cherche le nombre de camion utiles
175/6 = 29,111 arrondi sup., il faudra 30 camions
Maintenant on calcule nombre théorique de temps de trajet simple fret que peuvent réaliser 30 camions
30 * 6 = 180h
Donc le dernier camion aura pour temps "libre"
180h-175h = 5h auxquelles tu ajoutes le temps restant avec lequel le camion ne pouvais pas faire un autre simple fret soit (7h-6h)
On a donc
(180-175) + (7-6) = 6h
Le dernier camion pourra donc encore rouler pendant 6h
En code ca donne ca
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
en effet, il vaut surement mieux raisonner sur un nombre de tours maxis par trajet.
J'appliqué ce que tu m'as donné, en intégrant le calcul de X43: http://cjoint.com/?emnjL2Y7QX
voici la macro:
avec TSFDF, nb de tours en DF que le camion en SF peut faire en fonction de son tps restant
ap je fais N43-TSFDF=nb de tours restants en DF, et je le divise par MaxiDF pour avoir le nb de camions
Code:
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
en faisant ça, je me suis rendue compte qu'il faut remplacer tous les s23 par N23, on ne peut pas diviser un temps par des nb de tours.
Ou alors, il faut diviser s23/maxiSF*T23
j'ai retravaillé ce que tu m'as donné. Ca me donne ça: http://cjoint.com/?emqWZKicKp
voici la macro associée:
Code:
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
ça a l'air de fonctionner sauf pour la dernière ligne, les 10m3(violet): N23=0 et pourtant il me compte X23=1, alors qu'il ne le fait jms auparavant.
Ap ce que je voudrais faire, c'est qu'il élimine les lignes où:
- TapresT42>2H
-si N42=0, TapresT22>2h
-TapresT43>2h
-si N43=0, TapresT23>2h
Salut
Je t'ai mis quelque commentaire dans ton code.
J'ai corrigé une boucle if.
Pour ton erreur
Cela vient du fait que les X.. ne sont pas remis a 0 en début de boucle Do...loop je pense, donc du coup si N22 et N42 = 0 les valeurs de X22 et X42 ne sont pas modifiées, mais utilisé tel quelle dans les totaux (regarde les explications dans le code ça sera plus claire je pense ^^)Citation:
ça a l'air de fonctionner sauf pour la dernière ligne, les 10m3(violet): N23=0 et pourtant il me compte X23=1, alors qu'il ne le fait jms auparavant.
Pour les indentations c'est bien mieux, il te manquait juste celle de la boucle Do, mais ton code est bien lisible.Code:
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
Pense a déclarer toutes tes variables, pour n'en oublier aucune, utilise Option explicit en début de code, tu verra les variables non déclaré te seront signalé, il est dans certain cas très néfaste de laisser vba les déclarer, car il les déclare forcement en Variant et le type variant a parfois des fonctionnements un peu mal appropriés on va dire.
Dis moi si les nouveaux résultat sont conformes à tes attentes.
A++
Qwaz