Barre de progression style K2000

Bonjour,

Au fil de mes recherches, j'ai trouvé un Userform servant de barre de progression.

L'auteur propose 4 styles d'utilisation, il propose un code (ci-dessous) pour faire fonctionner l'un des styles.

Option Explicit

Sub test_qsProgressBar()
   Dim plage As Range, cellule As Range
   Set plage = ActiveSheet.Range("A1:A1048576")

   qsProgressBar.qsInit max:=plage.Count
   For Each cellule In plage
      qsProgressBar.qsPulse
      If qsProgressBar.qsCloseButtonClick Then
         MsgBox "Traitement interrompu"
         Exit For
      End If
      cellule.Offset(0, 1) = cellule.value + 1
   Next

   qsProgressBar.qsRemove
End Sub

Je n'ai pas réussi à faire tourner les 3 autres styles.

Surtout celui qui m’intéresse: style « taskRunningOnly » (style va-et-vient de la voiture K2000 ).

Avec mes remerciements anticipés pour votre aide.

Lien de la source: https://qscode.fr/barre-de-progression/

Bonjour,

dans le code du USF :

' init new progress bar and its limits
Public Sub qsInit( _
       Optional ByVal progressBarType As qsProgressBarType = withPercentage, _

remplacez le : withPercentage par taskRunningOnly

@ bientôt

LouReeD

Bonjour LooReed,

Merci beaucoup, ça fonctionne.

Je ne suis pas resté inactif. J'ai trouvé comme ceci, mais sans avoir tout compris.

Sub test_qsProgressBar()
   Dim plage As Range, cellule As Range
   Set plage = ActiveSheet.Range("A1:A1048576")

   qsProgressBar.qsInit taskRunningOnly

   For Each cellule In plage
      qsProgressBar.qsPulse
      If qsProgressBar.qsCloseButtonClick Then
         MsgBox "Traitement interrompu"
         Exit For
      End If
      cellule.Offset(0, 1) = cellule.value + 1
   Next

   qsProgressBar.qsRemove
End Sub

Bonsoir,

en effet c'est mieux ! lors de l'appel de la fonction "init" on passe en paramètre le type de barre que l'on souhaite !
Comme quoi...

Merci pour vos remerciements, et surtout bravo pour votre recherche et retour !

@ bientôt

LouReeD