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

[laplayast]

Bonjour,
Je viens de créer une macro avec un bouton, qui fonctionne bien quand on se place sur la cellule M5 en couleur bleue. Ce qui intéresse c'est que je puisse, utiliser le même principe mais sur n’importe quelle cellule ou je me place .
Merci pour vos idées.

 

[chris]

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 ?

 

[laplayast]

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.

 

[chris]

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)

' 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")

 

[laplayast]

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.

 

[chris]

RE

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

Soit beaucoup plus précis

 

[laplayast]

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

 

[chris]

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...

 

[laplayast]

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

 

[chris]

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...

 

[laplayast]

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

 

[laplayast]

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

 

[Jacky67]

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

Bonjour,
Ceci pour réinventer la roue

Sub Macro4()
    ActiveCell = AUJOURDHUI_STATIC()
End Sub

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