Discussion :

[johnlee]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MisterP93]

Est-ce que tu as essayé d'ajouter quelques zéros à tes boucles ?