Recherche:

Je n'ai rien perdu, merci de votre coup de main !

pas de soucis. Merci de ton aide !

Ah oui bien l'appel tout seul. La procédure fin afin de ne pas tomber dans une boucle infinie je suppose. Non non tu n'en es pas la cause loin de là, j'ai pas mal appris en 3 jours sur le fait de...

comme ceci ?

Sub testtime()
Dim temps
ThisWorkbook.Sheets("tab").[A1] = Now
temps = Now + TimeValue("00:00:01")
Application.OnTime temps, "lancement", , True
End Sub

D'accord. J'ai essayé de temporiser la boucle à 1s mais sans succès, avec un application wait, aurais tu une astuce ?

je préfère passer pour un âne à demander mais être sur a 100%

Bon bah super merci beaucoup pour ce code, aurais tu une piste pour que je cherche à l'améliorer ? mine de rien cela me fait bien...

Avec ce genre de boucle es tu limité en nombre d'avion?

merci beaucoup pour ces précieuses indications. C'est comme cela que tu as procédé pour ton premier exemple ?

pour la formule j'essaye ceci (vitesse réelle pour le moment)

Xt = Sheets("Tableau").Range("B11") + 83.3 * (i - Ti) * k
Yt = Sheets("Tableau").Range("C11") + 83.3 * (i - Ti) * k

Quand je...

Hum, tu dis afficher par rapport à i. Je ne vois pas comment faire ? Pour les formules pas de soucis ça roule

@Marc-L
Oui en effet j'ai lu un peu trop vite et en regardant le résultat je n'ai pas fait attention. Merci pour ton exemple je pense qu'il pourra me resservir.

@mercatog
Pour les unités pas de...

je trouve un peu rapide le défilement des secondes non?

D'accord merci. Pour le cas basique j'arrive à faire bouger une image d'un point A un point B comme dit dans mon premier post. Certes c'est pas le code le plus efficace et il me manquait sûrement des...

Merci pour vos précisions. Je viens de me rendre compte Mercatog que les formules que tu as communiqué et bien en fait sans le savoir je les ai déjà appliquées à ma première ébauche. La ligne ratio...

D'accord. Une question par rapport à Ti, mes horaires sont au format usuel c'est à dire hh:mm:ss. Comment dois-je l'adapter pour qu'il puisse rentrer dans la formule indiquée ci dessus ?

Salut Mercatog.
Je n'avais envisagé cela comme tu l'as fait. Mais c'est exactement ça le but de mon résultat final


merci Marc pour l'indication de la variable tableau je creuse de ce côté comme...

Super merci beaucoup ! je vais suivre tes instructions, je n'avais pas vu le problème sous cet angle. Un grand merci unparia, et bien sur à tout ceux qui ont contribué! je code et je viens poster mon...

Pour moi la demande est claire. Il faudrait que les 4 avions progressent simultanément selon leurs heures de décollage / atterrissage et en fonction de leurs destinations. j'arrive à le faire pour un...

je suis entrain de réécrire le code en suivant vos instructions. Après si je ne suis pas assez clair dites le moi je rééxplique

Qu'avez vous compris d'ailleurs ? ça permettra de voir si c 'est...

Mais est ce que je dois obligatoirement attendre qu'un objet arrive à destination pour passer à un autre départ ?


Sub Transal1()
'
' Transal1 Macro
'
ville_dep = Application.InputBox("Ville...

Merci pour ton squelette. Avec mes maigres connaissances et après mon échec de la double macro j'étais donc repartit sur un code toujours aussi moisi mais avec une architecture similaire à la tienne....

La en mettant en application ce que tu m'as dis j'arrive à faire bouger un image mais je ne vois pas comment faire bouger les 4 dans le même code

Je ne doute pas de ta capacité de compréhension...

Cool, merci je reviens une fois un bout de code sorti :)

Bon pas encore de code. Comment tu vois le truc avec OnTime? j'ai bien compris que je pouvais exécuter des actions à une heure précise...

Super merci beaucoup pour tes précisions utiles. Aurais-tu un exemple de code avec cette fonction ontime ? Que je puisse comprendre avec un exemple en application?

Bonjour ! voici le code en question

Sub Transal1()
'
' Transal1 Macro
'
ville_dep = Application.InputBox("Ville de départ ?", Type:=2)
Sheets("Tableau").Range("A1").Value = ville_dep...