Problème d'affichage Progressbar

Version imprimable

Bonjour le forum, je me suis mis à VBA depuis peu et j'ai un problème d'affichage sur ma progressbar

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Lancement()
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
 
        End With
    Next K
  Next L
 
            For c = 256 To 5 Step -1
                Worksheets(1).Select
                If Cells(100, c).End(xlUp).Row = 1 Then
                Cells(1, c).EntireColumn.Delete
                End If
            Next c
    frmProgressBar.Hide
End Sub

J'aimerais en effet que ma progressbar s'affiche en même temps que ma boucle c.
Merci d'avance

le controle progressbar

Bonjour

Dans ton code il est ou le controle progressbar ?

Sinon plus simplement utilise application.statusbar

Code:

1
2
3
4
5
6
7
8
9
 
         For c = 256 To 5 Step -1
                Application.statusbar= Format(c / 256, "0%")
                Worksheets(1).Select
                If Cells(100, c).End(xlUp).Row = 1 Then
                Cells(1, c).EntireColumn.Delete
                End If
            Next c
            Application.statusbar="Prêt"

En utilisant le control progressbar

Code:

1
2
3
4
5
6
7
8
 
'Definir les bornes
ProgressBar1.Min = 1
ProgressBar1.Max = 10000
For i = 1 To 10000
    ' on affecte la nouvelle valeur et barre progresse 
    ProgressBar1.Value = i
Next

:ccool:

11/06/2009, 20h05
Ricardo01

Re merci pour ta réponse, tu va me trouver bête mais je le met où le controle progressbar dans le code?
11/06/2009, 22h45
Lynx92260

Il y a du boulot ......

Bon le control progressbar est un control que l'on peut mettre soit sur la feuille ou soit sur un userform

Ce control se trouve dans la boite à outils controls et en cliquant sur aiutres controle on double clique sur le control nommes Microsoft Progressbar Control Version 6 ou Version 5 sp2 selon les configurations pour le placer sur la feuille ou l'userform

Et on applique le code donne en exemple

Voilà la méthode .

:ccool:

Bonjour,
j'arrive désormais à ce résultat qui fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Lancement()
Worksheets(1).Select
 
For c = 256 To 5 Step -1
  Counter = 1 - c / 256
 
    Application.StatusBar = Format(1 - c / 256, "0%")
    Worksheets(1).Select
    With frmProgressBar
        .FrameProgress.Caption = Format(Counter, "0%")
        .LabelProgress.Width = Counter * 200
        .Repaint
            If Cells(100, c).End(xlUp).Row = 1 Then
            Cells(1, c).EntireColumn.Delete
            End If
    End With
Next c
Application.StatusBar = "Prêt"
frmProgressBar.Hide
End Sub

Je voudrais juste pouvoir mettre avant le pourcentage "Recherche en cours"
J'ai testé ceci :

Code:

.FrameProgress.Caption = Format("Recherche en cours " & Counter, "0%")

Mais le soucis c'est que ça me change le format du pourcentage...

12/06/2009, 13h29
Fvandermeulen

Salut,
Essaies:

Code:

.FrameProgress.Caption = "Recherche en cours " & Format(Counter, "0%")

A+
12/06/2009, 13h33
Ricardo01

Salut,
C'était tout bête et ça marche nikel, je te remercie :ccool: