Erreur introuvable

[JCAZAUX]

Bonjour
J'ai fait un code hier pour faire une petite manip. Ca fonctionnait très bien.
Aujourd'hui je l'ouvre sans avoir changé quoi que ce soit, il m'affiche "erreur de compilation : Fonction ou variable attendue, en pointant la ligne "Application.OnKey "~", Application:=Retour"

Comment se fait-il que mon module1 n'est pas reconnu?

Merci si quelqu'un peut m'aider.


J'ai crée cela :


Dans This Workbook

Sub Entree()
Application.OnKey "~", Application:=Retour
End Sub

Dans module1

Sub Retour()
ActiveCell.Offset(0, 4).Range("A1😀1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -12).Range("A1").Select
End Sub

 

[Lone-wolf]

Re : Erreur introuvable

Bonjour JCAZAUX,

pourquoi tous ces Select???? Je pense que sa vient de l'enregistreur de macros. Ne te fie pas à lui. Il a été conçu comme ça, mais c'est ich n'importe quoi.

Et pourquoi avoir mis application "Retour"???, Vu qu'il s'agit d'appeler une macro mettre application c'est faux.

Sans le OnKey c'est comme ceci: Retour(simplement) - Call Retour ou Run "Retour"

Voici trois exemples plus propres

Sheets("Feuil1").Range("e3").Copy Sheets("Feuil2").Range("a1")

'Oubien

Sheets("Feuil2").Range("a1") = Sheets("Feuil1").Range("e3")


Application.OnKey "~", "Retour"

A+ 😎

 

[Dranreb]

Re : Erreur introuvable

Bonjour.
Mettez :

Application.OnKey "~", "Retour"

Edit: Bonjour Lone Wolf. Désolé je n'avais pas vu ta réponse parce que je n'avais pas vu le temps passer à force de ruminer les deux faits: 1)- Un nom de Sub ne retourne pas de valeur et ne peut donc être passée en argument, 2)- La méthode OnKey n'admet pas d'argument nommé Application.

 

[Lone-wolf]

Re : Erreur introuvable

Bonjour Dranreb,

Bonjour.
Mettez :

Application.OnKey "~", "Retour"

ça c'est déjà fait 😉 voir mon post.


Amicalement Lone-wolf 😎

 

[JCAZAUX]

Re : Erreur introuvable

Bonjour
Merci beaucoup (à vous deux 😉 )
Effectivement le Application:= était de trop...
Ca marche mieux.
Connaissez-vous le code pour la touche Entr du pavé numérique?
Car je voudrais déclancher avec cette touche là plutôt que le "entrée". Ou bien la touche "+" du pavé.
Merci!

 

[Lone-wolf]

Re : Erreur introuvable

Re,

dans le module tu sélectionne application.onkey puis F1. 😉


A+ 😎