Discussion :

[selya0]

Bonjour,

Je suis relativement nouvelle dans le monde "VBA", cela me passionne et j'apprends grâce à internet.

J'ai créer un fichier excel pour les besoins de mon travail qui traite une bdd grâce à plusieurs macro regroupées sous la fonction call :

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
24
25
26
27
Sub macro_generale()
 
 
'Désactiver calcul automatique + actualisation de l'écran
 
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
 
Call catego1
Sheets("bdd").Select
Call mono_multi
Sheets("bdd").Select
Call evolution_part_commandes
Sheets("bdd").Select
Call quartilev3
Sheets("bdd").Select
Call existing_ppt
Sheets("bdd").Select
 
 
'Réactiver calcul automatique + actualisation de l'écran
 
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
 
End Sub

La taille de la bdd pouvant varier en nombre ligne, le temps de traitement est fluctuant.
J'aimerais pouvoir implanter une barre de progression lors du traitement de la bdd (de 0 à 100% si possible).
Or je ne trouve aucune solution sur le net. Ma macro n'utilise pas de for (pas de boucle), et je ne dispose pas de la Microsoft Office Progress Bar.

Quelqu'un peut-il me sauver ?

Merci par avance,

Célia

[BENNASR]

bonsoir
voir la proposition de rdurupt (pour moi et comme débutant je te conseille d'éviter cet usine à gaz : https://www.developpez.net/forums/d1...cro-s-execute/

[nouveauvba]

bonjour,
j'avais il y a longtemps trouver sur internet une solution empirique et "aléatoire" (l'objectif était de voir que le programme ne plantait pas).
Un userform avec un label avec un width de 200 et une backcolor rouge

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Activate()
    'ouvre un barre de progression
    UserForm1.Label2.Width = 0
   Call 'le programme adéquat
 
End Sub

Un petit sub que j'appelle à des moment précis

Code :

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

1
2
3
4
5
6
7
Sub barre()
With UserForm1
.Label2.Width = .Frame1.Width - cstdeprog 'cstdeprog étant un chiffre compris entre 0 et 200 qui en fonction de l'évolution du programme
End With
DoEvents
 
End Sub

et je plaçait dans le cour du programme global, une valeur choisie (croissante à chaque pallier) de cstdeprog de façon a faire bouger la barre
exemple

Code :

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

1
2
barre.cstdeprog = 5
barre.barre

Ce n'est pas rigoureux mais ça marche pour indiquer où on en est dans le programme....

[selya0]

Merci à vous deux de votre aide et de votre réactivité !

Je teste tout ça et vous dit si ça marche