Lancement macro

[BRUNO62]

Bonjour,

Je souhaite lancer une macro par cette combinaison de touche en A1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then
Application.OnKey "^%{z}", "Sub HH()"
Else
Application.OnKey "^%{z}", ""
End If
End Sub

Et, cela ne fonctionne pas.
Avez vous une idée ?
Merci, d'avance
A+

 

[Pierrot93]

Re : Lancement macro

Bonjour,

petite question, pourquoi ne pas lancer la macro directement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then NomDeTaMacro

bonne journée
@+

 

[camarchepas]

Re : Lancement macro

Bonjour ,

le controle z est déjà une fonction excel "annuler remplir" donc pas possible par cette combinaison

 

[Pierrot93]

Re : Lancement macro

Re,

@camarchepas,
chez moi, Excel 2003 tu peux réaffecter "ctrl z"...., n'importe quel raccourci existant d'ailleurs...

 

[camarchepas]

Re : Lancement macro

Bonjour Pierrot et Bruno

Oups pour moi ; déjà c'est un Ctrl Alt z et pas Ctrl z

Oui très juste Pierrot🙄

Alors pour me rattraper voici :😛
La fonction est donc active que si le changement à eu lieu dans la cellule A1 sinon inopérant ( Comme demandé)
😎
If Target.Address = "$A$1" Then
Application.OnKey "^%{z}", "HH"
Else
Application.OnKey "^%{z}", ""
End If

la procédure HH doit être dans un module et pas dans le thisworkbook ,sauf erreur de ma part.😱
En tous cas comme cela ça marche😀

 

[BRUNO62]

Re : Lancement macro

Bonsoir,

Pour moi, cela ne fonctionne pas.
Joint copie fichier
Avez vous une idée ?
a+

 

[Pierrot93]

Re : Lancement macro

Bonjour,

ton code est placé dans le module de la feuille de calcul. Le code tel que tu le présentes devrait être dans le module "thisworkbook"....

le code ci-dessous, placé dans le module de la feuille fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then HH
End Sub

bonne journée
@+

 

[BRUNO62]

Re : Lancement macro

Bonjour, bonjour Pierrot93

Merci, c'est ok.

Bonne journée
A+