[Résolu] Calculer à l'envers l'incrémentation dans la macro

[Lone-wolf]

Bonsoir à tous,

comment calculer à l'envers la macro suivante?

For n = 1 To 34
ActiveSheet.Shapes.Range(Array("Fourches")).Top = ActiveSheet.Shapes.Range(Array("Fourches")).Top + 2.2
ActiveSheet.Shapes.Range(Array("Charge")).Top = ActiveSheet.Shapes.Range(Array("Charge")).Top + 2.2
ActiveSheet.Shapes("Fourches").IncrementLeft 5 / 20
ActiveSheet.Shapes("Charge").IncrementLeft 5 / 20
t = Timer + 0.15: Do Until Timer > t: DoEvents: Loop: Clignoter vitesseClignotement
Next

Ici les fourches et la charge se baissent, j'aimerais faire remonter celles-ci sans que les fourches ne se déplacent sur la droite.

Edit: le code est à insèrer dans le module Prise_2. Désolé pour l'édit.


Merci pour votre aide.



A+

 

[camarchepas]

Re : Calculer à l'envers l'incrémentation dans la macro

Bonsoir,

Et oui , cela me rappelle de bons souvenirs ...

Pas mal du tout ton animation . cela peut être très pédagogique.

pour la montée voici.

Il faudrait peut être mettre en prise d'origine a chaque nouveau départ car ça décale un peu

Néanmoins , félicitations

For n = 1 To 34
ActiveSheet.Shapes.Range(Array("Fourches")).Top = ActiveSheet.Shapes.Range(Array("Fourches")).Top - 2.2
ActiveSheet.Shapes.Range(Array("Charge")).Top = ActiveSheet.Shapes.Range(Array("Charge")).Top - 2.2
ActiveSheet.Shapes("Fourches").IncrementLeft -5 / 20
ActiveSheet.Shapes("Charge").IncrementLeft -5 / 20
t = Timer + 0.15: Do Until Timer > t: DoEvents: Loop: Clignoter vitesseClignotement
Next

 

[Lone-wolf]

Re : Calculer à l'envers l'incrémentation dans la macro

Bonjour camarchepas, Efgé.

désolé pour le retard camarchepas, je me suis lever il y à 15mn environ. Je vais regarder ça et je te redis.

@Efgé, merci pour le Like.


A+

 

[Lone-wolf]

Re : Calculer à l'envers l'incrémentation dans la macro

Re camarchepas,

Impeccable, sur mon écran il n'y a pas de décalage. Peut-être est-ce dù à la résolution d'écran.
Et dire que je me suis cassé la tête pour un simple moins...

Dans tout les cas, encore merci pour ton aide.


Très bonne journée