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