Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Réseau train

Réseau train

42 réponses
Avatar
Guy72
Bonjour
Après 42années de travail, j'ai décidé de faire un réseau de train en
modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les "itinéraires".
J'arrive à mettre de la couleur dans les cellules concernées avec la MFC.
Mais au dessus de 3 "itinéraires" Waloo je ne peut plus.
Quelqu'un peut-il me donner une solution pour pouvoir faire une vingtaines
d"itinéraires".
Merci de vôtre aide.
http://cjoint.com/?fAtMUS6QO4
Cordialement
Guy
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
Guy72
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes les
nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes cellules,
notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant aux
itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce sujet.
Mais comme j'aime beaucoup travailler sur Excel je voudrais
représenter les itinéraires visuellement pour faire les liaisons
électriques. C'est vrais que cela peut-être l'usine à gaz.
Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible, ni
d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela de 20
sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit programme
gratos qui fait ce que tu souhaites, avec gestion des itinéraires et
simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe des
simulations de gares de triage où les trains sont divisés de façon
aléatoire et reformés ensuite - de créer des circulations sur voie
unique avec signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))











Avatar
Patrick BASTARD
Bonjour, *Guy72*

Merci du retour, heureux que ça te plaise.

Pour les 4 premiers itinéraires :
http://cjoint.com/?fBtaPcxS7R

Pour les suivants, il suffit d'ajouter des Sub Itinx(), et de les appeler
dans la sub Itineraires() avec les
Case x.
Ne pas oublier d'ajouter les nouveaux numéros des lignes dans la sub RAZ()

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir Patrick

Euréka tu as trouvé.

Voilà c'est tout à fait ça, c'est parfait.

Au début c'est ce que je voulais, mais je ne pensais que cela était
possible.

Je ne suis même plus besoin de remplir les cellules, je suppose que
je peux le faire pour autant d'itinéraires que je veux et changer la
couleur de flèches ?

C'est nettement mieux que les bordures et les cellules et comme dit
François ça ne fait pas usine à gaz.

Cordialement
Guy


Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".














Avatar
Patrick BASTARD
Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer la sub
RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes les
nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes cellules,
notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant aux
itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je voudrais
représenter les itinéraires visuellement pour faire les liaisons
électriques. C'est vrais que cela peut-être l'usine à gaz.
Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible, ni
d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela de
20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit programme
gratos qui fait ce que tu souhaites, avec gestion des itinéraires
et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe des
simulations de gares de triage où les trains sont divisés de façon
aléatoire et reformés ensuite - de créer des circulations sur voie
unique avec signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))











Avatar
Patrick BASTARD
Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer
la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes les
nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant aux
itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je voudrais
représenter les itinéraires visuellement pour faire les liaisons
électriques. C'est vrais que cela peut-être l'usine à gaz.
Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible, ni
d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela de
20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion des
itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe des
simulations de gares de triage où les trains sont divisés de façon
aléatoire et reformés ensuite - de créer des circulations sur voie
unique avec signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))













Avatar
Guy72
Patrick
Encore merci pour ton aide, c'est Excellent, tout fonctionne à merveille.
J'ai plus qu'à faire mon réseau entier.
A+
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer
la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes les
nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant aux
itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je voudrais
représenter les itinéraires visuellement pour faire les liaisons
électriques. C'est vrais que cela peut-être l'usine à gaz.
Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible, ni
d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela de
20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion des
itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe des
simulations de gares de triage où les trains sont divisés de façon
aléatoire et reformés ensuite - de créer des circulations sur voie
unique avec signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))

















Avatar
Guy72
Bonjour Patrick
Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive ?
ActiveSheet.Shapes.Range(Array( _
"Line 1", "Line 2", "Line 3", "Line 4", "Line 5", "Line 6", "Line 7" _
, "Line 62" _
, "Line 92", "Line 93", "Line 94", "Line 95", "Line 96", "Line 97",
"Line 98", "Line 99" _
, "Line 100", "Line 101", "Line 102", "Line 103", "Line 104" _
)).Select
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer
la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes les
nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant aux
itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je voudrais
représenter les itinéraires visuellement pour faire les liaisons
électriques. C'est vrais que cela peut-être l'usine à gaz.
Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible, ni
d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela de
20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion des
itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe des
simulations de gares de triage où les trains sont divisés de façon
aléatoire et reformés ensuite - de créer des circulations sur voie
unique avec signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))

















