[Toutes versions] Dim sb As clsProgressBar [Résolu]

[khame1]

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.

[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é.

[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

[Theze]

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é.

[khame1]

Merci à tous pour votre réponse