Microsoft 365 Date et heures avec CTRL + ; et CTRL + :

chris

XLDnaute Barbatruc

• 16 Novembre 2023

• #2

Bonjour

Quel est l'interêt de cliquer sur un bouton pour faire la même chose qu'un raccourci clavier existant qui marche partout ?

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 16 Novembre 2023

• #3

Bonjour,
l’intérêt de comparer, c'est de pouvoir enregistrer c'est deux valeur en simultané; et suivre la date et le temps ensemble sans possibilité de bricoler l'une ou l'autre valeur sur des cellules verrouillées.

Merci.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Novembre 2023

• #4

RE
Il va falloir gérer le verrouillage, la plage possible et vérifier si elle est vide ou non
Pour date et heure dans deux cellules (cas1+2) et tout dans une cellule (Cas 3)

VB:

' cas 1+2
    ActiveCell = Date
    ActiveCell.Offset(0, 1) = Format(Now - Date, "hh:mm")
 'Cas 3
    ActiveCell.Offset(0, 2) = Format(Now, "dd/mm/yyyy hh:mm")

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 16 Novembre 2023

• #5

Bonsoir,

Merci pour l'aide, et le cas 1. La même chose avec une formule en rentrant la date, l'heure s'affiche possible?.
Merci.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Novembre 2023

• #6

RE

Tu as les 3 cas là, donc je ne comprends pas ce que tu veux

Soit beaucoup plus précis

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 16 Novembre 2023

• #7

Bonsoir,
le cas 1+2 en formule dans une cellule. J'espère que c'est suffisant.
Merci.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 17 Novembre 2023

• #8

RE

Si on met une formule, l'heure va changer en permanence donc ce cela n'a plus rien à voir avec les raccourcis qui donne des valeurs fixées une fois pour toutes...

Le cas3 met bien les 2 dans la même cellule. Pour la demo il y a un offset que tu peux enlever...

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 17 Novembre 2023

• #9

Bonjour,
Si pas possible, sans garder des valeurs figées; dommage.
Merci

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 17 Novembre 2023

• #10

RE

Je ne dit pas que quoi ce soit est impossible mais on ne comprends pas précisément ce que tu veux.

J'ai bien mis des valeurs figées mais ensuite tu veux une formule : par nature une formule se recalcule...

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 17 Novembre 2023

• #11

Bonjour,
Le bouton N°4 ne fonctionne pas avec la fonction :
Function AUJOURDHUI_STATIC()
AUJOURDHUI_STATIC = Date
End Function

Merci pour votre aide

Ou comment ajouter la fonction: AUJOURDHUI_STATIC = Date ____en tant que fonction personnalisée.
Merci

 

Pièces jointes

• date & heure.xlsm

  20.5 KB · Affichages: 5

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 18 Novembre 2023

• #12

Bonjour,
Un peu d’aide j’apprécierais.
Merci la communauté.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Novembre 2023

• #13

laplayast à dit:

Bonjour,
Un peu d’aide j’apprécierais.
Merci la communauté.

Cliquez pour agrandir...

Bonjour,
Ceci pour réinventer la roue

VB:

Sub Macro4()
    ActiveCell = AUJOURDHUI_STATIC()
End Sub

Function AUJOURDHUI_STATIC()
    AUJOURDHUI_STATIC = Format(Now, "dd/mm/yy  hh:mm") ' ou autre format
End Function

 

Vote positif 0 Vote négatif