Exécuter une macro via la touche TAB

Bonjour ,

J’utilise la macro suivante qui s’active via un bouton de commande sur une feuille.

Sub Macro1()

Set ici = ActiveCell.Offset(0, 1)

Range("B2").Select

Selection.Copy

ici.Select

ActiveSheet.Paste

End Sub

Je souhaite sur cette même feuille (mon classeur comprenant plusieurs feuilles)

Activer cette même macro via la touche TAB.

Pouvez-vous m’aider

Bonjour,

Tu peux tester l'instruction suivante :

Application.OnKey "{TAB}", "Macro1"

En espèrant que cela t'aide

Bonjour,

Dans le module de la feuille

Private Sub Worksheet_Activate()
Application.OnKey "{TAB}", "Test"
End Sub

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

Dans un module standard (Modules / Module 1 par exemple)

Sub Test()
    Range("B2").Copy ActiveCell.Offset(0, 1)
End Sub

Cordialement.

James007 a écrit :

Bonjour,

Tu peux tester l'instruction suivante :

Application.OnKey "{TAB}", "Macro1"

En espèrant que cela t'aide

Merci James

J'ai placer ceci dans Objets => Feuil1

Private Sub Worksheet_Activate()

Application.OnKey "{TAB}", "Macro1"

End Sub

Je n'ai aucun affichage de la valeur copiée

Re,

As-tu testé la solution complète de gyrus ...?

Si tu as des difficultés ... je te conseille de joindre un fichier test ...

gyrus a écrit :

Bonjour,

Dans le module de la feuille

Private Sub Worksheet_Activate()
Application.OnKey "{TAB}", "Test"
End Sub

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

Dans un module standard (Modules / Module 1 par exemple)

Sub Test()
    Range("B2").Copy ActiveCell.Offset(0, 1)
End Sub

Cordialement.

Bonjour Gyrus

J'ai collé le code Private Sub dans l'objet Feuil1 & Sub Test() dans module 1

Rien ne se passe dans ma feuille

Merci pour votre aide

James007 a écrit :

Re,

As-tu testé la solution complète de gyrus ...?

Si tu as des difficultés ... je te conseille de joindre un fichier test ...

James

Voici mon fichier

Merci pour votre aide

Eric_1000 a écrit :

James007 a écrit :

Re,

As-tu testé la solution complète de gyrus ...?

Si tu as des difficultés ... je te conseille de joindre un fichier test ...

James

Voici mon fichier

Test.xlsm

Merci pour votre aide

C'esst mieu avec la denière version sauvée

Dans l’exemple joint, j’ai doublé les procédures (ajout dans le module ThisWorkbook) car le lancement avec Worksheet.Activate ne s’effectue pas à l’ouverture du classeur.

Cordialement.

gyrus a écrit :

Dans l’exemple joint, j’ai doublé les procédures (ajout dans le module ThisWorkbook) car le lancement avec Worksheet.Activate ne s’effectue pas à l’ouverture du classeur.

Cordialement.

Merci gyrus,

Ça marche !!!!

Après réflexion est-il possible de limiter cette fonction dans une seule colonne ? (par ex :colonne C)

Pour éviter de coller partout dans ma feuille si on appuie sur TAB

Cordialement

Re,

A mon humble avis ... tu as pris ton problème complètement à l'envers ...

En effet, tu as démarré le sujet ... par la solution que tu avais en tête ...

Avec ton dernier commentaire, il est apparait comme évident que cette solution initiale n'est pas du tout celle qu'il te faut ... !!!

Si tu prenais les choses dans l'ordre .....

Il faut que tu expliques quel est ton véritable besoin ...

Oui, oui, c'est possible !

Bonjour gyrus

Un tout grand merci pour ton aide.

C'est bien la solution que j'avais imaginé