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 ??
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 ??
Bonjour,
J'ai essayé de faire ceci:
Mais malgré les DoEvents, le processus reste bloqué.
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
Partager