outil Processing Bar

Version imprimable

Voici mon soucis , Dans un boite de dialogue , j'ai crée un onglet valider ,
mon objectif c'est quand je clique sur le bouton valider , mon processing se met en marche ,
j'y arrive tjs pas , pourtant mon code me semble correcte . est ce que qq peut m'aider .
voici un extrait de mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub StartProcessing1()
    Dim IngTotal As Long, Ingl As Long
    Load frmProgressBar
    With frmProgresseBar
        .ProgressBar.Scrolling = ccScrollingStandard
        .Show
    End With
    'UpdateProgressBar 0 , "Chargement...."
    IngTotal = 2000
    For Ingl = 1 To InglTotal
        If Ingl Mod 50 + 0 Then
        UpdateProgressBar Ingl / InglTotal * 100, "Chargement " & Format(Ingl / InglTotal, "0%") & "..."
        End If
    'Range("D1").Formula = Format(Time, "hh:mm"ss")
    'Next Ingl
    'Range ("D1").ClearContents
    frmProgressBar.Hide
    Unload frmProgressBar
End Sub

Code:

1
2
3
4
5
6
7
Private Sub ProgressBar1_Click()
    With frmProgressBar
        If Not IsMissing(NewCaption) Then .Caption = NewCaption
        .ProgressBar.Value = NewValue
        If NewValue = 0 Then .Repaint
    End With
End Sub

Je recapitule , au moment ou je clique sur le boutton Valider , je veux que le process de chargement se met en route
merci

23/06/2008, 17h27
JackOuYA

Bonjour,

Il semble manquai du code , ta procédure UpdateProgressBar elle fait quoi ? faudrai penser aussi à rajouter quelques DoEvents afin que l'affichage ait le temps de se raffraichir..

Jacques.

Re,

J'ai juste collé quelques rustines pour ton code pour qu'il tourne, mais c'est pas trés beau ..

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
 
Sub StartProcessing1()
    Dim IngTotal As Long, Ingl As Long
    Load frmProgressBar
    With frmProgressBar
        .ProgressBar1.Scrolling = ccScrollingStandard
        .Show False
    End With
    'UpdateProgressBar 0 , "Chargement...."
    IngTotal = 2000
    For Ingl = 1 To IngTotal
        If Ingl Mod 50 + 0 Then
        UpdateProgressBar Ingl / IngTotal * 100, "Chargement " & Format(Ingl / IngTotal, "0%") & "..."
        End If
    'Range("D1").Formula = Format(Time, "hh:mm"ss")
    Next Ingl
    'Range ("D1").ClearContents
    frmProgressBar.Hide
    Unload frmProgressBar
End Sub
 
Sub UpdateProgressBar(v, st)
  frmProgressBar.ProgressBar1 = v
  DoEvents
 
End Sub

Jacques.

23/06/2008, 17h48
fring

Bonjour tlm,

Si j'ai bien compris, tu veux une barre de progression durant le déroulement de ta boucle.

Tu peux jeter un oeil sur celle-ci
http://www.developpez.net/forums/sho...d.php?t=520923
.
23/06/2008, 17h54
Chikatilo

Citation:

Envoyé par fring

Bonjour tlm,

Si j'ai bien compris, tu veux une barre de progression durant le déroulement de ta boucle.

Tu peux jeter un oeil sur celle-ci
http://www.developpez.net/forums/sho...d.php?t=520923
.

Merci pour votre reponse
24/06/2008, 00h00
ucfoutu

Bonsoir,

Moi, j'adore le soin apporté aux questions que l'on pose et au code que l'on joint ...

Je lis :

Code:

If Ingl Mod 50 + 0 Then

Et suppose (mais ai-je à supposer quoi que ce soit ?) que le code devrait être

Code:

If Ingl Mod 50 = 0 Then

A moins que l'on ne m'explique que je suis devenu trop vieux pour comprendre l'incompréhensible !!!!
24/06/2008, 09h19
Chikatilo

Bonjour c'est encore moi :)
je crée une fenetre User From , pour mon application , c'est une qst bete mais vaut mieux la poser.
dans cette fenetre j'ai un bouton valider , ce que je veux c'est au moment du click sur ce bouton , je commence a charger mes données , sur l'exemple envoyé tu a affecté ca a une macro ? et ca marche bien pour moi , mais le soucis c'est que la barre noir reste sur ma fenetre Ecxel , comment pourrais je eviter cela ?
merci

Lis les commentaires dans les différents codes, tu verras qu'en fin de code il y a la procédure d'effacement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Application.Wait Now + TimeValue("00:00:02") '<-- laisse la barre de progression affichée 2 secondes
 
'*****************************************
' Effacement des zones de texte
' et des cellules temporaires
'*****************************************
ActiveSheet.Shapes("titre").Delete
ActiveSheet.Shapes("jauge").Delete
ActiveSheet.Shapes("pourcentage").Delete
Cells(1, 255).ClearContents
Cells(2, 255).ClearContents
Cells(3, 255).ClearContents
'*****************************************

24/06/2008, 10h43
Chikatilo

Certes , je les ai bien vu et c'est pour cela j'arrive pas a comprendre ,
qd j'active mon bouton valider ;
la barre de progression se declenche et a la fin il me reste l'encadrement noir :'( .
et plus que je click sur valider , la barre noir s'elargissent sur ma feuille de calcul