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
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
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:=False
End Sub
Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:=False
End Sub
Sub MarcheHorloge()
majHeureHorloge
End Sub
JB
http://boisgontierjacques.free.fr
On 13 sep, 19:00, "Milan DESHAYES" <mi...@club-internet.fr> 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
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
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
Bonsoir JB
Merci beaucoup, en fait je souhaite avoir uniquement l'heure en dur dans un
textbox après clic sur un commandbutton
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189703780.929316.146150@19g2000hsx.googlegroups.com...
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" <mi...@club-internet.fr> 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
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
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 -
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" <mi...@club-internet.fr> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
1189703780.929316.146...@19g2000hsx.googlegroups.com...
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:=False
End Sub
Sub ArretHorloge()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeureHorloge",
Schedule:=False
End Sub
Sub MarcheHorloge()
majHeureHorloge
End Sub
JBhttp://boisgontierjacques.free.fr
On 13 sep, 19:00, "Milan DESHAYES" <mi...@club-internet.fr> 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 -
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 -
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 -
Parfait !!!
Très bonne soirée
Milan
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189708048.577754.116090@r34g2000hsd.googlegroups.com...
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" <mi...@club-internet.fr> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
1189703780.929316.146...@19g2000hsx.googlegroups.com...
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" <mi...@club-internet.fr> 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 -
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 -