problème d'affichage

[mromain]

bonjour le forum

tout d'abord, désolé pour le titre pas très explicite, mais je n'ai pas réussi à trouver mieux...

j'ai 2 macros qui font la même chose : faire tourner une forme, avec des pauses entre chaque rotations.

Public Declare Sub Sleep Lib "Kernel32.dll" (ByVal dwMillisenconds As Long)

Sub test1()
With ThisWorkbook.Sheets("Feuil1").Shapes("Larme 1")
    For i = 1 To 4
        .Rotation = i * 90 Mod 360
        Application.Wait (Now + TimeValue("00:00:01"))
    Next i
End With
End Sub

Sub test2()
With ThisWorkbook.Sheets("Feuil1").Shapes("Larme 1")
    For i = 1 To 4
        .Rotation = i * 90 Mod 360
        Sleep 1000
    Next i
End With
End Sub

lorsque j'utilise "Application.Wait", je suis limité à des pauses de 1 seconde (je veux en faire des plus courtes).

lorsque j'utilise "Sleep", l'affichage de la forme ne se met à jour qu'à la fin de ma macro. Du coup, je ne vois pas les "crans" de la rotation. (en mode pas à pas, on voit que la rotation s'effectue correctement).

quelqu'un aurait-il une solution pour :
- soit utiliser "Application.Wait" avec des millisecondes
- soit "rafraichier / redessiner" le Shape à la demande

voir le fichier joint

 

[PascalXLD]

Re : problème d'affichage

Bonjour

si tu fais ainsi ça marche

Sub test2()
With ThisWorkbook.Sheets("Feuil1").Shapes("Larme 1")
    For i = 1 To 4
        .Rotation = i * 90 Mod 360
        Sleep 1000
        Application.ScreenUpdating = True
    Next i
End With
End Sub

 

[Hulk]

Re : problème d'affichage

Hello Mromain, Pascal, Forum,

Comme ceci aussi...

Bonne journée et bon week à vous !

Cdt, Hulk.

EDIT : l'avantage ici, si ça en est un, c'est qu'on peut travailler durant la macro...
Bye.

 

[mromain]

Re : problème d'affichage

bonjour PascalXLD

merci beaucoup, c'est nickel 🙂

a+


edit: bonjour Hulk, j'ai regardé ta solution --> nickel aussi

 

[vbacrumble]

Re : problème d'affichage

Bonjour


Pour les millisecondes, tu pourrais employer ceci non ?
(sauf erreur de ma part)

Private Declare Function GetTickCount Lib "kernel32" () As Long

 

[mromain]

Re : problème d'affichage

bonjour vbacrumble,

merci, je ne connaissais pas cette fonction, ça serait une solution aussi...

a+