Barre de progression avec macro

Bonjour,

J'ai un fichier Excel monté en VBA avec tableaux croisés dynamiques et autres.

J'ai créé des boutons (sauvegarde, fermer et Mise à jour du document.)

La mise à jour est particulièrement longue. J'aimerais y attacher une barre de progression (%) afin de suivre l'évolution de la mise à jour.

Après des heures de recherches le plus près que j'ai pu réaliser est d'avoir l'apparition de la boîte de dialogue, mais pas de défilement ou encore avoir un défilement et par la suite la mise à jour. Mais rien qui puisse se faire simultanément.

Des solutions?

Merci

Salut.

Sans plus d'explications sur la façon dont le code se déroule, il est malaisé de proposer une solution. L'affichage de la progression va encore plus ralentir l'exécution, à mon avis. De plus, Excel n'est pas nativement équipé pour cela.


Perso, je verrais bien l'utilisation de la barre de statut, mais de toute façon, la possibilité de rendre la main pour l'affichage va dépendre de ce qui est exécuté. Si la mise à jour consiste à récupérer des données externes comme une requête sql ou Access, je ne vois pas comment on pourrait afficher la progression de l'élaboration du Recordset dans Excel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Update() On Error GoTo Catch:   Application.StatusBar = "Traitement 1 en cours" Traitement1 Application.StatusBar = "Traitement 2 en cours" Traitement2   Catch: Application.StatusBar = False End Sub

---

On pourrait utiliser cela au sein d'une boucle, par exemple comme ceci. Bien entendu, la procédure Treatment est donnée ici uniquement pour donner une idée de progression

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Update() Dim i As Long   On Error GoTo Catch   For i = 1 To 47 Application.StatusBar = Format(i / 47, "0.00%") Treatment Next   Catch: Application.StatusBar = False   End Sub   Sub Treatment() Dim i As Long Dim CountOf As Long   CountOf = Int((1000000000 - 500000000 + 1) * Rnd + 500000) For i = 1 To CountOf Next End Sub

---

Et si on veut vraiment s'amuser avec une barre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Update() Dim i As Long   On Error GoTo Catch   For i = 1 To 47 Application.StatusBar = String(i / 47 * 100, "|") & String(100 - (i / 47 * 100), " ") & "|" Treatment Next   Catch: Application.StatusBar = False   End Sub

---

Pièce jointe 582613