[VBA-E]Fonction F2 dans Excel

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

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:

---

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.

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

Code:

---

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

---

et dans un module

Code:

---

1 2 3 4

Sub toto() ActiveCell.Value = Now End Sub

---

merci bidou pour la précision...

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

Où as-tu mis le

Code:

---

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

---

???

Ca devrait t'éclairer.

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)

Citation:

---

Envoyé par 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)

---

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:

---

1 2 3 4

Private Sub Worksheet_Deactivate() Application.OnKey "{F2}" End Sub

---

;)

C'est mieux dans Workbook_Open, non?

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 + : )

Wow Merci beaucoup !

Je comprend mieux les Event maintenant !

Bonne journée !

Ghislain