Discussion :

[Ghis123]

Bonjour,

j'aimerais que lorsque j'appui sur F2, excel ajoute la date du jour dans la cellule où je me trouve.

La question a l'air bien simple mais je n'ai pas encore trouvé la réponse. Je connais assez bien la programmation en VBA pour avoir développer moi-même plusieurs outils mais cette fois...

Merci de votre aide !!


Ghislain

[Vesta]

La touche F2 est déja assignée a une fonction dans Excel. Elle permet d'éditer une cellule...

Il faudrai mettre dans le code (dans ThisWorkbook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub InsertDate
activecell.value=Date()
end sub

Et faire une activation de cette fonction par le menu des macro. Tu vas dans outils macro macros
tu trouve la procédure ci dessus Et tu pourra cliquer sur options la tu pourra mettre un racourci pour la lancer.

[bidou]

à l'endroit ou tu veux définir la commande tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnKey "{F2}", "toto"

et dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub toto()
ActiveCell.Value = Now
End Sub

[Vesta]

merci bidou pour la précision...

[Ghis123]

Merci ça fonctionne!

Mais pourquoi ça ne fonctionne pas du premier coup?

Je m'explique, j'ouvre le fichier, choisi une cellule, appui sur F2, la cellule est sélectionné afin que j'y entre du texte. (la fonction assignée de Excel) Je fais "Enter". Si j'appui encore sur F2 là tout va bien, la fonction standard est désactivée et remplacé par la mienne jusqu'à la prochaine ouverture du fichier

bonne journée !

Ghislain

[AlainTech]

Où as-tu mis le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnKey "{F2}", "toto"

???

Ca devrait t'éclairer.

[Ghis123]

J'ai mis le code dans le module de la feuille (sheet1)
(microsoft excel object... sheet1)

Sous l'événement : Private Sub Worksheet_Change(ByVal Target As Range)

[SfJ5Rpw8]

J'ai mis le code dans le module de la feuille (sheet1)
(microsoft excel object... sheet1)

Sous l'événement : Private Sub Worksheet_Change(ByVal Target As Range)

et donc ton onkey n'est actif car partir du moment ou tu as changer quelque chose.. dans ta feuille...!

utilise l'événement _activate par exemple...

et pour revenir à l'état initial à la sortie de la feuille utilise par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Deactivate()
Application.OnKey "{F2}"
End Sub

[AlainTech]

C'est mieux dans Workbook_Open, non?

[zazaraignée]

Dans Excel comme dans Access, le raccourci pour ajouter la date du jour, juste la date, pas de code ni de formule ni rien du genre, le raccourci donc c'est :

CTRL + ;

Pour l'heure c'est

CTRL + MAJ + ; (ou Ctrl + : )

[Ghis123]

Wow Merci beaucoup !

Je comprend mieux les Event maintenant !

Bonne journée !

Ghislain