Discussion :

[furye01]

Bonjour à tous,
étant novice en VBA je viens vers vous afin de demander de l'aide.
Je suis entrain (d'essayer) de réaliser une carte avec des aéronefs qui évoluent dessus.
N'ayant pas encore conscience qu'excel ne pouvait gérer plusieurs macro simultanément j'ai donc réaliser plusieurs modules et tout content ai essayé de faire fonctionner le tout. Échec. Une macro par une macro. Y aurait-il une solution afin de pouvoir soit faire fonctionner les modules simultanément soit de compiler les modules pour n'en faire qu'un seul ? Si il n'y a aucun moyen de faire fonctionner les modules ensembles il faudra donc que je repense mon projet différemment. Le but ultime final (countdown) de la mort qui tue serait que tel avion partent à une heure dite tout en faisant évoluer les autres de la même manière.
Pardon pour les GoTo dans mon code pas taper pas taper. Si jamais vous optimisez les modules merci de m'expliquer le pourquoi du comment afin que je puisse le reproduire seul ! oui je pense aux GoTo qui vont en embêter plus d'un, mais sur le moment je ne voyais pas comment faire plus simple.
Merci d'avance !

Oups je n'avais pas vu pour le fichier joint, si jamais il faut absolument l'enlever je l’enlève

[Marc-L]

Bonjour,

le déplacement d'un objet graphique devant être temporisé au centième de seconde
afin de laisser l’œil humain s'apercevoir d'un déplacement relatif dans l'espace de la fenêtre de la feuille de calculs,
rien n'empêche alors de déplacer plusieurs objets en même temps dans le même centième …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[furye01]

Bonsoir.
Oui en effet ceci paraît parfaitement logique. Cependant comme précisé en haut de ma requête je suis novice. Avez vous regardé mon ébauche pour savoir de quoi retourne la question précisement ?
Merci de votre aide.

[unparia]

Bonjour

Avez vous regardé mon ébauche pour savoir de quoi retourne la question précisement ?

Pas moi, en tout état de cause (et je ne prendrai jamais ce risque). Lis la deuxième phrase de ma signature.
Il t'appartient d'isoler et d'exposer techniquement, accompagnée du code tenté pour la résoudre, la difficulté rencontrée

[furye01]

Bonjour ! voici le code en question

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
Sub Transal1()
'
' Transal1 Macro
'
ville_dep = Application.InputBox("Ville de départ ?", Type:=2)
Sheets("Tableau").Range("A1").Value = ville_dep
ville_arr = Application.InputBox("Ville d'arrivée ?", Type:=2)
Sheets("Tableau").Range("A2").Value = ville_arr
 
 
    Sheets("Carte").Shapes("Image 2").Left = Sheets("Tableau").Range("B11")
    Sheets("Carte").Shapes("Image 2").Top = Sheets("Tableau").Range("C11")
 
    t = Sheets("Tableau").Range("D20")
 
    If Sheets("Tableau").Range("B14") < 0 Then
    GoTo negat
    Else
    If Sheets("Tableau").Range("C14") < 0 Then
    GoTo negat1
    Else
            secondes = t
            j = 1
            k = Sheets("Tableau").Range("B17")
        For i = 1 To Sheets("Tableau").Range("B14")
            timer_avant = Timer
                Do While Timer < timer_avant + secondes
                DoEvents
                Loop
                Sheets("Carte").Shapes("Image 2").Left = Sheets("Tableau").Range("B11") - i
                Sheets("Carte").Shapes("Image 2").Top = Sheets("Tableau").Range("C11") - j
                j = j + k
 
       Next
      GoTo fin
'---------------------------------------------------------------------------------
negat:
 
        If Sheets("Tableau").Range("C14") < 0 Then
        GoTo negat2
        Else
        secondes = t
        ActiveSheet.Shapes.Range(Array("Picture 2")).Select
        Selection.ShapeRange.Flip msoFlipHorizontal
        j = 1
        k = Sheets("Tableau").Range("B17")
        For i = 1 To Sheets("Tableau").Range("B15")
            timer_avant = Timer
                Do While Timer < timer_avant + secondes
                DoEvents
                Loop
                Sheets("Carte").Shapes("Image 2").Left = Sheets("Tableau").Range("B11") + i
                Sheets("Carte").Shapes("Image 2").Top = Sheets("Tableau").Range("C11") - j
                j = j + k
        Next
 
        GoTo fin
        End If
      End If
    End If
'-------------------------------------------------------------------------------------
negat1:
 
        If Sheets("Tableau").Range("B14") < 0 Then
        GoTo negat2
        Else
        secondes = t
        j = 1
        k = Sheets("Tableau").Range("B17")
        For i = 1 To Sheets("Tableau").Range("B15")
            timer_avant = Timer
                Do While Timer < timer_avant + secondes
                DoEvents
                Loop
                Sheets("Carte").Shapes("Image 2").Left = Sheets("Tableau").Range("B11") - i
                Sheets("Carte").Shapes("Image 2").Top = Sheets("Tableau").Range("C11") + j
                j = j + k
        Next
        End If
        GoTo fin
'-----------------------------------------------------------------------------------------
negat2:
        secondes = t
        ActiveSheet.Shapes.Range(Array("Picture 2")).Select
        Selection.ShapeRange.Flip msoFlipHorizontal
        j = 1
        k = Sheets("Tableau").Range("B17")
        For i = 1 To Sheets("Tableau").Range("B15")
            timer_avant = Timer
                Do While Timer < timer_avant + secondes
                DoEvents
                Loop
                Sheets("Carte").Shapes("Image 2").Left = Sheets("Tableau").Range("B11") + i
                Sheets("Carte").Shapes("Image 2").Top = Sheets("Tableau").Range("C11") + j
                j = j + k
        Next
        GoTo fin
 
 
fin:
End Sub
 
Naïvement j'avais écris ce code 4 fois pour faire bouger les 4 images. Mais ça c'était avant d'apprendre qu'excel ne pouvait gérer qu'une macro à la fois.

Merci à ceux qui pourront aider.

[unparia]

Bonjour
"petites" choses qui devraient de conduire à tout reconsidérer :
1) le déplacement d'un point (x0,y0) à un point (x1,y1) nécessite :
-- l'établissement de l'équation linéaire (de type y = ax + b) de la droite passant par (x0,y0) et (x1,y1),
-- puis de l'évolution point par point dans cette équation.
Je ne vois rien de semblable (qui relève de l'algèbre) dans ton code.
2) tes boucles while avec la fonction Timer sont à proscrire --->>
---- elles font souffrir le processeur
---- une boucle de cette nature "mobilise" et ne permet donc pas une seconde boucle de l'espèce pendant la durée de la première.

Première recommandation : ouvrir ton aide interne VBA et commencer par t'intéresser de très près à l'utilisation de Application.Ontine (rubrique Application.OnTime, méthode de ton aide interne VBA). Il y a mieux à faire (en utilisant des fonctions de l'Api de Windows), mais dans un premier temps, le débutant que tu es manifestement devrait à mon sens débuter et le faire donc sur la seule base de ce que lui offre son outil (VBA) de développement.

Bonne lecture, bonne étude et bon courage

[Pierre Fauconnier]

Avec ou sans forum, la méthode préconisée par unparia est la seule valide à mon sens, et on nous l'apprend depuis qu'on est tout petit: Mettre un pied devant l'autre.

[furye01]

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 essais

[mercatog]

En considérant le problème autrement avec comme données (pour chaque aéronef): un point de départ (Xi, Yi), un point d'arrivée (Xf, Yf), un temps de départ ti, une vitesse de vol constante V on peux déduire la position de l’aéronef (Xt, Yt) à l'instant t par: Xt=Xi+V.(t-Ti).Cos(phi) et Yt=Yi+V.(t-ti).Sin(Phi). Avec Tan(Phi)=(Yf-Yi)/(Xf-Xi).

Si c'est pour la pédagogie qui ne prend pas en compte l'évolution en temps réel sur la journée, une simple boucle permet de "photographier" la position des différents aéronefs sur chaque pas de temps.

Tant que NonArrivé
Calcul de la position des aéronefs
Affiche la position des aéronefs à l'instant i
i=i+1
Loop

Exemple à titre pédagogique

[Marc-L]

Salut mercatog !

Oui que ce soit via un pas ou par calcul de position temporelle   une simple boucle suffit …

Si les objets ont les mêmes principes - le cas de nos démonstrations - leurs caractéristiques peuvent être chargées
dans une variable tableau utilisée alors dans une seconde boucle interne à la principale, avant DoEvents,
afin d'éviter une redondance d'instructions pour chaque objet …

[furye01]

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 tu me l'as suggéré