OVH Cloud OVH Cloud

heure dans un menu

16 réponses
Avatar
Peponne31
Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre des
tâches ?
Merci pour votre réponse et bonne semaine.

10 réponses

1 2
Avatar
MichDenis
Pour saisir l'heure courante :

Raccourci clavier : Ctrl + Maj + :


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

Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre des
tâches ?
Merci pour votre réponse et bonne semaine.
Avatar
JB
Bonsoir,

http://boisgontierj.free.fr/pages_site/ontimeheure.htm

JB
On 11 fév, 21:42, Peponne31
wrote:
Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure pa r
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou f ermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre des
tâches ?
Merci pour votre réponse et bonne semaine.


Avatar
Jacky
Au rythme de la seconde
;-))

--
Salutations
JJ



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

Pour saisir l'heure courante :

Raccourci clavier : Ctrl + Maj + :


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

Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure
du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre
des
tâches ?
Merci pour votre réponse et bonne semaine.




Avatar
Peponne31
Bonsoir JB, merci pour ta réponse comment puis je le faire fonctionner dans
une cellule A1 ?


Bonsoir,

http://boisgontierj.free.fr/pages_site/ontimeheure.htm

JB
On 11 fév, 21:42, Peponne31
wrote:
Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre des
tâches ?
Merci pour votre réponse et bonne semaine.






Avatar
MichDenis
Au rythme de la seconde
;-))

Tu n'as pas des doigts habiles et agiles ?
;-)
Avatar
JB
Dans l'exemple ,l'heure est affichée dans A1 (A1 contient
=Maintenant())

http://boisgontierj.free.fr/fichiers/OnTimeHeure.xls

Dim temps
Sub majHeure()
Sheets("feuil1").Calculate
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
majHeure
End Sub

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

On peut également remplacer MajHeure par:

Sub majHeure()
Sheets("feuil1").[A1]=Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub


JB
On 11 fév, 22:06, Peponne31
wrote:
Bonsoir JB, merci pour ta réponse comment puis je le faire fonctionner dans
une cellule A1 ?




Bonsoir,

http://boisgontierj.free.fr/pages_site/ontimeheure.htm

JB
On 11 fév, 21:42, Peponne31
wrote:
Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heur e par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la b arre des
tâches ?
Merci pour votre réponse et bonne semaine.- Masquer le texte des me ssages précédents -



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




Avatar
LSteph
Bonsoir,
Ce genre de truc handicape l'application, car dans les cellules implique
un recalcul permanent, c'est moins lourd dans un label.

Exemple dans Feuil2
Insère un label1 puis dans vbe:


'''''***********dans Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime mytime, "alheure", , False
End Sub

Private Sub Workbook_Open()
Call alheure
End Sub

'''''*******dans un module standard
Public mytime As Date
Sub alheure()
mytime = Now + TimeValue("00:00:01")
Application.OnTime mytime, "alheure"
Feuil2.Label1.Caption = Format(Now, "hh:nn:ss")
'Feuil1.[a1]=Format(Now, "hh:nn:ss")'alternative lourde
End Sub

'Cordialement.

lSteph

Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la barre des
tâches ?
Merci pour votre réponse et bonne semaine.



Avatar
LSteph
:o) dis leur de ne pas en taper trop non plus (MAj ?)
pour le raccourci:

ctrl+:

(suffira)

Bonne journée

lSteph



Au rythme de la seconde
;-))

Tu n'as pas des doigts habiles et agiles ?
;-)





Avatar
chalo
Bonjour à tous, le sujet m'intéressant j'essaie d'appliquer le code ci
dessous mais je débute en vba et je ne comprend pasconcrétement
comment on insère un label1 dans la feuille 2?c'est avec le menu
insertion étiquette ou bien dans l'éditeur vba?
Chalo

On 11 fév, 23:00, LSteph wrote:
Bonsoir,
Ce genre de truc handicape l'application, car dans les cellules implique
un recalcul permanent, c'est moins lourd dans un label.

Exemple dans Feuil2
Insère un label1 puis dans vbe:

'''''***********dans Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime mytime, "alheure", , False
End Sub

Private Sub Workbook_Open()
Call alheure
End Sub

'''''*******dans un module standard
Public mytime As Date
Sub alheure()
mytime = Now + TimeValue("00:00:01")
Application.OnTime mytime, "alheure"
Feuil2.Label1.Caption = Format(Now, "hh:nn:ss")
'Feuil1.[a1]=Format(Now, "hh:nn:ss")'alternative lourde
End Sub

'Cordialement.

lSteph




Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la bar re des
tâches ?
Merci pour votre réponse et bonne semaine.- Masquer le texte des mess ages précédents -


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



Avatar
lSteph
Bonjour,

Dans excel Affichage si tu ne la pas
soit la
Barre menu Visual Basic (ce sont les deux petits outils croisés) qui
affichent la
Barre Menu Commandes où tu trouve le contrôle Label
Un clic dessus et dans la feuille une petite croix par appui sur le
bouton gauche de ta souris
plus qu à l'étirer et lacher le bouton selon le tracé voulu.
Ensuite cliquer sur l'equerre bleue pour sortir du mode création.
Tu peux aussi modifier l'aspect de ton label, pour y avoir accès
cliquer sur l'equerre bleue et accèder au menu contextuel clic
droit , ...propriétés.
Une fois terminé cliquer sur l'equerre bleue pour sortir du mode
création.

Cordialement.

lSteph



On 12 fév, 10:02, "chalo" wrote:
Bonjour à tous, le sujet m'intéressant j'essaie d'appliquer le code ci
dessous mais je débute en vba et je ne comprend pasconcrétement
comment on insère un label1 dans la feuille 2?c'est avec le menu
insertion étiquette ou bien dans l'éditeur vba?
Chalo

On 11 fév, 23:00, LSteph wrote:

Bonsoir,
Ce genre de truc handicape l'application, car dans les cellules implique
un recalcul permanent, c'est moins lourd dans un label.

Exemple dans Feuil2
Insère un label1 puis dans vbe:

'''''***********dans Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime mytime, "alheure", , False
End Sub

Private Sub Workbook_Open()
Call alheure
End Sub

'''''*******dans un module standard
Public mytime As Date
Sub alheure()
mytime = Now + TimeValue("00:00:01")
Application.OnTime mytime, "alheure"
Feuil2.Label1.Caption = Format(Now, "hh:nn:ss")
'Feuil1.[a1]=Format(Now, "hh:nn:ss")'alternative lourde
End Sub

'Cordialement.

lSteph



Bonsoir à tous, dans un classeur j'ai un menu avec une cellule heur e par
=MAINTENANT() mais l'heure est réactualisé que à l'ouverture ou fermeure du
menu. Serait-il possible d'avoir une heure permanente comme dans la b arre des
tâches ?
Merci pour votre réponse et bonne semaine.- Masquer le texte des me ssages précédents -


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





1 2