Barre de progression personnalisée et possible optimisation du code.

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:

---

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

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:

---

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:

---

application.statusbar = false

---

Cordialement,

Poulpe

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:

---

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:

---

application.Statusbar = 3x & "%"

---

jusqu'à

Code:

---

application.Statusbar = 39 & "%"

---

?

Merci d'avance,

Cordialement,

Personnellement je ne vois pas de problème,

Cordialement,

Poulpe

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

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 …

Bonjour,

Citation:

---

Envoyé par Stanler

...

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

Code:

---

application.Statusbar = 3x & "%"

---

....

---

oui ou simplement :

Code:

---

application.Statusbar = "32 %"

---

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:

---

application.statusbar = false

---

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

Cdlt,