Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Avoir l'heure dans un textbox

Avoir l'heure dans un textbox

4 réponses
Avatar
Milan DESHAYES
Bonjour,
Je souhaite avec un commandbutton avoir la chose suivante mais sans succès :
Après un clic avoir dans un textbox l'heure au format hh:mm
Je vous remercie
Très bonne soirée
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
JB
Bonsoir,

Créer une zone de texte et la nommer MonHorloge(en haut à gauche de la
barre de formule-valider avec Entrée)

http://cjoint.com/?jntpWQx5wQ

Dim temps
Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text =
Format(Now, "dd/mm/yy hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeureHorloge"
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

JB
http://boisgontierjacques.free.fr


On 13 sep, 19:00, "Milan DESHAYES" wrote:
Bonjour,
Je souhaite avec un commandbutton avoir la chose suivante mais sans succ ès :
Après un clic avoir dans un textbox l'heure au format hh:mm
Je vous remercie
Très bonne soirée


Avatar
Milan DESHAYES
Bonsoir JB
Merci beaucoup, en fait je souhaite avoir uniquement l'heure en dur dans un
textbox après clic sur un commandbutton


"JB" a écrit dans le message de news:

Bonsoir,

Créer une zone de texte et la nommer MonHorloge(en haut à gauche de la
barre de formule-valider avec Entrée)

http://cjoint.com/?jntpWQx5wQ

Dim temps
Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text Format(Now, "dd/mm/yy hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeureHorloge"
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

JB
http://boisgontierjacques.free.fr


On 13 sep, 19:00, "Milan DESHAYES" wrote:
Bonjour,
Je souhaite avec un commandbutton avoir la chose suivante mais sans succès
:
Après un clic avoir dans un textbox l'heure au format hh:mm
Je vous remercie
Très bonne soirée


Avatar
JB
Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text =
Format(Now, "hh:mm:ss")
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

http://cjoint.com/?jnuBnq0uOk

JB


On 13 sep, 20:01, "Milan DESHAYES" wrote:
Bonsoir JB
Merci beaucoup, en fait je souhaite avoir uniquement l'heure en dur dans un
textbox après clic sur un commandbutton

"JB" a écrit dans le message de news:

Bonsoir,

Créer une zone de texte et la nommer MonHorloge(en haut à gauche de la
barre de formule-valider avec Entrée)

http://cjoint.com/?jntpWQx5wQ

Dim temps
Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text =
Format(Now, "dd/mm/yy hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeureHorloge"
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

JBhttp://boisgontierjacques.free.fr

On 13 sep, 19:00, "Milan DESHAYES" wrote:



Bonjour,
Je souhaite avec un commandbutton avoir la chose suivante mais sans suc cès
:
Après un clic avoir dans un textbox l'heure au format hh:mm
Je vous remercie
Très bonne soirée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Milan DESHAYES
Parfait !!!
Très bonne soirée
Milan

"JB" a écrit dans le message de news:


Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text Format(Now, "hh:mm:ss")
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

http://cjoint.com/?jnuBnq0uOk

JB


On 13 sep, 20:01, "Milan DESHAYES" wrote:
Bonsoir JB
Merci beaucoup, en fait je souhaite avoir uniquement l'heure en dur dans
un
textbox après clic sur un commandbutton

"JB" a écrit dans le message de news:

Bonsoir,

Créer une zone de texte et la nommer MonHorloge(en haut à gauche de la
barre de formule-valider avec Entrée)

http://cjoint.com/?jntpWQx5wQ

Dim temps
Sub majHeureHorloge()
ActiveSheet.Shapes("MonHorloge").TextFrame.Characters.Text > Format(Now, "dd/mm/yy hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeureHorloge"
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:úlse
End Sub

Sub MarcheHorloge()
majHeureHorloge
End Sub

JBhttp://boisgontierjacques.free.fr

On 13 sep, 19:00, "Milan DESHAYES" wrote:



Bonjour,
Je souhaite avec un commandbutton avoir la chose suivante mais sans
succès
:
Après un clic avoir dans un textbox l'heure au format hh:mm
Je vous remercie
Très bonne soirée- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -