Discussion :

[Yolak]

Bonjour!

J'aimerais implanter une progressbar dans une de mes userform qui attend (environ 10s) une requète extérieure (par le port série)
Je n'arrive absolument pas à trouver le code et je mélange tout lol
aidez moi!!!!!

voici l'algo:

Debut du Sub (initialisation de l'userform par ex)
Affichage de l'userform;

La valeur du bouton OK est False (CommandButton1.Enabled = False);
Attente de 10 secondes avec progression de la progressbar1;

A la fin de la tempo, la valeur du bouton OK est True (CommandButton1.Enabled = True);

fin du Sub

Pour info, ma userform comporte:
-une listbox (qui fait rien pour l'instant)
-un label (qui sert de titre)
-une progressbar (ProgressBar1)
-un bouton OK (CommandButton1)
-un bouton Annuler (CommandButton2)

Merci pour votre aide!!

[Yolak]

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 !!

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 :

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
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 :

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