Insérer "now" dans la cellule sélectionnée
Bonjour à tous,
Je prépare un tableur de type "cockpit"...
J'aimerais pouvoir créer un bouton "now" qui permettrait d'insérer la date et l'heure (dd.mm.yyyy hh:mm) dans la cellule sélectionnée de manière automatique.
Cette procédure doit pouvoir s'appliquer à n'importe quelle cellule sélectionnée.
Y a-t-il quelqu'un pour m'aiguiller ?
D'avance merci.
Willau
Bonjour,
tu as une solution via les raccourcis clavier.
pour avoir la date CTRL ;
pour avoir l'heure CTRL SHIFT ;
pour avoir la date et l'heure CTRL ; puis espace puis CTRL SHIFT ;
via une macro, à toi d'ajouter le bouton qui appelle macro
Sub aargh()
Selection = Now()
End SubPunaise !!!!
Merci h2so4
Parfois c'est si simple que l'on se complique la vie...
C'est parfait ! Merci !
Willau
Bonjour,
une proposition sur double-clic.
Les cellules pouvant recevoir la date sont uniquement celles préparées ayant un format date-heure :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "" And Target.NumberFormat Like "[d,m]/[d,m]/yy* h*:mm*" Then Target.Value = Now: Cancel = True
End SubMais Ctrl+; Espace Ctrl+: c'est très bien aussi
(CTRL SHIFT ; ne fonctionne pas chez moi, ça doit être chez les anglais (?) ))
eric
Edit 16:14 : petite modification. Année sur 2 chiffres autorisée et ajout d'une sécurité, la cellule doit être vide.