Affichage sablier pendant l'execution d'un code vba
Bonjour à tous,
J'ai 2 PC identiques HP Pavilon ayant même version de Windows 10 et d'Excel 2016
Je lance la macro VBA Excel ci-dessous pour faire apparaître un sablier pendant son exécution
Cela fonctionne parfaitement sur le premier PC mais ne fait rien sur l'autre :(
Comment expliquer cela ?
Merci par avance si quelqu'un a une idée
Code:
1
2
3
4
5
6
7
8
| Sub ChangeCursor()
Application.Cursor = xlWait
For x = 1 To 5000
For y = 1 to 5000
Next y
Next x
Application.Cursor = xlDefault
End Sub |
