Le portail francophone de la géomatique

Bonjour,

Rapidement, un code générique que vous pourrez facilement adapter :

Declare Sub Main()

Declare Sub Procedure()

Global compteur As Integer

Global fin As Integer

Sub Main()

    compteur = 0

    fin = 100000

    ProgressBar Patientez... Calling Procedure Range fin

End Sub

Sub Procedure()

    If (compteur = fin) Then

        ' on quitte la routine de traitement

        ProgressBar = -1

    Else

        ' exécutez ici une partie de votre traitement

        ' on incrémente la barre de progression

        compteur = compteur + 1

        ProgressBar = compteur       

    End If

End Sub

Cordialement,

Ronan HERVE
Ingénieur informatique
Etudes, conseil et ingénierie cartographie et SIG
www.geobs.com