[vba-e]tempo et progressbar

Nan ben c'est bon j'ai résolu mon problème tout seul! Comme quoi tout viens à point à qui se creuse un peu les meninges !! :roll:

Pour ceux que ça interresse voici le code avec lequel j'ai réussi à me débuguer:

Il faut une UserForm1 avec un bouton, un label et une ProgressBar:

Code de la userform:

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
Option Explicit
 
 
Private Sub CommandButton1_Click()
    CommandButton1.Enabled = False
    Label1 = Duree
    Call Demarrer
End Sub
 
 
Private Sub UserForm_Initialize()
 
    With Me.ProgressBar1
        .Min = 0
        .Max = Duree
        .Value = 0
    End With
 
End Sub
 
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="MiseAJour", Schedule:=False
End Sub

code du module1:

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
Option Explicit
Public Const Duree = 10 'secondes
 
 
Sub Lancer()
    UserForm1.Show
End Sub
 
 
Sub Demarrer()
    Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
End Sub
 
 
Sub MiseAJour()
 
    If UserForm1.ProgressBar1.Value = Duree Then
        Unload UserForm1
        Exit Sub
        Else
        UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1
        UserForm1.Label1 = UserForm1.Label1 - 1
    End If
 
    Call Demarrer
End Sub

En fait il s'agit de l'exemple d'un tutos que vous pouvez trouver ici:
http://silkyroad.developpez.com/VBA/ControlesUserForm/

Voilà à plus :)