COHABITATION Barre de progression et Label Clignotant

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