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
assigner à une lettre la mê lettre plus la fonction Enter??
Modérateur : Modérateurs
-
- Membre
- Messages : 80
- Enregistré le : 02 juin 2005, 23:00:00
- Localisation : K. Plage (3°cocotier à gauche) ;-)
salut,
alt + F11
dans ThisWorbook ==>
confirmer la mise en code par F5 !
et ds la fenêtre VBA project , clic droit 'insertion module'
là-dedans le code suivant :
vwoualla 
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
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


Qui est en ligne
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 4 invités