Retour à la FAQ

bcc wrote:
bonjour
est-il possible d'afficher une animation pendant l'exécution d'une macro
assez longue, du type défilement de point comme lors de l'install d'un programme?
merci

Subject: Re: animation
Date: Mon, 30 Oct 2000 21:41:10 +0000
From: Thomas Corvaisier
Newsgroups: microsoft.public.fr.excel

REPONSE DE THOMAS.

Bonjour,

Tu peux placer dans le code de ta macro, à intervalles réguliers,
l'instruction de ton choix pour prévenir l'utilisateur de l'état des travaux.

Par exemple, tu peux afficher un message dans la barre d'état :

Sub GrosCalcul()
Dim i As Long
For i = 1 To 1000000
' fais des trucs
' plein de trucs
' une quantité impressionnante de trucs
' ça y est, les trucs sont finis pour ce i
If i Mod 10000 = 0 Then
Application.StatusBar = Int(i / 10000) & "% effectués"
End If
Next i
Application.StatusBar = False
End Sub

Ou encore, au lieu de modifier la barre d'état, tu peux afficher des
points dans une cellule comme tu le suggères :
Range("A1") = Range("A1") + "."
Tu trouveras sur le site de John Walkenbach un exemple de barre de
progression d'aspect professionnel :
http://www.j-walk.com/ss/excel/tips/tip34.htm

Quelle que soit la technique choisie, sache que ces instructions
ralentiront l'exécution de ton code. A toi de voir s'il vaut mieux
privilégier la rapidité ou la convivialité.

EQCTA
Thomas

[top]