Discussion :

[Ricardo01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lynx92260]

Bonjour

Dans ton code il est ou le controle progressbar ?

Sinon plus simplement utilise application.statusbar

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ricardo01]

Re merci pour ta réponse, tu va me trouver bête mais je le met où le controle progressbar dans le code?

[Lynx92260]

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 .

[Ricardo01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Fvandermeulen]

Salut,
Essaies:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+