Objet en mouvement

[snotpm]

Bonsoir à tous,...

J'aimerais créer sur excel un ligne avec les arrêts de bus et j'aimerais y ajouter des petits ronds qui se déplaceraient d'après l'heure.

Je travail pour une entreprise de transport urbain et ils m'ont demandés de créer cela enfin d'y essayer...

Si vous voullez que je vous envoie un fichier pour que cela soit plus compréhensible... je le fais sans problème...

Meilleures salutations


SNOTPM

 

[Habitude]

Re : Objet en mouvement

Des volontaires ?


D'abord
Ton tracé n'est pas a échelle, tu augmente de beaucoup la difficulté

Grosse-Pierre
Bellevue
sont 2 itinéraires à la même heure

Même chose pour
Banc-Vert
La Tour

Tu va bouger les bus comment ?

Les heures et les minutes dans ton horaire ne sont pas dans la même cellule !

Je compte 5 Bus en circulation.
Les mettre sur le même tracé, pas sure que c'est une bonne idée.

 

[Si...]

Re : Objet en mouvement

Bonsoir

le plus délicat n'est pas le déplacement d'une forme mais la gestion des durées qui doivent être précises!
Un exemple, avec des durées et temps d'arrêt respectivement identiques.

 

[snotpm]

Re : Objet en mouvement

bonsoir à toutes et à tous,...

je joins un fichier parce que j'ai un petit problème... j'ai crée la macro et tous les reste mais le rond rouge ne se déplace pas du tout...


Est-ce que quelqu'un pourrait m'aider svp...


Merci d'avance de vos réponses et vous souhaite une bonne soirée


Meilleures salutations

SNOTPM

 

[tototiti2008]

Re : Objet en mouvement

Bonjour,

peut-être :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Nb As Long
If Target.Address = "$C$4" Then
If Application.CountIf(Range("B11:K11"), CDbl(Target.Value)) > 0 Then
    Nb = CLng((Target.Value - Range("B11").Value) * 60 * 24)
    With ActiveSheet.Shapes("Oval 1")
        .Left = Range("B11").Offset(0, Nb).Left + 26
        .Top = 150
    End With
End If
End If
End Sub

 

[snotpm]

Re : Objet en mouvement

Bonsoir,...


Merci beaucoup mais ça fonctionne pas 🙁

Mais merci de ton aide...

Meilleures salutation


SNOTPM

 

[tototiti2008]

Re : Objet en mouvement

Re,

et quelle heure saisis-tu ?

 

[snotpm]

Re : Objet en mouvement

j'ai mis en Cellule B4 la formule : =maintenant()

et je l'actualise avec F9 et j'aimerais que le rond rouge se déplace mais ça ne fonctionne pas


Pourrais-tu m'aider stp


Meilleures salutations

SNOTPM

 

[snotpm]

Re : Objet en mouvement

Bonsoir à toutes et à tous,...

Est-ce que quelqu'un pourrait m'aider svp...


J'ai chercher encore et encore mais je ne trouve pas de solution pour pouvoir faire fonctionner ma macro...

Alors si il y a quelqu'un qui arrive à me donner une solution, cela m'aiderai vraiment ... merci d'avance pour vos réponses...

PS : je vous remets le dossier...

Meilleures salutations

SNOTPM

 

[tototiti2008]

Re : Objet en mouvement

Bonjour,

et si tu reprends mon code et à la place de maintenant, tu tapes 16:40 par exemple ?

Edit : 16:40 est un mauvais exemple 😉
essaye 16:39 ou 16:41

Le 16:40 ne fonctionne pas... on verra pourquoi si ça va dans le sens que tu veux

 

[snotpm]

Re : Objet en mouvement

Bonjour,

effectivement tototiti2008 les code que tu as mis plus haut fonctionne parfaitement et cher moi il fonctionne aussi avec 16:40 et toutes les autres heures

Mais devoir change sans arrêt leur n'est pas le but, le but c'est que le point rouge se déplace automatiquement sans que l'on doive changer sans cesse l'heure dans la case vert


Alors comment faire cela ? la formule maintenant(), ne fonctionne pas, avec un collage en liaison, non plus, avec un simple =, non plus alors je ne sais comment faire...

J'attends avec impatience de vos réponses pour qu'on trouve une solution à ce problème

Meilleures salutations

SNOTPM

 

[snotpm]

Re : Objet en mouvement

Bonsoir à toutes et à tous...


Est-ce que quelqu'un arriverait à me trouver une solution pour ceci ?

J'attends avec impatience de vos nouvelles et vous envoie à toutes et à tous mes meilleures salutations


SNOTPM

 

[snotpm]

Re : Objet en mouvement

Bonsoir à toutes et à tous,


Je joins un fichier et j'aimerais savoir si cela est-possible ???


J'attends avec impatience de vos nouvelles et vous envoie mes salutations les meilleures

SNOTPM

 

[JCGL]

Re : Objet en mouvement

Bonjour à tous,

N'a rien à voir avec le fichier de notre ami mais plutôt avec le sujet de cette discussion.

Un beau codage de mon ami Marco57 🙂 sur le déplacement d'objet : ICI sur VériTi

A+ à tous

 

[bcharef]

Re : Objet en mouvement

Bonsoir snotpm, Habitude, phlaurent55, tototiti2008 & JCGL,
Bonsoir à toutes et à tous.

Un essai sans VBA, dans l'espoir qu'il conviendra au problème.

Je suis preneur pour toutes modifications utiles.

Salutations distinguées.

BCharef

 

[Fo_rum]

Re : Objet en mouvement

Bonsoir

un autre essai (mouvement accéléré, non en temps réel).