COHABITATION Barre de progression et Label Clignotant

[aubelix]

Bonsoir à tous les amis du Forum

Je reviens vers vous une fois de plus pour solliciter votre aide.
J'ai adapté une macro de Jacques BOISGONTIER sur les barres de progression.
Tout fonctionnait bien.
J'ai ajouté un label qui clingote. Voir fichier joint
Le texte clignote bien, mais la barre de progression se bloque à 5.
Où se situe le beug ?

Par avance, merci pour votre aide
Cordialement.

 

[alex67800]

Re : COHABITATION Barre de progression et Label Clignotant

Bonsoir Aubelix,

Supprime ton usf_activate et corrige ton code attente2 comme ceci:

Public témoin As Boolean

Sub Attente2()

    n = 20      ' nb de fichiers à traiter
    témoin = True   ' pour empêcher fermeture du formulaire
    F_BarreAttente.Show

    For f = 1 To n
        '-- traitement fichier
        For a = 1 To 50000000: Next a   ' Simulation attente
        '--------------
        p = p + 1 / n                   ' calcul du pourcentage
 [COLOR="Red"]       If F_BarreAttente.Label3.Visible = True Then F_BarreAttente.Label3.Visible = False Else F_BarreAttente.Label3.Visible = True[/COLOR]
        F_BarreAttente.Label1.Width = p * 260
        F_BarreAttente.Label2.Caption = "Traitement des dates :  " & Format(p, "0%")




        DoEvents
    Next f
    témoin = False

    Unload F_BarreAttente

 

[aubelix]

Re : COHABITATION Barre de progression et Label Clignotant

Bonjour aux amis du Forume et Alex67800.

Merci pour ton aide et ta réponse.
Cela me convient et fonctionne très bien.

Bon dimanche à tous.
Cordialement.