Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Userform Modal ?

Userform Modal ?

4 réponses
Avatar
Comres.metz
Salut à toutes et à tous,

Voici mon probléme.
En cliquant sur un bouton, je lance une macro qui mets à jour, lance
d'autres macros, bref que du normal.
Je voudrais faire apparaitre un UserForm qui dit : "Patienter" pendant le
travail se fait.
J'ai donc fait dans mon :
Private Sub CommandButton_Click
boite1.show
mes macros
boite1.hide
msgbox "c'est finis"
end sub.

le probléme est que la boite reste en premier plan et rien ne se passe. Je
l'ai donc passé en modal boite1.show 0 et la tout se passe en arriere plan,
mais ma boite apparait mais elle est vide.
En plus, mon msgbox apparait et ce n'est que lorsque je clique dessus que la
boite se ferme.
Savez vous ou se trouve mon erreur et comment y remédier.

Merci d'avance.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour Comres.metz;
Essaie comme ceci:
Dans ton module UserForm:

Private Sub UserForm_Activate()
DoEvents
Call MaMacro
End Sub

Dans ton module standard:
Private Sub CommandButton_Click
boite1.show
End sub

Sub MaMacro()
' Ici ton code
' ...
' ...

Unload boite1
MsgBox "c'est fini !"
End Sub

MP

"Comres.metz" a écrit dans le message de news:
43390d38$0$17216$
Salut à toutes et à tous,

Voici mon probléme.
En cliquant sur un bouton, je lance une macro qui mets à jour, lance
d'autres macros, bref que du normal.
Je voudrais faire apparaitre un UserForm qui dit : "Patienter" pendant le
travail se fait.
J'ai donc fait dans mon :
Private Sub CommandButton_Click
boite1.show
mes macros
boite1.hide
msgbox "c'est finis"
end sub.

le probléme est que la boite reste en premier plan et rien ne se passe. Je
l'ai donc passé en modal boite1.show 0 et la tout se passe en arriere
plan,

mais ma boite apparait mais elle est vide.
En plus, mon msgbox apparait et ce n'est que lorsque je clique dessus que
la

boite se ferme.
Savez vous ou se trouve mon erreur et comment y remédier.

Merci d'avance.




Avatar
Comres.metz
Bonjour

Excellent. cela fonctionne nickel.
Juste une question encore :
Est-il logique que je tombe sur erreur lorsque je copie des feuilles d'un
autre classeur sur le classeur qui accueille ma boite de dialogue.
Ceci fonctionnait avant la boite de dialogue. Est ce une histoire de fenetre
qui reçoit le focus ?
Merci pour vos réponses.


"Michel Pierron" a écrit dans le message de
news:
Bonjour Comres.metz;
Essaie comme ceci:
Dans ton module UserForm:

Private Sub UserForm_Activate()
DoEvents
Call MaMacro
End Sub

Dans ton module standard:
Private Sub CommandButton_Click
boite1.show
End sub

Sub MaMacro()
' Ici ton code
' ...
' ...

Unload boite1
MsgBox "c'est fini !"
End Sub

MP

"Comres.metz" a écrit dans le message de
news:

43390d38$0$17216$
Salut à toutes et à tous,

Voici mon probléme.
En cliquant sur un bouton, je lance une macro qui mets à jour, lance
d'autres macros, bref que du normal.
Je voudrais faire apparaitre un UserForm qui dit : "Patienter" pendant
le


travail se fait.
J'ai donc fait dans mon :
Private Sub CommandButton_Click
boite1.show
mes macros
boite1.hide
msgbox "c'est finis"
end sub.

le probléme est que la boite reste en premier plan et rien ne se passe.
Je


l'ai donc passé en modal boite1.show 0 et la tout se passe en arriere
plan,

mais ma boite apparait mais elle est vide.
En plus, mon msgbox apparait et ce n'est que lorsque je clique dessus
que


la
boite se ferme.
Savez vous ou se trouve mon erreur et comment y remédier.

Merci d'avance.








Avatar
Comres.metz
Rebonjour,

Ne tenez pas compte du message precedent. Si je ne renomme pas correctement
mon classeur, il est clair que je vais tomber en erreur.
Etourderie quand tu nous tiens.

Merci pour votre macro.
"Michel Pierron" a écrit dans le message de
news:
Bonjour Comres.metz;
Essaie comme ceci:
Dans ton module UserForm:

Private Sub UserForm_Activate()
DoEvents
Call MaMacro
End Sub

Dans ton module standard:
Private Sub CommandButton_Click
boite1.show
End sub

Sub MaMacro()
' Ici ton code
' ...
' ...

Unload boite1
MsgBox "c'est fini !"
End Sub

MP

"Comres.metz" a écrit dans le message de
news:

43390d38$0$17216$
Salut à toutes et à tous,

Voici mon probléme.
En cliquant sur un bouton, je lance une macro qui mets à jour, lance
d'autres macros, bref que du normal.
Je voudrais faire apparaitre un UserForm qui dit : "Patienter" pendant
le


travail se fait.
J'ai donc fait dans mon :
Private Sub CommandButton_Click
boite1.show
mes macros
boite1.hide
msgbox "c'est finis"
end sub.

le probléme est que la boite reste en premier plan et rien ne se passe.
Je


l'ai donc passé en modal boite1.show 0 et la tout se passe en arriere
plan,

mais ma boite apparait mais elle est vide.
En plus, mon msgbox apparait et ce n'est que lorsque je clique dessus
que


la
boite se ferme.
Savez vous ou se trouve mon erreur et comment y remédier.

Merci d'avance.








Avatar
Michel Pierron
Re Comres.metz;
Publie ton code de copie de feuilles pour voir.
MP

"Comres.metz" a écrit dans le message de news:
43392ee4$0$27439$
Bonjour

Excellent. cela fonctionne nickel.
Juste une question encore :
Est-il logique que je tombe sur erreur lorsque je copie des feuilles d'un
autre classeur sur le classeur qui accueille ma boite de dialogue.
Ceci fonctionnait avant la boite de dialogue. Est ce une histoire de
fenetre

qui reçoit le focus ?
Merci pour vos réponses.


"Michel Pierron" a écrit dans le message de
news:
Bonjour Comres.metz;
Essaie comme ceci:
Dans ton module UserForm:

Private Sub UserForm_Activate()
DoEvents
Call MaMacro
End Sub

Dans ton module standard:
Private Sub CommandButton_Click
boite1.show
End sub

Sub MaMacro()
' Ici ton code
' ...
' ...

Unload boite1
MsgBox "c'est fini !"
End Sub

MP

"Comres.metz" a écrit dans le message de
news:

43390d38$0$17216$
Salut à toutes et à tous,

Voici mon probléme.
En cliquant sur un bouton, je lance une macro qui mets à jour, lance
d'autres macros, bref que du normal.
Je voudrais faire apparaitre un UserForm qui dit : "Patienter" pendant
le


travail se fait.
J'ai donc fait dans mon :
Private Sub CommandButton_Click
boite1.show
mes macros
boite1.hide
msgbox "c'est finis"
end sub.

le probléme est que la boite reste en premier plan et rien ne se
passe.



Je
l'ai donc passé en modal boite1.show 0 et la tout se passe en arriere
plan,

mais ma boite apparait mais elle est vide.
En plus, mon msgbox apparait et ce n'est que lorsque je clique dessus
que


la
boite se ferme.
Savez vous ou se trouve mon erreur et comment y remédier.

Merci d'avance.