Faire pivoter deux formes sous condition

[Lone-wolf]

Bonjour le Forum,

j'aimerais faire pivoter en même temps deux formes, mais, sous condition.
Une de 0 à 360°, l'autre 360° à 0.
Pour l'instant j'ai ceci:

Sub essai1()

    With ActiveSheet.Shapes("Shape1")
    For x = 1 To 5
        For i = 0 To 360 Step 1
            Application.Wait Time:=Now() + 0.000002
            .Rotation = i
        Next i
        Next x
     End With
End Sub

Sub essai2()

    With ActiveSheet.Shapes("Shape2")
    For j = 1 To 5
        For k = 360 To 0 Step -1
            Application.Wait Time:=Now() + 0.000002
            .Rotation = k
        Next k
        Next j
        End With
End Sub
Sub Test()
Call essai1
Call essai2
End Sub

Je vous joint le fichier.


A+

 

[Softmama]

Re : Faire pivoter deux formes sous condition

Bonjour,

à tester, mais ceci devrait résoudre ton problème :

Sub essai()

        For i = 0 To 1800 '1800=360*5
            Application.Wait Time:=Now() + 0.000002
            ActiveSheet.Shapes("Shape1").Rotation = i
            ActiveSheet.Shapes("Shape2").Rotation = 360 - i
        Next i
End Sub

 

[Lone-wolf]

Re : Faire pivoter deux formes sous condition

Bonjour Softmama,

nickel! Merci pour ton intervention.

Good Week