Discussion :

[Invité]

Bonjour,

J'aimerai ajouter un indicateur de chargement à mon UserForm qui ne bloque pas le programme. Par exemple une ProgressBar qui n'arrête pas de se remplir, vider, remplir, ... Mais qui ne bloque pas l'exécution du programme.

Une idée svp ??

[Invité]

Bonjour,
J'ai essayé de faire ceci:

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
Private Sub AffichageAttente()  'Affichage de l'attente
    Dim i As Integer
 
    Me.frWait.Visible = True
    DoEvents
    Me.frWait.Top = 100
    DoEvents
    Me.frWait.ZOrder 0
    DoEvents
    Me.frMainCont.Enabled = False
    DoEvents
    For i = 0 To 100    'Avancement ProgressBar
        Me.ProgressBar1.Value = i
        DoEvents
        If i = 90 Then
            i = 0
        End If
        DoEvents
        DoEvents
        DoEvents
        DoEvents
        DoEvents
        DoEvents
    Next i
End Sub

Mais malgré les DoEvents, le processus reste bloqué.