Dim sb As clsProgressBar

Version imprimable

xl-2003 & xl-2010
Bonjour,

en recherchant une technique pour montrer visuellement l'évolution de l'exécution de mon programme j'ai trouvé ceci:
Code:

1 2 3 4 5 6 7 8 9 10 Sub ProgressBarSimpleDemo() Dim sb As clsProgressBar, i As Long Set sb = New clsProgressBar ' create a new progress bar sb.Show "Please wait", vbNullString, 0 ' display the progress bar For i = 0 To 100 Step 20 sb.PercentComplete = i ' update the progress bar WaitSeconds 1 Next i Set sb = Nothing ' remove the progress bar End Sub
Seulement quand je lance l'execution je reçois le message "Type non défini".
Très fréquemment il s'agit d'une référence que je n'ai pas sélectionnée.
Quelqu'un connaîtrait il la référence qui me manque ?
Merci d'avance.

24/09/2011, 07h13
Theze

Bonjour,

A voir le préfixe de la variable "clsProgressBar" (cls) je pense qu'il te manque le module de classe. Retourne où tu as récupéré le code voir si il n'y a pas aussi celui du module de classe.

Hervé.
24/09/2011, 07h13
kiki29

Salut, à mon avis clsProgressBar est là pour un module dit de classe qui est absent de ton classeur, voir http://excel.developpez.com/faq/?page=ModuleClasse pour ce qui en retourne des modules de classe

Re,

Maintenant, tu n'es pas obligé de passer par un module de classe. Un petit exemple, sur ta Form tu pose un Label nommé LblFond et un autre Label que tu nomme LblProgress et tu colle le code ci-dessous dans le module de la Form, tu ouvre le formulaire et tu clique dessus pour voir le résultat :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub UserForm_Initialize()
 
    With LblFond
        .Top = 10
        .Left = 0
        .Width = Me.Width
        .Height = 15
        .BorderStyle = fmBorderStyleSingle
    End With
 
    With LblProgress
        .Top = 10
        .Left = 0
        .Width = 0
        .Height = 15
        .BackColor = &H8000&
        .ForeColor = &HFFFFFF
    End With
 
End Sub
 
Private Sub UserForm_Click()
 
    Dim i As Long
 
    For i = 1 To 100000
        Progression i, 100000
        DoEvents
    Next i
 
End Sub
 
Sub Progression(ByVal Valeur As Double, _
                ByVal Maxi As Double)
 
    Dim R As Double
 
    R = LblFond.Width / Maxi
 
    LblProgress.Width = Valeur * R
    LblProgress.Caption = Valeur
 
    If Valeur = Maxi Then LblProgress.Width = 0
 
End Sub

Hervé.

24/09/2011, 16h45
khame1

Merci

Merci à tous pour votre réponse