Bonjour,
j'ai téléchargé le code suivant qui est lié à un progress Bar
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
Dim ORIGINAL_TIME As Date
Dim SECONDS_TO_WAIT As String
 
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = ProgressBar1 + 50
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1.Value + 20
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
End If
End If
End If
End Sub
 
 
 
Private Sub Timer2_Timer()
If ProgressBar1.Value = ProgressBar1.Max Then
SECONDS_TO_WAIT = "5"
ORIGINAL_TIME = DateTime.Time
End
End If
End Sub
le progress bar se trouve sur un feuille avec 2 timers (1 et 2). Le probleme c'est que :
a) je n'arrive pas à afficher le decompte du pourcentage (sur un label) lié à ce progress bar quand j'essaie je n'arrive qu'a afficher 100% à la fin. Donc si quelqu'un peut m'aider en y ajoutant quelques lignes de codes me permettant d'afficher le pourcentage avec l'evolution de celui ci je le remercie d'avance et aussi de le ralentir un peu car il defile vite.
b) En fait je voudrais le mettre au debut de l'application que je suis entrain de realiser, mais je n'y arrive pas non plus. Quand je mets la feuille qui la contient au lancement de l'application elle s'arrete juste apres je ne sais pas comment faire le lien avec la feuille suivante.
c) j'aimerai enfin que quelqu'un y ajoute des commentaires pour m'aider à le comprendre.