Discussion :

[Stanler]

Bonjour le forum,

J'ai une macro assez longue à laquelle j'aimerai créer une barre de progression. Elle s'effectue en 3minutes environ.
J'ai recherché comment créer une barre de progression, mais je n'ai pas réussi à l'intégrer à mon code. J'ai essayé, sans succès, avec plusieurs types de barres de progressions que j'ai pu trouver sur les forums. Je ne suis pas expert en VBA, mais je m'y suis sérieusement mis depuis un mois.

Voici mon code ci-dessous :
Bien entendu, si vous pensez que mon code nécessite des modifications/optimisations, je serais ravis d'en discuter avec vous.
D'ailleurs, je me demande quelle est l'utilité de l'alinéa qui est présent sur certaines lignes ? Jusqu'à présent, je considérait que c'était une mise en page plus agréable à l'oeil. Y a-t-il autre chose avec cette marge ?

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
Sub Toutes_Ensembles()
CreateObject("Wscript.shell").Popup "Bienvenue, " & Application.UserName, 1, "Accueil"
    Worksheets("Feuil1").Range("A1").Value = Application.UserName
    Worksheets("Feuil1").Range("A2").Value = Format(Now, "dd/mm/yyyy")
Dim ret As Integer
    ret = MsgBox("Assurez vous que la feuille ""Feuil2"" contienne la nouvelle extraction non traitée par la macro." & Chr(13) & Chr(13) & "Merci de bien vouloir patienter pendant quelques secondes après avoir cliqué sur ""OK"", jusqu'à l'apparition du message de fin de la macro...", vbOKCancel + vbInformation, "Traitement extraction et tableau")
        If ret = vbCancel Then
            CreateObject("Wscript.shell").Popup "Rechargez la feuille ""Feuil2"" puis relancez la macro." & Chr(13) & Chr(13) & "Merci, " & Application.UserName, 2, "Erreur : Pas d'extraction"
            Exit Sub
        End If
Dim reti As Integer
    reti = MsgBox("Avez-vous lus le message précédent ?", vbYesNo)
        If reti = vbNo Then
            CreateObject("Wscript.shell").Popup "C'EST PAS BIEN", 1, "Erreur : MSG NON LUS"
        Else
            Traitement_1
            FormatNumerik
            Traitement_2
            Traitement_3
            MsgBox "Fin de la macro. Merci d'avoir patienté." & Chr(13) & Chr(13) & "Votre fichier est à jour." & Chr(13) & Chr(13) & "Bonne journée, " & Application.UserName, vbOKOnly + vbExclamation, "Traitement extraction et tableau"
        End If
End Sub

Cordialement,

Stanler

[Mr Poulpe]

Bonjour,

Personnellement, ce que je considère comme le plus simple à utiliser sur Excel est la statusbar en bas à gauche de l'écran, qui a l'avantage de ne pas consommer trop de ressources.

Tu l'utilises avec

Code :

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

application.Statusbar = x & "%"

(x étant le pourcentage de réalisation de la macro)
Et tu rends la main à Excel une fois que tu as terminé avec :

Code :

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

application.statusbar = false

Cordialement,

Poulpe

[Stanler]

Bonjour Mr Poulpe,

Merci pour votre réponse rapide .

J'ai inséré le code ci dessus dans ma macro en modifiant la variable "X" par le pourcentage que je souhaite afficher. Ça fonctionne parfaitement, c'est simple et efficace ^^ Merci !

Cependant, à l'intérieur de ma macro, je lance l'exécution d'autres macros :

Code :

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

1
2
3
4
5
6
7
8
9
            Application.StatusBar = 30 & "%"
            Traitement_1
            Application.StatusBar = 40 & "%"
            Numerik
            Application.StatusBar = 50 & "%"
            Traitement_2
            Application.StatusBar = 60 & "%"
            Traitement_3
            Application.StatusBar = 70 & "%"

A l'intérieur de la macro "Traitement_1", puis-je insérer le code suivant ? :

Code :

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

application.Statusbar = 3x & "%"

jusqu'à

Code :

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

application.Statusbar = 39 & "%"

?

Merci d'avance,

Cordialement,

[Mr Poulpe]

Personnellement je ne vois pas de problème,

Cordialement,

Poulpe

[Invité]

Bonjour,
regarde ce lien dans le fichier que j'ai joint il y a une barre de progression. http://www.developpez.net/forums/d14...e/#post7898843

[Marc-L]

Bonjour, bonjour !

Une procédure avec une barre de progression nécessitait 48 secondes pour s'exécuter et n'en a besoin que de 18 sans !
Donc utiliser une barre de progression augmente de deux à trois fois la durée du traitement …

[SfJ5Rpw8]

Bonjour,

...

A l'intérieur de la macro "Traitement_1", puis-je insérer le code suivant ? :

Code :

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

application.Statusbar = 3x & "%"

....

oui ou simplement :

Code :

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

application.Statusbar = "32 %"

[Stanler]

Bonjour à tous,

Merci pour vos réponses, j'ai réussi à intégrer le pourcentage de progression en bas à gauche d'excel, même pour les macros qui sont lancées à partir de ma macro principale.

Pour ceux qui se demandent, j'ai mis

Code :

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

application.statusbar = false

seulement à la fin de ma macro principale qui déclenche les autres.

Cdlt,