Page 1 sur 1

assigner à une lettre la mê lettre plus la fonction Enter??

Posté : 05 sept. 2006, 14:17:28
par cthonar
Bonjour à tous,

Est il possible d'assigner à une lettre (la touche b par exemple) la commande b plus la fonction Enter de sorte que quand j'entre la lettre b dans un colonne excel je passe la cellule suivante (celle d'en bas) automatiquement. C'est pour assister un travail sur microscope où je dois garder mes yeux constamment sur l'objectif sans me permettre de regarder le clavier de mon ordinateur.

En vous remeciant d'avance pour votre aide

Cécile Thonar

Posté : 08 sept. 2006, 18:47:33
par philou
salut,

alt + F11

dans ThisWorbook ==>

Code : Tout sélectionner

Private Sub Workbook_Open()

Application.OnKey "b", "cellule_suivante"

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnKey "b", ""

End Sub
confirmer la mise en code par F5 !

et ds la fenêtre VBA project , clic droit 'insertion module'
là-dedans le code suivant :

Code : Tout sélectionner

Sub cellule_suivante()
ActiveCell.Value = "b"
ActiveCell.Offset(1, 0).Select
End Sub
vwoualla ;)