ProgressBar et le bouton "OK"

Question

Mon premier sujet sur ce forum donc bonjour &#224; tout le monde.

Je commence a d&#233;buter sur VB/VBA et je vois que ce site est
l&#146;endroit a y &#234;tre pour faire avancer mes connaissances en mati&#232;re.

Actuellement j&#146;ai un petit souci &#224; int&#233;grer une barre de
progression dans une macro. J&#146;ai d&#233;j&#224; vu pas mal d&#146;explications et des sujets
sur le forum mais vu mes comp&#233;tences limit&#233;es je voulais &#234;tre sur de mes
parcours.

Le macro (excel ) en question lance une form qui permet au l&#146;utilisateur
de cocher les casses des feuils a imprimer.Vu que le traitement des feuilles prend environ 1 minute (pas mal de
code derri&#232;re pour autres fonctionnalit&#233;s) je voulais int&#233;grer une barre de
progression pour donner des indications visuelles a l&#146;utilisateur avec le
bouton &#171; OK &#187;

J&#146;ai cr&#233;e un &#171; User form &#187; (nom&#233;e BarreProgress)
et ins&#233;r&#233;e le &#171; ProgressBar &#187; qui vient avec VBA.

Sur le forum j&#146;ai trouv&#233; aussi le code du ProgressBar &#224; utiliser :

pour eviter de coller le code ici voici le lienpour la consulter   

Je ne sais pas trop ou le mettre dans le http://www.nomorepasting.com/paste.php?pasteID=42123' target='_blank'>code suivant de
bouton OK :






Vous pouvezme donner
un coup de main ?



merci





pas de signature c'est une bonne signature

cs_babson · Answer

Salut,
voici un exemple avec un control de checkbox dans vb6 (je pense que &#231;a doit &#234;tre la m&#234;me chose dans VBA). sur une form tu mets environ 4 checkbox. Dans le form_Load tu initialises le barre de progression. et plus il y a de checkbox coch&#233; plus la barre de progression avance et inversement. Quand tout les checkbox sont coch&#233; la barre est au maximum.
ex:


Private Sub Form_Load()


    ProgressBar1.Min = 0
    ProgressBar1.Max = Check1.Count
    ProgressBar1.Value = ProgressBar1.Min


End Sub

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim iCounter As Integer


    ProgressBar1.Min = 0
    ProgressBar1.Max = Check1.Count
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
            iCounter = iCounter + 1
        End If
    Next
    ProgressBar1.Value = iCounter


End Sub



Babson everything is possible....

cs_babson · Answer

Salut, c'est m&#234;me chose que ci-dessus mais par mesure de s&#233;curit&#233; je remets le compteur "iCounter " &#224; z&#233;ro

Private Sub Form_Load()


    ProgressBar1.Min = 0
    ProgressBar1.Max = Check1.Count
    ProgressBar1.Value = ProgressBar1.Min


End Sub

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim iCounter As Integer


    iCounter = 0
    ProgressBar1.Min = 0
    ProgressBar1.Max = Check1.Count
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
            iCounter = iCounter + 1
        End If
    Next
    ProgressBar1.Value = iCounter


End Sub



Babson everything is possible....

cs_babson · Answer

encore plus simple avec moins de ligne &#224; &#233;crire


Private Sub Form_Load()


    ProgressBar1.Min = 0
    ProgressBar1.Max = Check1.Count
    ProgressBar1.Value = ProgressBar1.Min


End Sub

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Dim iCounter As Integer


    iCounter = 0
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
            iCounter = iCounter + 1
        End If
    Next
    ProgressBar1.Value = iCounter


End Sub



Babson everything is possible....

ProgressBar et le bouton "OK"

3 réponses

Discussions similaires