VBA fun barre attente et macro

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
94f-barreattente.xlsm (19.36 Ko)

Bonjour,

Ce tuto t'aidera peut-être

www.blog-excel.com/barre-de-progression-excel

Cordialement,

Bonjour sebastien,

Merci pour ton aide, j'ai déjà vu ton tutoriel qui est très bien fait.

Le code présenté dans mon premier message fonctionne parfaitement, juste que je souhaite que la barre avance en même temps que l’exécution des macros appelées avec un call. Je sais pas si cela est possible !!

'l'idée du code qui n'est pas fonctionnel

For a = 1 To 50000000

call texte 'macro mise ne forme
call copie 'macro copie nouvel onglet
call suppdoublon 'macro suppression doublon
'etc...

Next a

Quel est le problème exactement ? Est-ce que le fichier en PJ répond à ta question ?

237f-barreattente.xlsm (22.36 Ko)

Oui ça correspond à ce que je souhaite faire.

Merci je passe en résolu

Rechercher des sujets similaires à "vba fun barre attente macro"