B
ben
Guest
rebonjour tout le monde
J'ai un souci avec le code suivant
j'ai une macro qui dure plusieurs minutes et pdt l'exécution j'affiche un userform avec un texte à l'interrieur veuillez pattienter...
Le pb et que ds mon code actuelle qd il affiche le userform ma macro s'arrete ma question est de savoir comment fait ton pour afficher un userform pdt que ma macro s'exécute et le fermer à la fin.
Voici mon code actuel, la macro s'arrete à l'ouverture du userform6
Private Sub CommandButton1_Click()
'insertion d'un chrono pour durée de comparaison
debut_macro = Timer
UserForm6.Show
Call comparaison2
'arret du chrono et affichage de la durée
fin_macro = Timer
Dim temps_execution As Long
Unload UserForm6
temps_execution = (fin_macro - debut_macro) / 60
MsgBox " La comparaison à durée : " & temps_execution & " minutes "
Call sauvegarde
End Sub
J'ai un souci avec le code suivant
j'ai une macro qui dure plusieurs minutes et pdt l'exécution j'affiche un userform avec un texte à l'interrieur veuillez pattienter...
Le pb et que ds mon code actuelle qd il affiche le userform ma macro s'arrete ma question est de savoir comment fait ton pour afficher un userform pdt que ma macro s'exécute et le fermer à la fin.
Voici mon code actuel, la macro s'arrete à l'ouverture du userform6
Private Sub CommandButton1_Click()
'insertion d'un chrono pour durée de comparaison
debut_macro = Timer
UserForm6.Show
Call comparaison2
'arret du chrono et affichage de la durée
fin_macro = Timer
Dim temps_execution As Long
Unload UserForm6
temps_execution = (fin_macro - debut_macro) / 60
MsgBox " La comparaison à durée : " & temps_execution & " minutes "
Call sauvegarde
End Sub