Déclaration de raccourci clavier

[ccdouble6]

Bonjour le forum,

J'utilise excel2007 sous XP et j'ai du mal à valider mes macros de "déclaration" de raccourci clavier vers une SUB() spécifique.
J'avais récupéré sur le forum pour excel2003 un modèle que j'ai visiblement mal adapté dans ThisWorkBook. Ci-jointe ma capture d'écran du texte avec le message d'erreur dès l'ouverture du fichier 😕
Au passage peut-on alléger un peu la syntaxe ? tout cela me semble bien lourd pour une seule touche clavier : ici la touche "Fin".
Qu'un peut-il m'aider??
Merci par avance et bonne journée !!

 

[PascalXLD]

Re : Déclaration de raccourci clavier

Bonjour

tu as 2 sub qui portent le même nom touchefin() même si les arguments sont différents

 

[kiki29]

Re : Déclaration de raccourci clavier

Salut, Msg d'erreur normal puisque 2 procedures ( ici ToucheFin ) sont présentes dans le même module

 

[ccdouble6]

Re : Déclaration de raccourci clavier

Merci tous les deux, j'avais compté avec les éléments entre () c'est ok alors 😱

Par contre si je dois nommer la sub avec "arg2" différemment comment dans ce cas nommer le ToucheFin d'en haut celui de "Private Sub Workbook_Open?
Je le nomme comme celui du Arg1 ou comme celui du Arg2 ??

Merci et bon aprem !!!

 

[ccdouble6]

Re : Déclaration de raccourci clavier

Bonjour Kiki29, PascalXLD, le forum,

J'ai corrigé le souci et la macro marche bien dans ma page ARTICLES 🙂
Problème : elle marche aussi dans toutes les autres pages une fois que je l'ai testée sur ARTCLES, la partie Arg2 ne fait donc pas son travail. 😕
Je ne vois pas où est la cause dans le texte que par ailleurs je ne pige pas bien : Sh ? Arg ? pourquoi ces infos entre () dans les titres quand systématiquement dans mes macros je n'en mets aucune 😕😱 jamais vu ça 😛
Du coup j'ai fait un fichier plus petit pour vous montrer, au format xls (d'habitude j'utilise le xlsb mais là ça ne passe pas)
Le but c'est que la touche FIN n'enclenche aucune macro dans les autres feuilles que ARTICLES.
Merci d'avance à qui peut m'éclairer 🙂 bonne soirée !!!

 

[ROGER2327]

Re : Déclaration de raccourci clavier

Bonjour ccdouble6

Peut-être comme ceci ?

[COLOR="DarkSlateGray"][B]Private Sub Workbook_Open()
   ToucheFinA ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   ToucheFinA Sh
End Sub

Sub ToucheFinA(Arg1)
'La feuille où le raccourci doit s'appliquer
   If Arg1.Name = "ARTICLES" Then
      Application.OnKey "{End}", "Coucou"
   Else
      Application.OnKey "{End}"
   End If
End Sub[/B][/COLOR]

ROGER2327
#3516

Jeudi 5 Merdre 137 (Saint Crouducul, troupier, SQ)
3 Prairial An CCXVIII
2010-W20-6T17:28:12Z

 

[ccdouble6]

Re : Déclaration de raccourci clavier

Bonsoir Roger2327, le forum,

Merci Roger2327 c'est allégé, c'est logique, c'est beau 🙂 je vais vite amener ça chez moi pour essayer 😎
Bonne soirée !!!