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 menu

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.
Signaler un problème avec ce contenu

6 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
1 2
Avatar
chalo
OK super ça marche je n'avais pas compris que c'était le bouton marqu é
étiquette dans la barre de commande mais quand on l'active ça marque
label1 par défaut....so I finally understood your point!Thanks a lot!
Chalo


On 12 fév, 10:30, "lSteph" wrote:
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 impli que
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 he ure par
=MAINTENANT() mais l'heure est réactualisé que à l'ouvertur e 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.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



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





Avatar
MichDenis
Je te le répète : ctrl+: ne fonctionne pas sous ma configuration
j'ai besoin d'utiliser Ctrl + Maj + :

Et la cause ?
Est-ce la langue utilisé dans les paramètres régionaux ?
Est-ce le type de clavier que j'utilise ?
Est-ce un résidu des nombreuses expériences (vba) faites
à partir de ma configuration ?
ou any of those ? cela ne change rien à ma réalité.



"LSteph" a écrit dans le message de news:
%
: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
lSteph
Bonjour,
ne vois pas pourquoi "répète", aurais-je doublé l'envoi?
en tout cas je ne vois pas de première de ta part

En tout cas, pour le raccourci en vigueur dans l'aide serait ctrl+:
mais je comprends fort bien qu'il puisse en être autrement dans ta
configuration.

Sans doute un micro climat, sinon , je ne vois pas non plus pourquoi.

Amicordialement.

lSteph
Avatar
Peponne31
Merci JB pour ton exemple, il fonctionne correctement. Que deviendrions nous
sans votre aide.


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 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.- Masquer le texte des messages précédents -



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









Avatar
Jacky
Oui, Peponne31, oui
On serait réduit à regarder l'heure en bas à droite.
;-)))))))))))))
--
Salutations
JJ



"Peponne31" a écrit dans le message de
news:
Merci JB pour ton exemple, il fonctionne correctement. Que deviendrions
nous
sans votre aide.


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
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.- Masquer le texte des
messages précédents -



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











Avatar
jps
:-)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
jps

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

Oui, Peponne31, oui
On serait réduit à regarder l'heure en bas à droite.
;-)))))))))))))
--
Salutations
JJ



"Peponne31" a écrit dans le message
de news:
Merci JB pour ton exemple, il fonctionne correctement. Que deviendrions
nous
sans votre aide.


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
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.- Masquer le texte des
messages précédents -



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















1 2