Loading bar

[kd13]

Bonjour
j'ai un simple script qui sert a cacher des lignes dans ma feuille excel et j'aimerais bien que vous m'aidez a afficher une barre de progression lorsque le script est entrain de s'executer ; Merci

Private Sub CommandButton1_Click()
For x = 1 To 6
Rows(x).EntireRow.Hidden = False
Next x
For i = 18 To 3000
If Range("ag" & i).Value = "Phasing -EX" Then
Rows(i).EntireRow.Hidden = False
Rows(i + 3).EntireRow.Hidden = False
Rows(i + 6).EntireRow.Hidden = False
End If
Next i
End Sub

 

[David XLD]

Re : Loading bar

Bonjour,

Cela peut t'aider :
Excel Downloads - ProgBarre

Excel Downloads - Barre avancement HB

A+

David

 

[Roland_M]

Re : Loading bar

bonjour à tous,

voir essai avec StatusBar !?

Private Sub CommandButton1_Click()
Dim SvgStatusBar As Boolean, Var1%, Var2%, xBar%

'code StatusBar
SvgStatusBar = Application.DisplayStatusBar 'svg état False/True
Application.DisplayStatusBar = True 'aff barre

Var1 = 18: Var2 = 3000 'init début et fin
For X = 1 To 6: Rows(X).EntireRow.Hidden = False: Next X
For I = Var1 To Var2
  
  'bar----------------------
  xBar = Int(160 / Var2 * I) '<selon écran voir modifier 160 !?
  Application.StatusBar = String(xBar, Chr(8)) & String(160 - xBar, Chr(7)) & Chr(8): DoEvents
  '-------------------------

  If Range("ag" & I).Value = "Phasing -EX" Then
     Rows(I).EntireRow.Hidden = False
     Rows(I + 3).EntireRow.Hidden = False
     Rows(I + 6).EntireRow.Hidden = False
  End If
Next I

'code StatusBar
Application.StatusBar = False 'efface
Application.DisplayStatusBar = SvgStatusBar 'remet état
End Sub

 

[kd13]

Re : Loading bar

Merci bien les mecs
les deux codes marchent parfaitement !😀