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 affichage label pendant 5 second apres mon evenement

affichage label pendant 5 second apres mon evenement

2 réponses
Avatar
damienguilbert
bonjour

voila je voudrais resoudre un pb

j ai un bouton dans un userform (une diskette)
quand je click dessus
j ai un label qui apparrait 5 pendant la sauvegarde " enregisrement en
cours"
puis une fois la sauvegarde faite j ai un autre label qui apparait
"enregistrement terminée"
cependant je voudrait qu il apparaisse 5 sd

voici le code

Private Sub CommandButton4_Click()
Application.Cursor = xlWait 'sablier en cour
Me.Label3.Visible = True ' apparait enregistrement en cour
DoEvents
ActiveWorkbook.Save 'sauvegarde
Application.Cursor = xlDefault ' disparait sablier
Me.Label4.Visible = True ' apparait enregistrement termine
(il faudrait 5 sd)

DoEvents
Me.Label3.Visible = False efface "enregistrement en cour
DoEvents

End Sub


merci
Signaler un problème avec ce contenu

2 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
Patrick
Bonjour,

Tu rajoutes ceci :

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Tu n'es bien sûr pas obligé d'utiliser les variables intermédiaires.

--
Patrick

"damien" wrote in message
news:
bonjour

voila je voudrais resoudre un pb

j ai un bouton dans un userform (une diskette)
quand je click dessus
j ai un label qui apparrait 5 pendant la sauvegarde " enregisrement en
cours"
puis une fois la sauvegarde faite j ai un autre label qui apparait
"enregistrement terminée"
cependant je voudrait qu il apparaisse 5 sd

voici le code

Private Sub CommandButton4_Click()
Application.Cursor = xlWait 'sablier en cour
Me.Label3.Visible = True ' apparait enregistrement en cour
DoEvents
ActiveWorkbook.Save 'sauvegarde
Application.Cursor = xlDefault ' disparait sablier
Me.Label4.Visible = True ' apparait enregistrement termine
(il faudrait 5 sd)

DoEvents
Me.Label3.Visible = False efface "enregistrement en cour
DoEvents

End Sub


merci


Avatar
Clément Marcotte
Bonjour,

Cela ne serait pas plus simple de surveiller le témoin lumineux sur le
PC ?


Sinon tu peux fouiller là-dedans

http://www.excelabo.net/xl/lexique.php#sleep

http://www.excelabo.net/xl/tempo.php#limitationtemporelle

http://www.excelabo.net/xl/tempo.php#OnTime

http://www.excelabo.net/xl/tempo.php#ontimeuserform

http://frederic.sigonneau.free.fr/code/Tempos/TemporisationsEtPauses.txt





"damien" a écrit dans le message de
news:
bonjour

voila je voudrais resoudre un pb

j ai un bouton dans un userform (une diskette)
quand je click dessus
j ai un label qui apparrait 5 pendant la sauvegarde " enregisrement
en

cours"
puis une fois la sauvegarde faite j ai un autre label qui apparait
"enregistrement terminée"
cependant je voudrait qu il apparaisse 5 sd

voici le code

Private Sub CommandButton4_Click()
Application.Cursor = xlWait 'sablier en cour
Me.Label3.Visible = True ' apparait enregistrement en cour
DoEvents
ActiveWorkbook.Save 'sauvegarde
Application.Cursor = xlDefault ' disparait sablier
Me.Label4.Visible = True ' apparait enregistrement termine
(il faudrait 5 sd)

DoEvents
Me.Label3.Visible = False efface "enregistrement en cour
DoEvents

End Sub


merci