Barre de progression
Bonjour,
je suis débutant en VBA et je voudrai créer une barre de progression, comme j'ai une vingtaine de macros l'une derrière l'autre je ne sais pas utiliser celle qui a été proposée dans le tutoriel et qui utilise une boucle
On m'a proposé une solution au départ du lancement des différentes macro mais je ne suis pas au niveau de pouvoir créer un code seul
Voici mon code d'appel de macro.
Sub AppelMacro()
Application.ScreenUpdating = False
Call Macro1
Call Macro2
Call Macro3
Call Macro4
jusque:
Call Macro27
Application.ScreenUpdating = True
End Sub
En vous remerciant d'avance.
Bien à vous
Christian
Il faut que tu évalues le temps de chaque macro... Tu crées un userform et entre chaque passage dans la macro suivante tu updates la barre de progression de ton userform avec une incrémentation d'une macro globale.
Si toutes les macros prennent le même temps il suffira d'inclure TOUT EN HAUT dans un module:
Public progression As double
Sub AppelMacro()
for i = 1 to 27
userform1.show
application.run "Macro" & i
progression = progression + 1/27
unload.me
next i
end subDe construire un userform avec un textbox appelé textbox1 et de rajouter dans le userform1 le code
Private Sub UserForm_Initialize()
TextBox1.Value = progression & " %"
End SubBonjour,
Merci pour votre réponse. j'ai un probleme d'abort comme j'utilise Option Explicit j'ai du redéfinir "I" et "Progression" ensuite la macro bloque sur unload.me
voici mon code
Sub AppelMacro()
Dim I As Double
Dim Progression As Double
For I = 1 To 27
UserForm1.Show
Application.Run "Macro" & I
Progression = Progression + 1 / 27
Unload.me
Next I
End Sub
Sub UserForm_Initialize()
TextBox1.Value = Progression & " %"
End Sub
Bien oui comme je vous l'ai dit je suis un bleu en Macro
Merci
Christian
Mea culpa enleve le point
Unload Me
J'ai un message qui me dit " Utilisation incorrete du mot clé Me
Merci
Passe moi ton fichier que je vois ce que tu fais
Voici mon code
merci
Option Explicit
Sub AppelMacro()
Dim I As Double
Dim Progression As Double
For I = 1 To 27
UserForm1.Show
Application.Run "Macro" & I
Progression = Progression + 1 / 27
Unload Me
Next I
End Sub
Sub UserForm_Initialize()
TextBox1.Value = Progression & " %"
End Sub