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
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. Si quelqu'un pouvais de donner un coup de pouce parce qu'à force d'être dedans je m'y perd
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: