Déplacement deux objets en même temps
Bonjour à tous,
Après avoir regardé plusieurs tutos, je me suis lance dans une animation mais je bloque a partir du moment ou il faut faire bouger deux objets en même temps.
Ce que j'arrive seulement à faire :
1 - Vérin avance puis recule
2 - Objet bleu avance
Ce que je souhaiterai faire :
1 - Vérin avance
2 - Avec le bon timing l'objet bleu avance
3 - Vérin revient et objet bleu continu à avancer
Je vous donne une idée de mon code, je pense savoir pourquoi cela ne marche pas : avec les boucles le déplacement de l'objet bleu ne se fait que lorsque les boucles sont terminées mais je ne sais pas comment faire autrement
Code :
Sub dplct()
'Dplct verin
Sheets("Sheet1").Shapes("Group 74").Left = 1122.75
Sheets("Sheet1").Shapes("Group 74").Top = 213.75
secondes = 0.1
For i = 1 To 22 Step 2
timer_avant = Timer
Do While Timer < timer_avant + secondes
DoEvents
Loop
Sheets("Sheet1").Shapes("Group 74").Left = 1122.75 + i
Next
For i = 1 To 22 Step 2
timer_avant = Timer
Do While Timer < timer_avant + secondes
DoEvents
Loop
Sheets("Sheet1").Shapes("Group 74").Left = 1144.71 - i
Next
'Dplct barquettes 1
Sheets("Sheet1").Shapes("Group 73").Left = 1159.456
Sheets("Sheet1").Shapes("Group 73").Top = 219
secondes = 0.1
For i = 1 To 215 Step 4
timer_avant = Timer
Do While Timer < timer_avant + secondes
DoEvents
Loop
Sheets("Sheet1").Shapes("Group 73").Left = 1159.456 + i
Next
End SubMerci d'avance.
Cordialement,
Allan
Bonjour,
Petit up car je suis toujours bloqué et je n'ai trouvé aucune solution après avoir essayer pendant 3 heures supplémentaires hier soir
Cordialement,
Allan
Hello,
Ca ne répondra peut être pas à ton problème, mais pourquoi tu te compliques la vie à le faire sur Excel obligatoirement ?
PowerPoint répond à ce besoin avec les animations, un collègue l'avait fait en moins de 2h .. A voir si tu as vraiment besoin de passer par Excel.
En attendant ton retour.
Salut salut
Puree mais c'est clair ! Pourquoi je n'ai pas pris ce recul ?! J'avance je te dis si tout se passe bien
Allan