Message traitement en cours

[Hugues]

Bonsoir Le Forum,

L'extraction de données d'une feuille Excel par le biais d'une boucle demande un peu de temps.
Je souhaiterais :
- intégrer pour rassurer l'utilisateur, un message à l'écran du type d'une boite de dialogue msgBox "Traitement en cours",
- puis que cette boite disparaisse lors de la fin du traitement.

Est-il possible de le faire ? Si oui comment ?

Merci par avance,

Hugues

 

[Mytå]

Re : Message traitement en cours

Salut le forum

Hugues regarde le lien suivant

https://www.excel-downloads.com/threads/message-dinformation.71743/

Mytå

 

[myDearFriend!]

Re : Message traitement en cours

Bonsoir Hugues, Mytå,

Puisque tu passes par une boucle pour traiter ton fichier, une méthode très simple et peu gourmande en terme de ressources consiste à utiliser la barre d'état pour inviter l'utilisateur à patienter. Quelque chose comme ça :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] C [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] N [COLOR=NAVY]As Long[/COLOR], Pourcent [COLOR=NAVY]As Long
Dim[/COLOR] STB [COLOR=NAVY]As Boolean[/COLOR]
    [COLOR=GREEN]'Mémorise l'état de la barre de status et force son affichage[/COLOR]
    STB = Application.DisplayStatusBar
    Application.DisplayStatusBar = [COLOR=NAVY]True
    On Error GoTo[/COLOR] Fin
    [COLOR=GREEN]'Traitement[/COLOR]
    [COLOR=NAVY]For Each[/COLOR] C [COLOR=NAVY]In[/COLOR] ActiveSheet.UsedRange
        N = N + 1
        Pourcent = N * 100 \ ActiveSheet.UsedRange.Count
        Application.StatusBar = "Patientez... " & Pourcent & " %"
        [COLOR=GREEN]'Ici le traitement d'extraction[/COLOR]
        [COLOR=GREEN]'...[/COLOR]
        [COLOR=GREEN]'...[/COLOR]
    [COLOR=NAVY]Next[/COLOR] C
Fin:
    [COLOR=GREEN]'Rétablit la barre d'état[/COLOR]
    Application.StatusBar = [COLOR=NAVY]False[/COLOR]
    Application.DisplayStatusBar = STB
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

 

[Hugues]

Re : Message traitement en cours

Bonsoir Myta, Bonsoir Didier

Merci pour votre aide précieuse.

Hugues