Avatar
Patrick BASTARD
Bonjour, *Guy72*

Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive


Pas à ma connaissance, puisque les numéros des lignes dépendent de l'ordre
dans lesquelles tu les crées, et que celles-ci peuvent être communes à
plusieurs circuits.

Un autre souci est que, même si les numéros se suivent, l'ensemble ne
comporte pas tous les numéros : Exemple pour l'itinéraire 1 qui comprend les
lignes n° 18, 23 à 24, 28, 62, 92 à 104

Une solution serait de limiter le nombre de lignes (pourquoi pas faire un
circuit complet à main levée (Parkinsonien, s'abstenir...) ou avec l'outil
de dessin connecteurs.

Autre solution, mais que je ne maîtrise pas : regrouper les lignes d'un
circuit et affecter un nom à cet ensemble, nom qui serait repris dans tes
macros.
Mais il faudra quand même, au moins une fois, définir les noms avec toutes
les références des lignes.

Pense aussi à l'évolution de ton circuit (nouvelle voie, changement de
position d'un aiguillage...)
C'est pour cette raison que j'ai choisi un saut de ligne par dizaine dans
les codes (plus facile à modifier).


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Patrick
Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive ?
ActiveSheet.Shapes.Range(Array( _
"Line 1", "Line 2", "Line 3", "Line 4", "Line 5", "Line 6", "Line
7" _ , "Line 62" _
, "Line 92", "Line 93", "Line 94", "Line 95", "Line 96", "Line 97",
"Line 98", "Line 99" _
, "Line 100", "Line 101", "Line 102", "Line 103", "Line 104" _
)).Select
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer
la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes
les nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant
aux itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je
voudrais représenter les itinéraires visuellement pour faire les
liaisons électriques. C'est vrais que cela peut-être l'usine à
gaz. Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible,
ni d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela
de 20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion des
itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe
des simulations de gares de triage où les trains sont divisés
de façon aléatoire et reformés ensuite - de créer des
circulations sur voie unique avec signalisation de sécurité et
même d'introduire une signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))

















Avatar
Guy72
Bonjour Patrick
Ok pour ta réponse.
Pour le plan sur papier c'est déjà fait.
Mais le faire avec Excel, c'est mieux (j'ai le temps).
Merci encore de ton aide.
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Guy72*

Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive


Pas à ma connaissance, puisque les numéros des lignes dépendent de l'ordre
dans lesquelles tu les crées, et que celles-ci peuvent être communes à
plusieurs circuits.

Un autre souci est que, même si les numéros se suivent, l'ensemble ne
comporte pas tous les numéros : Exemple pour l'itinéraire 1 qui comprend
les lignes n° 18, 23 à 24, 28, 62, 92 à 104

Une solution serait de limiter le nombre de lignes (pourquoi pas faire un
circuit complet à main levée (Parkinsonien, s'abstenir...) ou avec l'outil
de dessin connecteurs.

Autre solution, mais que je ne maîtrise pas : regrouper les lignes d'un
circuit et affecter un nom à cet ensemble, nom qui serait repris dans tes
macros.
Mais il faudra quand même, au moins une fois, définir les noms avec toutes
les références des lignes.

Pense aussi à l'évolution de ton circuit (nouvelle voie, changement de
position d'un aiguillage...)
C'est pour cette raison que j'ai choisi un saut de ligne par dizaine dans
les codes (plus facile à modifier).


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Patrick
Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive ?
ActiveSheet.Shapes.Range(Array( _
"Line 1", "Line 2", "Line 3", "Line 4", "Line 5", "Line 6", "Line
7" _ , "Line 62" _
, "Line 92", "Line 93", "Line 94", "Line 95", "Line 96", "Line 97",
"Line 98", "Line 99" _
, "Line 100", "Line 101", "Line 102", "Line 103", "Line 104" _
)).Select
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour remplacer
la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement, désolé.
Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes
les nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news: %23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant
aux itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je
voudrais représenter les itinéraires visuellement pour faire les
liaisons électriques. C'est vrais que cela peut-être l'usine à
gaz. Je vais quand même essayer rein que pour me servir d'Excel.
Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau de
train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par section
cela necessite la mise en table de tous les elements individuels
(longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible,
ni d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur au-dela
de 20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion des
itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent être
reproduites. Il est possible d'introduire des itinéraires et des
horaires complets, de diviser ou former des rames - il existe
des simulations de gares de triage où les trains sont divisés
de façon aléatoire et reformés ensuite - de créer des
circulations sur voie unique avec signalisation de sécurité et
même d'introduire une signalisation aux carrefours... ../..

ensuite il y a aussi de Microsoft Train Simulator ...

--
--
@+
;o)))





















Avatar
Patrick BASTARD
Bonjour, *Guy72*


Quand je parlais à main levée, j'entendais sous Excel avec la souris, et
l'outil Forme automatique, Ligne, Forme libre.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour Patrick
Ok pour ta réponse.
Pour le plan sur papier c'est déjà fait.
Mais le faire avec Excel, c'est mieux (j'ai le temps).
Merci encore de ton aide.
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Guy72*

Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive


