Configuration touche

Salut tout le monde,
Est il possible de configurer l'appui d'une seule touche (touche fonction) pour afficher l'heure sous excel?
Je sais que l'on affiche l'heure en faisant ctrl + : mais je voudrais l'afficher en appuyant que sur une touche (touche fonction par exemple)
Merci d'avance
@+

[JeanMarie]

Bonsoir

Une solution avec le correcteur orthographique, en utilisant un caractère très peu usité par exemple ¤, dans le champ de correction écrire =aujourdhui().

La date sera écrite par la formule, elle ne sera pas figée comme Ctrl+.

En attend la réponse d'André, le maître de la correction automatique.

@+Jean-Marie

Bonsoir
Une macro serait pas mal

avec une fonction 'Now' et une boucle pour l'actualiser.

Thomas

Salut tout le monde et
Merci a tous les deux
Pour info je l'ai fais avec une macro en paramétrant la touche ' ² ' en haut a gauche du clavier.
voici le code :

If Range('A' & Target.Row) = '²' Then Range('A' & Target.Row) = Time

Par contre je ne sais pas si on peut le faire avec les touches fonction (F1,F2,F3,.....)
Si quelqu'un sait si il peut le dire ca serait cool

@+
Ju

[jmps]

Bonjour Ju, JeanMarie, Thomas,

En utilisant F3 qui ne sert pas dans Excel :

Private Sub Workbook_Open()
    Application.OnKey '{F3}', 'InsereHeure'
End Sub

Sub InsereHeure()
    ActiveCell.Value = Time
End Sub

Le Sub InsereHeure se trouve dans un module.

Bonne soirée.

EDITION :
Si on veut un format particulier, il faut modifier comme ceci :

ActiveCell.Value = Format(Time, 'hh:mm:ss')

Message édité par: jmps, à: 15/04/2005 17:26

Salut,
C'est encore moi
Voilà lorsque j'ouvre le classeur il faut d'abord que je lance une fois la macro 'InsereHeure' pour que lorsque j'appuie sur F3 ca m'écrit l'heure...
N'y aurait il pas moyen de ne pas devoir lancé la macro au démarrage ou que ca le fasse automatiquement
Merci d'avance
@+ Ju

[jmps]

Bonsoir Ju,

As-tu bien mis le code dans les 2 modules que je t'ai indiqué ?

Le Application.Onkey dans le Workbook_Open et le InsereHeure dans un module ?

Chez moi ça fonctionne.

Salut,
J'ai mis :
Private Sub Workbook_Open()
Application.OnKey '{F3}', 'InsereHeure'
End Sub

Dans le code de ma feuille

ET

j'ai mis :

Sub InsereHeure()
ActiveCell.Value = Time
End Sub

dans un module en faisant inserer un module

En fait ça marche trés bien mais je dois lancer une seule fois la macro insereHeure pour que ca fonctionne et aprés ca marche super bien merci encore d'ailleurs
@+
Ju

[jmps]

Bonjour Ju,

J'ai mis :
Private Sub Workbook_Open()
Application.OnKey '{F3}', 'InsereHeure'
End Sub

Dans le code de ma feuille

Ce n'est pas dans le module de la feuille qu'il faut mettre ça mais dans le module ThisWorkbook de façon à réaffecter la touche F3 dès l'ouverture du classeur. Ce qui sera valable pour toutes les feuilles par ailleurs.

Bonne fin d'apres-midi.

Merci jmps
J'avais essayer cet aprem et j'avais trouvé merci quand meme c cool qu'on peut affecter des touches comme ca a un classeur.
Du coup j'ai affecter plusieurs touches fonctions....
Encore Merci pour tout @+
Ju