Dans un UserForm losque je pousse sur un bouton j'exécute une macro, cette
macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertubant pour
l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai placé
dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du clique
sur le bouton, je rends ce message visible puis execute ma macro, puis
lorsqu'elle est finie je rends le message invisible. Et bien en théorie, ça
fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment être sûr
que mon message est affiché avant de lancer la macro ???
If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
-----------------------------------------------------------
Private Sub CommandButton6_Click()
Label69.Visible = True
If Label69.Visible = True Then ActualiserFournisseur
Label69.Visible = False
End Sub
--------------------------------------------------------------
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
LSteph
Bonsoir, Chez moi ton code fonctionne! essaie de temporiser:
Private Sub CommandButton6_Click() Label69.Visible = True Application.wait now+timevalue("00:00:02") ActualiserFournisseur Label69.Visible = False End Sub
Cordialement.
LSteph
Bonjour,
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, cette macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertubant pour l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai placé dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du clique sur le bouton, je rends ce message visible puis execute ma macro, puis lorsqu'elle est finie je rends le message invisible. Et bien en théorie, ça fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment être sûr que mon message est affiché avant de lancer la macro ??? If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
----------------------------------------------------------- Private Sub CommandButton6_Click() Label69.Visible = True If Label69.Visible = True Then ActualiserFournisseur Label69.Visible = False End Sub --------------------------------------------------------------
D'avance merci pour votre aide.
Steph
Bonsoir,
Chez moi ton code fonctionne!
essaie de temporiser:
Private Sub CommandButton6_Click()
Label69.Visible = True
Application.wait now+timevalue("00:00:02")
ActualiserFournisseur
Label69.Visible = False
End Sub
Cordialement.
LSteph
Bonjour,
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, cette
macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertubant pour
l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai placé
dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du clique
sur le bouton, je rends ce message visible puis execute ma macro, puis
lorsqu'elle est finie je rends le message invisible. Et bien en théorie, ça
fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment être sûr
que mon message est affiché avant de lancer la macro ???
If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
-----------------------------------------------------------
Private Sub CommandButton6_Click()
Label69.Visible = True
If Label69.Visible = True Then ActualiserFournisseur
Label69.Visible = False
End Sub
--------------------------------------------------------------
Bonsoir, Chez moi ton code fonctionne! essaie de temporiser:
Private Sub CommandButton6_Click() Label69.Visible = True Application.wait now+timevalue("00:00:02") ActualiserFournisseur Label69.Visible = False End Sub
Cordialement.
LSteph
Bonjour,
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, cette macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertubant pour l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai placé dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du clique sur le bouton, je rends ce message visible puis execute ma macro, puis lorsqu'elle est finie je rends le message invisible. Et bien en théorie, ça fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment être sûr que mon message est affiché avant de lancer la macro ??? If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
----------------------------------------------------------- Private Sub CommandButton6_Click() Label69.Visible = True If Label69.Visible = True Then ActualiserFournisseur Label69.Visible = False End Sub --------------------------------------------------------------
D'avance merci pour votre aide.
Steph
JB
Bonsoir,
Me.Label1.Visible = True DoEvents For i = 1 To 100000000 .... Next
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, ce tte macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertu bant pour l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai plac é dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du cliq ue sur le bouton, je rends ce message visible puis execute ma macro, puis lorsqu'elle est finie je rends le message invisible. Et bien en théorie , ça fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment êtr e sûr que mon message est affiché avant de lancer la macro ??? If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
----------------------------------------------------------- Private Sub CommandButton6_Click() Label69.Visible = True If Label69.Visible = True Then ActualiserFournisseur Label69.Visible = False End Sub --------------------------------------------------------------
D'avance merci pour votre aide.
Steph
Bonsoir,
Me.Label1.Visible = True
DoEvents
For i = 1 To 100000000
....
Next
On 10 juil, 19:05, "Steph" <steph.stom...@skynet.be> wrote:
Bonjour,
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, ce tte
macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertu bant pour
l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai plac é
dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du cliq ue
sur le bouton, je rends ce message visible puis execute ma macro, puis
lorsqu'elle est finie je rends le message invisible. Et bien en théorie , ça
fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment êtr e sûr
que mon message est affiché avant de lancer la macro ???
If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
-----------------------------------------------------------
Private Sub CommandButton6_Click()
Label69.Visible = True
If Label69.Visible = True Then ActualiserFournisseur
Label69.Visible = False
End Sub
--------------------------------------------------------------
Dans un UserForm losque je pousse sur un bouton j'exécute une macro, ce tte macro met +/- 1min30 pour s'éxécuter complétement, ce qui est pertu bant pour l'utilisateur qui ne sait pas si c'est bloqué ou pas.
Je souhaiterais afficher un message "Traitement un cours" que j'ai plac é dans Label69 qui permettrais de voir qu'il faut patienter.
Ma macro qui met du temps s'appelle "ActualiserFournisseur". Lors du cliq ue sur le bouton, je rends ce message visible puis execute ma macro, puis lorsqu'elle est finie je rends le message invisible. Et bien en théorie , ça fonctionne mais pas en pratique, le message ne s'affiche pas.
La macro s'exécute donc avant l'affichage de mon message. Comment êtr e sûr que mon message est affiché avant de lancer la macro ??? If Label69.Visible = True Then ActualiserFournisseur --> ne fonctionne pas
----------------------------------------------------------- Private Sub CommandButton6_Click() Label69.Visible = True If Label69.Visible = True Then ActualiserFournisseur Label69.Visible = False End Sub --------------------------------------------------------------