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 Heure dans un label

Heure dans un label

7 réponses
Avatar
Hervé
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve dans un
userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé
Signaler un problème avec ce contenu

7 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
cl
Hervé wrote:
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve
dans un userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé


bien sur la devise n'est pas obligatoire!!!!

Private Sub UserForm_Activate()
Dim Devise As String
Devise = "Au travail ! il est: "
lblMaintenant.Caption = Devise & Format((Now), "hh:mm, dddddd")


--
Claire

Avatar
Michel Pierron
Bonsoir Hervé;
Dans le module UserForm ( Label1 affiche l'heure):
Private oTimer As Boolean

Private Sub LabelTimer()
Dim Start As Single
1: Start = Timer
While Timer < Start + 0.1: DoEvents: Wend
If Label1 <> Time Then Label1 = Time
If oTimer Then GoTo 1
End Sub

Private Sub UserForm_Activate()
oTimer = True: LabelTimer
End Sub

Private Sub UserForm_Initialize()
Label1 = Time
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
oTimer = False
End Sub

MP

"Hervé" a écrit dans le message de
news:uO0S$l%23%
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve dans un
userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé





Avatar
Hervé
Merci beaucoup Michel, c'est exactement cela
Bonne soirée
Hervé

"Michel Pierron" a écrit dans le message de news:
OHVymA$%
Bonsoir Hervé;
Dans le module UserForm ( Label1 affiche l'heure):
Private oTimer As Boolean

Private Sub LabelTimer()
Dim Start As Single
1: Start = Timer
While Timer < Start + 0.1: DoEvents: Wend
If Label1 <> Time Then Label1 = Time
If oTimer Then GoTo 1
End Sub

Private Sub UserForm_Activate()
oTimer = True: LabelTimer
End Sub

Private Sub UserForm_Initialize()
Label1 = Time
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
oTimer = False
End Sub

MP

"Hervé" a écrit dans le message de
news:uO0S$l%23%
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve dans un
userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé








Avatar
Hervé
Bonsoir Claire, je te remercie beaucoup mais l'heure est figée.
J'ai la soluce grace à Michel Pierron
Hervé


"" a écrit dans le message de news:
evZLT2%23%
Hervé wrote:
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve
dans un userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé


bien sur la devise n'est pas obligatoire!!!!

Private Sub UserForm_Activate()
Dim Devise As String
Devise = "Au travail ! il est: "
lblMaintenant.Caption = Devise & Format((Now), "hh:mm, dddddd")


--
Claire





Avatar
cl
Bizarre ça marche bien chez moi: 19h58!!!!!
A voir

--
Claire


Hervé wrote:
Bonsoir Claire, je te remercie beaucoup mais l'heure est figée.
J'ai la soluce grace à Michel Pierron
Hervé


"" a écrit dans le message de news:
evZLT2%23%
Hervé wrote:
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve
dans un userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé


bien sur la devise n'est pas obligatoire!!!!

Private Sub UserForm_Activate()
Dim Devise As String
Devise = "Au travail ! il est: "
lblMaintenant.Caption = Devise & Format((Now), "hh:mm, dddddd")


--
Claire





Avatar
cl
oups!!!!
j'ai compris ce que tu voulais
excuse.....

--
Claire

Hervé wrote:
Bonsoir Claire, je te remercie beaucoup mais l'heure est figée.
J'ai la soluce grace à Michel Pierron
Hervé


"" a écrit dans le message de news:
evZLT2%23%
Hervé wrote:
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve
dans un userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé


bien sur la devise n'est pas obligatoire!!!!

Private Sub UserForm_Activate()
Dim Devise As String
Devise = "Au travail ! il est: "
lblMaintenant.Caption = Devise & Format((Now), "hh:mm, dddddd")


--
Claire





Avatar
Hervé
Mais non Claire, je te remercie beaucoup pour ta gentillesse
Hervé


"" a écrit dans le message de news:
O2I$C4$%
oups!!!!
j'ai compris ce que tu voulais
excuse.....

--
Claire

Hervé wrote:
Bonsoir Claire, je te remercie beaucoup mais l'heure est figée.
J'ai la soluce grace à Michel Pierron
Hervé


"" a écrit dans le message de news:
evZLT2%23%
Hervé wrote:
Bonsoir.
Comment faire afin d'afficher l'heure dans un label qui se trouve
dans un userform ?
le temps déroulant. Label qui se trouve sur un userform.
Je vous remercie tous par avance.
Hervé


bien sur la devise n'est pas obligatoire!!!!

Private Sub UserForm_Activate()
Dim Devise As String
Devise = "Au travail ! il est: "
lblMaintenant.Caption = Devise & Format((Now), "hh:mm, dddddd")


--
Claire