OVH Cloud OVH Cloud

Aspect du pointeur de la souris

2 réponses
Avatar
StDonat
Bonjour,
Dans un userform, j'ai un bouton qui lance un calcul, un peu long, ce calcul
jongle entre divers pages excel et divers modules et pour finir il affiche le
tout dans un list box a 7 colonnes du meme userform .Mon probleme je voudrais
que pendant le calul l'aspect de la souris passe en sablier j'utilise donc
"MousePointer=fmMousePointerHourglass" cela fonctionne mais pas suffisament
longtemps!la souris reprends son affichage normal avant la fin du calcul?
Merci de votre aide

2 réponses

Avatar
RV
Bonjour StDonat

A mettre en début de macro
Application.Cursor = xlWait (sablier)

A mettre en fin de macro
Application.Cursor = xlDefault

Cordialement
RV



"StDonat" a écrit dans le message de
news:
Bonjour,
Dans un userform, j'ai un bouton qui lance un calcul, un peu long, ce
calcul
jongle entre divers pages excel et divers modules et pour finir il affiche
le
tout dans un list box a 7 colonnes du meme userform .Mon probleme je
voudrais
que pendant le calul l'aspect de la souris passe en sablier j'utilise donc
"MousePointer=fmMousePointerHourglass" cela fonctionne mais pas
suffisament
longtemps!la souris reprends son affichage normal avant la fin du calcul?
Merci de votre aide



Avatar
StDonat
Merci Nickel ce que je voulais!!



Bonjour StDonat

A mettre en début de macro
Application.Cursor = xlWait (sablier)

A mettre en fin de macro
Application.Cursor = xlDefault

Cordialement
RV



"StDonat" a écrit dans le message de
news:
Bonjour,
Dans un userform, j'ai un bouton qui lance un calcul, un peu long, ce
calcul
jongle entre divers pages excel et divers modules et pour finir il affiche
le
tout dans un list box a 7 colonnes du meme userform .Mon probleme je
voudrais
que pendant le calul l'aspect de la souris passe en sablier j'utilise donc
"MousePointer=fmMousePointerHourglass" cela fonctionne mais pas
suffisament
longtemps!la souris reprends son affichage normal avant la fin du calcul?
Merci de votre aide