pb affichage userform pdt une macro

  • Initiateur de la discussion Initiateur de la discussion ben
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Bonjour Ben

C'est normal, c'est parce que ton userform à le focus et non la feuille.

Pour éviter ce problème, faut juste espéré que tu as Excel 2000, parce que pour les version plus ancienne c'est un peu plus compiqué:

Remplace ton Userform6.show par Userform6.show 0

Le 0 ou rien, est pour modal et non-modal, ce qui veux dire que pendant que ton userform est ouvert tu peux travailler sur ta feuille

Bonne chance

@christophe@
 
cela ne marche pas j'ai un message : impossible d'afficher une feuille non modale lorsqu'une feuille modale est affiché, et je ne peut pas faire un unload sur mes autre feuille car j'ai besoin des donnée

As tu une autre solution ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
970
Réponses
4
Affichages
913
Retour