Discussion :

[Chikatilo]

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[JackOuYA]

Re,

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

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

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

[Chikatilo]

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

[ucfoutu]

Bonsoir,

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

Je lis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Ingl Mod 50 + 0 Then

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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