Discussion :

[imaril]

Bonjour,
Je souhaiterai affichier une image( genre sablier qui tourne^^) ou juste un texte pendant que ma macro s'execute pour faire comprendre a l'utilisateur que ca travail et que ca n'a pas planter
en parcourant le forum, j'ai trouve des truc sur les progress bar, mais je n'ai pas tout compris a comment l'utiliser.

merci

[pgz]

Bonjour.

Tu peux aussi utiliser la barre d'état. Voir par exemple comment faire une barre de progression dans une bare d'état.
Bon courage,

PGZ

[imaril]

y aura-it quelque chose de plus visible :p
car , je ne pense pas que tout le monde voie ce qui se passe en bas de l'écran
(c'est pour éviter que les "boulet" quite la macro et les "boulet" ne regarde pas en bas a gauche )

sinon c'est pas grave je laisserai ca

merci

[AlainTech]

Pour ma part, j'affiche une UserForm qui, elle-même, lance le traitement long.

Dans ce traitement, je peux modifier le Caption d'un Label (de l'USF) pour indiquer l'état d'avancement.

[imaril]

c'est ce que j'avais fais au début, mais comme la macro active a chaque fois plein d'autre classeur ou feuille le useform passe dérière apres l'appui sur le bouton pour lancer la dite macro

[AlainTech]

Voilà pourquoi il ne faut pas activer les classeurs...

[imaril]

ahh ouaip c'est mieux =)

[ancel17]

Bonsoir,

moi j'ai fais ce genre de manipulation :
j'affiche un userform avec juste un message (pas de bouton, juste une étiquette). Le userform lorsqu'il est activé lance une procédure.

Mon problème est que seul le cadre du userform apparaît, du coup le message pour conforter les utilisateurs du bon déroulement de la procédure n'est pas visible...

[fring]

Bonjour,

As-tu essayé en mettant la propriété ShowModal de ton UserForm sur False ?
.

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
USF.Repaint
DoEvents

[decondelite]

Je crois pas que la propriété Showmodal ne puisse être modifiée sur E-00: c'est interdit sur E-03.

Ceci dit, je ne connaissais pas Repaint, mais apparemment ça me fait le même résultat que DoEvents.

Sachant que perso j'ai déjà eu des bugs avec DoEvents: est-ce mieux d'utiliser Repaint à la place?

[ancel17]

Bonjour !

@decondelite & fring : je suis sur E03, et je peux modifier la propriété ShowModal...
Ceci dit, cela ne résoud pas le problème !

@AlainTech : USF.Repaint fonctionne à merveille !

Merci à tous !!!

[decondelite]

Ah oui tiens j'avais mal lu l'aide: c'est que pour Office 97 que c'est interdit.
Au temps pour moi: moi qui croyais que c'était interdit sur E-03 me voilà servi.

[AlainTech]

Ceci dit, je ne connaissais pas Repaint, mais apparemment ça me fait le même résultat que DoEvents.

Les deux sont complémentaire.
Repaint redessine le Form après modification d'une Caption et DoEvents donne la main au système pour pouvoir (entre autres) raffraîchir l'affichage.

Sachant que perso j'ai déjà eu des bugs avec DoEvents

Je serais bien curieux de savoir quel genre de bugs...

[akr54]

J'ai déjà fait un truc comme ça. Ça marche c'est l'essentiel !
J'ai créé une toute petite Userform appelée Form_Info dans mon exemple et dans laquelle je pose un label (Message du style Veuillez patienter SVP...).
En voici le code :

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
26
27
28
29
30
31
32
'Déclarations permettant l'inhibition de la case à cocher "Fermer" de la boîte de dialogue jusqu'à Userform_Initialize()
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'ou ça c'est pareil :
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&
 
Private Sub UserForm_Initialize()
'Proc d'inhibition de la case à cocher de fermeture
'de la boîte de dialogue 
On Error GoTo ErrorHandler
Dim hSysMenu As Long
Dim MeHwnd As Long
    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & "introuvable", vbCritical
    End If
Exit Sub
 
ErrorHandler:
Dim Msg
If Err.Number <> 0 Then
    Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _
         & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Erreur : Veuillez prévenir le responsable SVP !" Err.HelpFile, Err.HelpContext
End If
End Sub

Ensuite, dans un module, la Sub suivante dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Affiche_Info()
Dim PauseTime, Start
    PauseTime = 1    ' Définit la durée en seconde(s)
    Start = Timer    ' Définit l'heure de début.
 
    Do While Timer < Start + PauseTime
        Form_Info.Show vbModeless
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
 
Form_Info.Hide
Unload Form_Info
End Sub

Et enfin, dans la Private Sub d'un bouton de commande, par exemple, je fais appel à Affiche_Info() :

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
Private Sub Bt_Lance_Macro_Click()
On Error GoTo ErrorHandler
 
Application.ScreenUpdating = False
Affiche_Info 'Affiche la boîte "Veuillez patienter..."
Shell "m:\requetes\batch\toto.bat", 1 ' Lance un batch quelconque
Application.ScreenUpdating = True
Exit Sub
 
ErrorHandler:
If Application.ScreenUpdating = False Then
    Application.ScreenUpdating = True
End If
Dim Msg
If Err.Number <> 0 Then
    Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _
         & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Erreur : Veuillez prévenir le 25013 SVP !", Err.HelpFile, Err.HelpContext
End If
End Sub

Voilà ! A regarder comme ça, la macro Affiche_Info(), c'est n'importe quoi, je n'ai pas dû en finir le code, mais ça fonctionne très bien, donc je me suis arrêté là ! Faut pas être plus royaliste...

[decondelite]

Les deux sont complémentaire.
Repaint redessine le Form après modification d'une Caption et DoEvents donne la main au système pour pouvoir (entre autres) raffraîchir l'affichage.


Je serais bien curieux de savoir quel genre de bugs...

Pour Repaint et DoEvents, ça me fait la même chose: ça me permet d'éviter d'avoir des bouts de formulaire ou le formulaire complet en blanc, et ce utilisés tout seuls.

Après, le seul formulaire dans le genre que j'ai fait ne contient que des labels: peut-être qu'il y a une différence notable pour les autres contrôles, mais bon je n'ai pas le temps de l'expérimenter pour l'instant.

Pour le bug, je viens de m'apercevoir que j'ai le même avec Repaint... faut croire que ça ne vient pas de DoEvents... ou alors ça serait les 2 qui provoquent la même chose mais ça faudrait vraiment pas de bol pour que ce soit le cas. Je vais essayer de le résoudre dans mon coin...