Discussion :

[denissmile]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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