Discussion :

[rododom05]

Bonjour le forum !

Voilà, j'ai un très gros problème : j'ai entré un code en VBA qui permet d'exécuter tout un tas de boucles, mais le problème est qu'à partir de la ligne 25, Excel ne répond plus et je n'ai d'autre choix que de relancer Excel. Ce qui est assez frustrant je dois le reconnaître.
Voici en pièce jointe le code que j'utilise, avec toutes les données nécessaires à son fonctionnement. Est-ce que quelqu'un aurait une solution à mon problème ?
En vous remerciant par avance, je vous souhaite un bon vendredi, et un bon week-end.

Rod'

[Invité]

Bonjour,
tu tes trompé, ici c'est pas un SAV!

[mercatog]

Bonjour

Je rejoins Robert et je te propose un lien qui va t'aider ICI

[rododom05]

Bonjour,

Hum, je suis un habitué d'un autre forum, où là joindre un fichier dès le début est préconisé. Je pensais que c'était pareil sur tous les forums de ce type, désolé !

Je vais tenter d'exposer mon problème alors.
Mon but est de calculer la marche d'une ligne de transport. Au gré de la distance parcourue, différentes Vmax seront à prendre en compte. L'idée est d'accélérer jusqu'à la Vmax, de détecter la suivante, et de décélérer tant que la distance est suffisante.
Dans une première boucle, on cherche la position de la prochaine Vmax. Dès qu'on l'a trouvée, on la compare à la position actuelle. Dans une nouvelles boucle, on tente des décélérations jusqu'à cette Vmax. Si on arrive à Vmax à une position en amont de la position de la prochaine Vmax, on lui dit d'accélérer ou de maintenir sa vitesse. Dans le cas contraire, on lui dit d'entamer la décélération vers la nouvelle Vmax. Le tout est imbriqué dans une boucle générale qui fonctionne tant que la position limite n'est pas atteinte.
Du coup, le code qui est sur mon fichier prévoit tout cela. Mais comme je l'ai dit, dès lors qu'on arrive à la ligne 25, plus rien ne se passe, et il faut tout fermer. Et je ne comprends pas du tout pourquoi.

J'espère que ma première approche ne fera fuir personne, encore désolé !

En vous remerciant par avance.

[mercatog]

