Progressbar : Problème d'affichage
Bonjour le forum, j'ai un soucis avec ma progressbar, elle ne s'affiche pas tout simplement
. Si quelqu'un pouvais de donner un coup de pouce parce qu'à force d'être dedans je m'y perd![Eek! :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Je voudrais en fait que ma progressbar s'active pendant ma boucle c, donc j'ai pensé à un compteur...
Merci d'avance
Bonjour le forum, j'ai un soucis avec ma progressbar, elle ne s'affiche pas tout simplement
Code:
Sub Lancement() 'Lancement du travail des statistiques
Worksheets(1).Select
Counter = 0
For L = 1 To 10
For K = 1 To 10
Range("D1") = Counter
Counter = Counter + 1
For Tempo = 1 To 5000000
Next Tempo
With frmProgressBar
.FrameProgress.Caption = Format(Counter / 100, "0%")
.LabelProgress.Width = Counter * 2
.Repaint
Dim c
For c = 256 To 5 Step -1
If Cells(100, c).End(xlUp).Row = 1 Then
Cells(1, c).EntireColumn.Delete
End If
Next c
End With
Next K
Next L
frmProgressBar.Hide
End Sub
Je voudrais en fait que ma progressbar s'active pendant ma boucle c, donc j'ai pensé à un compteur...
Merci d'avance
Dernière édition: