Barre de progression

Question

J'ai besoin d'afficher une barre de progression pendant l'execution de ma longue macro qui doit insérer des tableaux dans chaque onglet. est ce qu'il y a quelqu'un qui pourrait m'aider Svp ? Merci d'avance...

Geof52 · Accepted Answer

Une solution possible est de créer un Userform avec une image a fond coloré qui augmente sa largeur suivant la progression de ta macro qui insert les tableaux Un texte peu aussi indiquer le % de progression...

Geof52 · Accepted Answer

Pas de probleme, c'est juste un exemple (puisqu'il y a plusieurs façon de faire, si plus tard tu veux créer toi meme ta barre de progression).
1 ) - Ici pour l'exemple je choisis de démarrer la progression avec un temps (qui va de 0% a 100% avec la ligne For i = 0 to 100)

2 ) On peut imaginer que tu as plusieurs étape pour ta macro déja créé et on peut directement donner un pourcentage a la barre (moins fluide mais plus réaliste du temps passé et qui reste a faire.

______________________________________

On va voir le cas 1
Dans Module 1

Sub Delai()
    'On affiche l'userform de la barre de progression
    UserForm_BarreProgression.afficher
...
End Sub

Dans l'userform clic droit sur pour acceder au code qu'il contient

Il faut savoir que le nom de l'image est "Barre"
le Label 2 qui indique le % est "BarreTexte"

Public Sub UserForm_initialize()
Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2
End Sub

La procedure d'initialisation se lancera toujours en premier quand l'userform s'ouvre.

Ici Me.Left et Me.Top vont seulement positionner l'userform au centre du classeur
(la formule traduite c'est => la gauche de l'userform = le positionnement du classeur a gauche + moitié de la taille du classeur - moitier de l'userform)

    UserForm_BarreProgression.afficher

Dans le module 1 on a appelé l'userform_barre progression.afficher

Sub afficher()
    Me.Show 0
End Sub

Ici Me.show 0 va ouvrir l'userform en modal ce qui fait qu'il n'arrete pas les évenements qui se passe en meme temp comme ta macro pour tableau.

__________________________________

L'affichage de l'userform fait maintenant on se retrouve de nouveau dans le module 1 pour :

For i = 0 To 100
UserForm_BarreProgression.actualiser (1 * i)
pause 1
Next i

Pour simplifier je vais expliquer avec Pause 1

Je prend une boucle "FOR" qui va prendre la valeur de "i" pour le pourcentage donc je suis parti de 0 a 100.

=> UserForm_BarreProgression.actualiser [tu te retrouve dans l'userfom et la partie Actualiser
=> (1 x i ) va indiquer le pourcentage a la place de taux dans cette partie ci dessous

Sub actualiser(taux As Integer)
    Barre.Width = BarreTexte.Width * taux / 100
    BarreTexte = taux & " %"

    If taux = 100 Then
        Application.Wait (Now + TimeValue("00:00:02"))
        Unload Me
    End If
    DoEvents
End Sub

Barre. width controle la largeur de l'image qui va correspondre au taux / 100
BarreTexte = taux pour indiquer la progression en texte

If Taux = 100 n'est pas necessaire c'est seulement pour que le 100% reste 2 seconde avant que l'userform se ferme pour bien montré qu"il a été au bout du poucentage.

DoEvents permet de mettre a jour les données changées.

La partie actualiser est passé de i = 0 on se retrouve sur Pause 1

For i = 0 To 100
UserForm_BarreProgression.actualiser (1 * i)
pause 1
Next i

Pause 1 fait appel a la procedure juste dessous

Sub pause(duree As Double)
Dim finpause As Double
finpause = Timer + duree
Do While Timer < finpause
DoEvents
Loop
End Sub

En gros si "pause 1" c'est une temporisation de 1 seconde donc dans "pause 0.1" tu vas 10x plus vite qu'une seconde.

Next i

Pause 1 est effectué on passe a "next i" donc la boucle For passe de 0 a 1

_________________________________________

For i passe de 0 a 100

a i = 100 la procedure attend 2 seconde et se ferme avec

Unload Me

N'hésite pas si c'est pas clair mais si tu as compris le princpe :

______________________________________________

La 2°) façon de faire que je parle au début a juste besoin d'une valeur i entre 0 et 100 entre chaque étape de ta macro creation de tableau grace a :

UserForm_BarreProgression.actualiser 0
UserForm_BarreProgression.actualiser 12
UserForm_BarreProgression.actualiser 34
UserForm_BarreProgression.actualiser 67
UserForm_BarreProgression.actualiser 100

______________________________________________

Pour info peut-etre que les fenetre propriétés et variables locales ne sont pas actifs tu devrais les mettres pour simplifier la vie

Tu peux décomposer la macro aussi en mode "pas a pas" avec la touche [F8] quand tu es sur Sub Delai() ([F8] pour chaque étape)

_______________________________________________________________________________________________________________________________________________

Pour savoir ou placer ta macro, (sans savoir ce que tu as fais) je te dirais de mettre Delai au début de ta macro comme ça la progression commence au debut de ta macro et il faudra adapter le temps de progression donc soit jouer avec pause 1 [en pause 0.5 / pause 1.75 / ou autre]
Ou changer le for 1 to 100 et le (1 * i ) [en i=0 to 50 (2*i) / i=0 to 33 (3*i) / ...] qui te permet de faire plusieurs pourcentage en 1 seconde

Test et n'hésite pas a poster ce que tu as fait seulement si il n'y a pas d'information confidentielle.

A+

BsAlv · Accepted Answer

Moi, je n'aime pas un bar de progression, j'ajoute uniquement des message au statusbar et cela au max une par seconde. je vois par exemple ActiveSheet.Range("A210:AC411").Select For Each cell In Selection If Not cell.Locked Then cell.Locked = True End If Next cell ou ActiveSheet.Range("A210:AC411").Locked = True...

LouReeD · Accepted Answer

BsAlv bonsoir ! une proposition de simplification : '---------------------------------------------------- '------------------------ HD ------------------------ '---------------------------------------------------- Worksheets("HD").Unprotect Sheets("HD").Range("A8:AE42").Copy Sheets("HD").Rows("8:8").Resize(36).Insert Shift:=xlDown Sheets("HD").Range("A8:AE42").PasteSpecial xlPasteAll ' on efface toute la plage Sheets("HD").Range("A8:AE42").ClearContents Sheets("HD").Range("A8").Value = "Suivi budgétaire " & Year(Date) & "-" & Format(Date, "mm") & "N" Sheets("HD").Range("A9").Value = Year(Date) & "-" & Format(Date, "mm") & "N" ' on "lock" toute la plage ActiveSheet.Range("A43:AE76").Locked = True Worksheets("HD").Protect Password:="", UserInterfaceOnly:=True ActiveSheet.Protect AllowFiltering:=True, AllowFormattingColumns:=True Sheets("HD").Range("A1").Select A voir si cela fait toujours ce qui est attendu ! En fait suppression des boucles sur les cellules "individuellement", la plage est gérée en une seule fois. Les autres boucles sont faites sur le même principe, alors... @ bientôt LouReeD...

LouReeD · Answer

La question que l'on peut se poser est : Pourquoi la macro est si longue ? Autant avec une retouche du code cette barre de progression n'est plus utile ! Dans les applications que je propose j'en ai mise une à disposition, mais comme c'est indiqué c'est du "cosmétique", car une simple "WaitBox" peut suffire sans alourdir le code VBA. Mais pour avancer dans ce projet un fichier nous serait utile. @ bientôt LouReeD...

Geof52 · Answer

Bonsoir LouReeD , Effectivement, c'etait la premiere question a poser. Personnellement j'ai eu besoin de cette barre de progression pour faire de la manipulation sendkeys et j'ai volontairement temporisé la macro pour que chaque poste utilisateur fonctionne correctement. A+...