Encore faut il montrer ton code (a mettre entre les balises code #)

Code :

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

Ton code

Ensuite au cas où une description sommaire de la disposition de tes données sur ta feuille Excel.

[Invité]

Si je comprend bien ton application est un régulateur en quelque sorte!

J'imagine que les vmax est la vitesse entre dison la distance entre le train derrière et celui devant

Le parcours de chaque chauffeur est découpe en tronçon (un tronçon entier doit séparé de véhicule) ou en distance (3Km; 2minutes)?

moi l'utiliserai un module de classe, ca permettrait de dire couper la ligne de transport en tronçons si ce n'est pas déjà la cas. Instancie une instance pour chaque troncs et je positionnes les véhicules a leur tronçon respectif en fonction de leur position.

Si je me rapproche de trop près du tronçon N+2 je lève le pied si je m'en éloigne j'accélère."si le véhicule de derrière ce rapproche j'accélère également dans la mesure ou c'est possible!

Tronçons(x-1)<=Tronçons(x) - distanceFreinage and Tronçons(x) + distanceFreinage>= Tronçons(x+1)

[rododom05]

Voici mon code :

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
Sub Bouton2_Cliquer()
 
 
'Outil et onglets utilisés
Dim OUT As Workbook
 
Dim VMR As Worksheet
Dim MTA As Worksheet
Dim MTR As Worksheet
Dim ACC As Worksheet
Dim AVM As Worksheet
 
'Toutes les données utiles à la marche-type
 
Dim Pk As Single 'Pk à l'instant T
Dim Pkt As Single 'Pk test
Dim Pkw As Single 'Pk test 2
Dim Pkmax As Single
 
'Dim T As String 'Variable temporelle
Dim V As Single 'Vitesse à l'instant T
Dim Vi As Single 'Vitesse à l'instant T créée pour les tests
Dim Vmax As Single 'Vitesse maximale due à l'infrastructure
'Dim VmaxMR As Single 'Vitesse maximale du matériel roulant
Dim V1 As Single 'Vitesse pallier du matériel roulant pour calculer l'accélération
Dim Vt As Single 'Vitesse test
Dim Vw As Single 'Vitesse test 2
 
 
Dim a As Single 'Accélération
Dim a1 As Single 'Accélération pallier
Dim amax As Single 'Accélération maximale
Dim dmax As Single 'Décélération maximale du matériel roulant
 
'Pas et cellule variable
Dim k As Single 'Pas de temps
Dim b As Long 'Cellule
Dim c As Long 'Cellule suivant
 
Dim i As Long
Dim j As Long
Dim m As Long
Dim n As Long
 
 
'Initialisation des onglets utilisés
Set OUT = ThisWorkbook
Set VMR = OUT.Worksheets("Validation matériel roulant")
Set MTA = OUT.Worksheets("Marche type sens aller")
'Set MTR = OUT.Worksheets("Marche type sens retour")
Set ACC = OUT.Worksheets("ACCUEIL")
Set AVM = OUT.Worksheets("Aperçu Vmax")
 
k = MTA.Cells("3", "K").Value
Pk = ACC.Cells("16", "G").Value
Pkmax = ACC.Cells("18", "G").Value
 
amax = VMR.Cells("4", "B").Value
'VmaxMR = VMR.Cells("6", "B").Value
dmax = VMR.Cells("7", "B").Value
 
Pkw = Pk
 
V = 0
Vw = V
V1 = VMR.Cells("5", "B").Value
 
j = 5
i = 6
m = 9
n = 10
MTA.Cells(m, "C") = V
MTA.Cells(m, "B") = Pk
 
Do Until Pk >= Pkmax
 
Do While AVM.Cells(i, "H").Value <= Pk
 
    i = i + 1
    j = j + 1
 
Loop
 
Vmax = AVM.Cells(j, "I").Value / 3.6
Pkt = AVM.Cells(i, "H").Value
Vt = AVM.Cells(i, "I").Value / 3.6
 
Do Until V <= Vt
 
Vw = Vw + k * d
Pkw = Pkw + k * Vw
 
Loop
 
If Pkw >= Pkt Then
a = dmax
V = V + k * a
Pk = Pk + k * V
MTA.Cells(m, "E").Value = a
MTA.Cells(n, "C").Value = V
MTA.Cells(n, "B").Value = Pk
 
Else
If V = Vmax Then
a = 0
V = V + k * a
Pk = Pk + k * V
MTA.Cells(m, "E").Value = a
MTA.Cells(n, "C").Value = V
MTA.Cells(n, "B").Value = Pk
 
Else
If V < V1 Then
a = amax
V = V + k * a
Pk = Pk + k * V
MTA.Cells(m, "E").Value = a
MTA.Cells(n, "C").Value = V
MTA.Cells(n, "B").Value = Pk
 
Else
a = (amax / (Vmax - V1)) * (Vmax - V)
V = V + k * a
Pk = Pk + k * V
MTA.Cells(m, "E").Value = a
MTA.Cells(n, "C").Value = V
MTA.Cells(n, "B").Value = Pk
 
End If
End If
End If
 
 
m = m + 1
n = n + 1
 
Loop
 
End Sub

Les positions de chaque Vmax en fonction de sa position est placée dans l'onglet "Aperçu Vmax", dans l'onglet "Validation matériel roulant" on retrouve les valeurs V1, accélération max, décélération max, dans l'onglet "ACCUEIL" on trouve les bornes de la lignes (position début, position fin), et dans "Marche type sens aller" les colonne à remplir. B étant pour la position, C pour la vitesse, et E pour l'accélération. K3 est le pas de temps.

En lançant ce code, tout va bien jusqu'à la ligne 24, où ça dérape.



Dysorthographie :

Non, c'est plutôt la marche type d'une seule rame, sans prendre en considération les trains de devant et de derrière. C'est juste la marche du train en fonction de la vitesse maximale liée à la disposition de la ligne, et de ses contraintes. L'idée est simplement de lui demander de décélérer de telle sorte que le train arrive à la Vmax à la position voulue.

[mercatog]

A première vue et rapidement, cette boucle est étrange

Code :

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

1
2
3
4
Do Until V <= Vt
    Vw = Vw + k * d
    Pkw = Pkw + k * Vw
Loop

En aucun cas tu ne fais varier ni V ni Vt à l'intérieur. Droit vers une boucle infinie

Aussi, la variable d n'est ni définie ni variée.

Corrige

[rododom05]

Oui effectivement merci, j'ai modifié de cette façon :

Code :

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

1
2
3
Do Until Vw <= Vt 
Vw=Vw+k*dmax
Pkw=Pkw+k*Vw

Vt varie suite à la première boucle...peut-être vaut-il mieux inclure ces variations de Vt, Vmax et Pkt dans ladite boucle ?
Mais je n'arrive pas encore au but recherché...il doit y avoir d'autres coquilles et boucles infinies à mon avis !

[mercatog]

Certainement à contrôler la condition, sinon tu auras une boucle infinie