Création d'une Progress Bar

Re : Création d'une Progress Bar

bonsoir

voir les codes dans ce classeur (de je ne sais plus qui)
qui indiqué que DoEvents était plus rapide que Repaint

Re : Création d'une Progress Bar

Bonsoir, Djibouti

Pas facile à maîtriser, mais si tu connais un peu le vba, essaie ça :

1 - Active un UserForm dans le Visual Basic Editor.
2 - Fais un clic droit sur la boîte à outils et sélectionne Contrôles
supplémentaires.
3 - Dans la liste déroulante, sélectionne Microsoft ProgressBar Control,
version 6.0.
4 - Clique sur OK pour fermer la boîte de dialogue et ajoute le contrôle
dans la boîte à outils.



Le code lançant l'indicateur de progression 😕

Sub StartProcessing1()
Dim lngTotal As Long, lngI As Long
Load frmProgressBar
With frmProgressBar .ProgressBar.Scrolling = ccScrollingStandard .Show
End With
UpdateProgressBar 0, "Processing..."
lngTotal = 2000
For lngI = 1 To lngTotal
If lngI Mod 50 = 0 Then
UpdateProgressBar lngI / lngTotal * 100, "Processing " & Format _ (lngI / lngTotal, "0%") & "..."
End If
Range("D1").Formula = Format(Time, "hh:mm:ss")
Next lngI Range("D1").ClearContents
frmProgressBar.Hide Unload frmProgressBar
End Sub

Code lié à la macro UpdateProgressBar

Private Sub UpdateProgressBar(NewValue As Single, Optional NewCaption As String)
With frmProgressBar
If Not IsMissing(NewCaption) Then
.Caption = NewCaption .ProgressBar.Value = NewValue
If NewValue = 0 Then
.Repaint
End With
End Sub

Lignes SGDG....Bon courage 😉

A +

JB

Re : Création d'une Progress Bar

Bonsoir djibouti, Roland, 13GIBE59,

Attention, tu dis : "pour suivre l'évolution des différents modules qui constituent mon programme"

La progressBar est très facile d'emploi dans une boucle linéaire, par exemple, hormis le fait qu'elle va en ralentir l'exécution.....

Mais si tu as des appels à des sous-routines, cela peut s'avérer très compliqué et rapidement sans rapport avec la réalité.

A voir avec tes macros.

Bonne soirée.

Jean-Pierre