Pas à ma connaissance, puisque les numéros des lignes dépendent de
l'ordre dans lesquelles tu les crées, et que celles-ci peuvent être
communes à plusieurs circuits.

Un autre souci est que, même si les numéros se suivent, l'ensemble ne
comporte pas tous les numéros : Exemple pour l'itinéraire 1 qui
comprend les lignes n° 18, 23 à 24, 28, 62, 92 à 104

Une solution serait de limiter le nombre de lignes (pourquoi pas
faire un circuit complet à main levée (Parkinsonien, s'abstenir...)
ou avec l'outil de dessin connecteurs.

Autre solution, mais que je ne maîtrise pas : regrouper les lignes
d'un circuit et affecter un nom à cet ensemble, nom qui serait
repris dans tes macros.
Mais il faudra quand même, au moins une fois, définir les noms avec
toutes les références des lignes.

Pense aussi à l'évolution de ton circuit (nouvelle voie, changement
de position d'un aiguillage...)
C'est pour cette raison que j'ai choisi un saut de ligne par dizaine
dans les codes (plus facile à modifier).


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Patrick
Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive ?
ActiveSheet.Shapes.Range(Array( _
"Line 1", "Line 2", "Line 3", "Line 4", "Line 5", "Line 6", "Line
7" _ , "Line 62" _
, "Line 92", "Line 93", "Line 94", "Line 95", "Line 96", "Line
97", "Line 98", "Line 99" _
, "Line 100", "Line 101", "Line 102", "Line 103", "Line 104" _
)).Select
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour
remplacer la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement,
désolé. Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes
les nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit
dans le message de news:
%23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant
aux itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je
voudrais représenter les itinéraires visuellement pour faire
les liaisons électriques. C'est vrais que cela peut-être
l'usine à gaz. Je vais quand même essayer rein que pour me
servir d'Excel. Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau
de train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par
section cela necessite la mise en table de tous les elements
individuels (longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible,
ni d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur
au-dela de 20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion
des itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent
être reproduites. Il est possible d'introduire des
itinéraires et des horaires complets, de diviser ou former
des rames - il existe des simulations de gares de triage où
les trains sont divisés de façon aléatoire et reformés
ensuite - de créer des circulations sur voie unique avec
signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../.. ensuite il y a aussi de
Microsoft Train Simulator ...

--
--
@+
;o)))





















Avatar
Guy72
ok, je n'avais pas essayé
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Guy72*


Quand je parlais à main levée, j'entendais sous Excel avec la souris, et
l'outil Forme automatique, Ligne, Forme libre.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour Patrick
Ok pour ta réponse.
Pour le plan sur papier c'est déjà fait.
Mais le faire avec Excel, c'est mieux (j'ai le temps).
Merci encore de ton aide.
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Guy72*

Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive


Pas à ma connaissance, puisque les numéros des lignes dépendent de
l'ordre dans lesquelles tu les crées, et que celles-ci peuvent être
communes à plusieurs circuits.

Un autre souci est que, même si les numéros se suivent, l'ensemble ne
comporte pas tous les numéros : Exemple pour l'itinéraire 1 qui
comprend les lignes n° 18, 23 à 24, 28, 62, 92 à 104

