Bonjour,
J'ai récupéré un code qui permet de générer une barre d'attente dans un userform, sur le site de notre bon http://boisgontierjacques.free.fr/
Ce que je souhaite c'est intercaler l'appel de macro dans la boucle du type
call ..
Je souhaite appeler 4 - 5 macros avec la barre d'attente qui tourne en même temps.
Malheusement je sais pas trop comment ça peut marcher les quelques tests ont provoqué la fermeture d'excel lol
Public témoin As Boolean
Sub Attente()
n = 20 ' nb de fichiers à traiter
témoin = True ' pour empêcher fermeture du formulaire
F_BarreAttente.Show
For f = 1 To n
'-- simulation traitement fichier
For a = 1 To 50000000: Next a ' Simulation attente
'--------------
p = p + 1 / n ' calcul du pourcentage
F_BarreAttente.Label1.Width = p * 100
F_BarreAttente.Caption = Format(p, "0%")
DoEvents
Next f
témoin = False
Unload F_BarreAttente
End Sub