Une solution serait de limiter le nombre de lignes (pourquoi pas
faire un circuit complet à main levée (Parkinsonien, s'abstenir...)
ou avec l'outil de dessin connecteurs.

Autre solution, mais que je ne maîtrise pas : regrouper les lignes
d'un circuit et affecter un nom à cet ensemble, nom qui serait
repris dans tes macros.
Mais il faudra quand même, au moins une fois, définir les noms avec
toutes les références des lignes.

Pense aussi à l'évolution de ton circuit (nouvelle voie, changement
de position d'un aiguillage...)
C'est pour cette raison que j'ai choisi un saut de ligne par dizaine
dans les codes (plus facile à modifier).


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Patrick
Est il possible de simplifier ce code en remplaçant "Line 1", "Line
2..........."Line 7".
Vue que les chiffres se suive ?
ActiveSheet.Shapes.Range(Array( _
"Line 1", "Line 2", "Line 3", "Line 4", "Line 5", "Line 6", "Line
7" _ , "Line 62" _
, "Line 92", "Line 93", "Line 94", "Line 95", "Line 96", "Line
97", "Line 98", "Line 99" _
, "Line 100", "Line 101", "Line 102", "Line 103", "Line 104" _
)).Select
Cordialement
Guy

"Patrick BASTARD" a écrit dans
le message de news:

Ou plutôt :

Sub RAZ()

For Each s In ActiveSheet.Shapes
If s.Type = 9 Then
s.Line.Weight = 0.75
s.Line.ForeColor.SchemeColor = 64
End If
Next
End Sub

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Bonjour, *Guy72*

Quelque chose qui ressemblerait (vaguement*) à celà, pour
remplacer la sub RAZ():
'*************************************************************
Sub RAZ()
On Error Resume Next
For i = 1 To 200
Fref = ActiveSheet.Shapes.Range("Line " & i)
ShapeRange.line.Weight = 0.75
ShapeRange.line.ForeColor.SchemeColor = 64
Next i
End Sub
'*************************************************************
*Vaguement, car je n'arrive pas à le formuler correctement,
désolé. Modeste, si tu nous écoutes ...


Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re
Est-il possible de faire Raz pour toutes les flèches (sans toutes
les nommer) ?
Car il faudra toutes les nommer et il y en aura au moins 100.
Cordialement
Guy

"Patrick BASTARD" a écrit
dans le message de news:
%23QXJh$
Bonjour, *Guy72*
Il me semble bien compliqué de colorier les bordures de tes
cellules, notamment pour les aiguillages.
Par contre, peut-être peux-tu colorier les flèches correspondant
aux itinéraires :
Exemple pour l'itinéraire 1:

http://cjoint.com/?fBnlpN5A3H

Qu'en penses-tu ?

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonjour Modeste
Oui effectivement je connais ce logiciel et bien d'autres à ce
sujet. Mais comme j'aime beaucoup travailler sur Excel je
voudrais représenter les itinéraires visuellement pour faire
les liaisons électriques. C'est vrais que cela peut-être
l'usine à gaz. Je vais quand même essayer rein que pour me
servir d'Excel. Merci de ton avis
Cordialement
Guy

"Modeste" a écrit dans le message de news:
euXxB$
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Après 42années de travail, j'ai décidé de faire un réseau
de train en modélisme.
J'ai fait un plan avec un logiciel de dessin.
Je suis entrain de le faire sur Excel pour simuler les
"itinéraires".




J'ai bien peur que cela tourne à l'usine à gaz....
je me suis moi-même lancé dans une gestion graphique par
section cela necessite la mise en table de tous les elements
individuels (longueur, rayon, orientation)
donc l'utilisation d'éléments standard ( pas de rail flexible,
ni d'élément raccourcis)

la représentation graphique (EXCEL) devient une horreur
au-dela de 20 sections (tailles, couleurs, etiquettes)

je te conseillerai, si tu ne le connais pas déja ce petit
programme gratos qui fait ce que tu souhaites, avec gestion
des itinéraires et simulation dynamique
voir là :
http://bahnvf.de/
../..
toutes les voies ainsi que toutes les circulations peuvent
être reproduites. Il est possible d'introduire des
itinéraires et des horaires complets, de diviser ou former
des rames - il existe des simulations de gares de triage où
les trains sont divisés de façon aléatoire et reformés
ensuite - de créer des circulations sur voie unique avec
signalisation de sécurité et même d'introduire une
signalisation aux carrefours... ../.. ensuite il y a aussi de
Microsoft Train Simulator ...

--
--
@+
;o)))

























1 2 3 4 5