Touche Entrée déclenche macro

Bonjour,
Petit souci avec ce programme :
'----------------------------------
Sub macro1()
MsgBox "ok"
End Sub

'-----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey Key:="{RETURN}", procedure:="macro1"
Application.OnKey Key:="{ENTER}", procedure:="macro1"
End Sub

J'ai l'erreur suivante :
Impossible d'exécuter la macro, il est possible quelle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.
Si quelqu'un peut m'aider... Merci

Salut,

Ta macro doit être ecrite dans un module standard, et non dans le module de la feuille.

Bonsoir,
Super ça marche, j'avais essayé les feuilles, les modules ou Thisworkbook mais jamais en séparant les 2 procédures.
Merci

Bonsoir Guy87,

Voilà comment j'ai fait :

Pièce jointe 630445

J'ai mis la macro :

Code:

---

1 2 3

Sub Macro1() MsgBox "ok" End Sub

---

dans le Module1.

Ensuite j'ai mis le code :

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey Key:="{ENTER}", procedure:="macro1" End Sub

---

dans ThisWorkbook.

Ça semble aussi fonctionner quand on le met dans Feuil1.

Tu peux aussi mettre ce code qui fonctionne aussi :

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Key = "{ENTER}" Then procedure = "Macro1" End If End Sub

---

Espérant avoir pu t'aider.

Bonne soirée.

Bonjour et merci à tous les deux,
Tout fonctionne maintenant, la seule chose à connaître je crois que c'est l'endroit ou l'on place les procédures.
Je n'ai pas tout compris, je pense que quand on a un bouton de commande dans une feuille, il faut que la procédure appelée soit dans cette feuille.
Par contre pourquoi utiliser les modules (sans doute pour les procédures communes) !
Et pourquoi utiliser ThisWorkBook !

Une autre question à l'occasion, mon problème était d'appeler une procédure quand j'appuie sur la touche Entrée (ce qui fonctionne bien), mais comment faire pour limiter l'effet de la touche Entrée à une seule cellule par exemple B2.

Bonjour,

Citation:

---

comment faire pour limiter l'effet de la touche Entrée à une seule cellule par exemple B2.

---

Il suffit de vérifier la propriété Address de l'argument Target

Exemple

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$B$2" Then ' le code MsgBox "Modification dans la cellule " & .Address End If End With End Sub

---

Bonjour Philippe,
En réalité ma procédure s'appelle Valider et la cellule B4.
J'avais vu ce code qui est très simple et évident mais ça ne fonctionne pas. Quand j'appuie sur Entrée la procédure Valider est bien lancée mais quelque soit la cellule.
C'est bizarre que le code du If s'exécute puisqu'il est lié à B4.

Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$4" Then
Application.OnKey Key:="{RETURN}", Procedure:="Valider"
Application.OnKey Key:="{ENTER}", Procedure:="Valider"
End If
End With
End Sub

Avec mon document, c'est peut-être plus facile à comprendre.
Pièce jointe 630474

Bonjour,

Citation:

---

Quand j'appuie sur Entrée la procédure Valider est bien lancée mais quelque soit la cellule

---

C'est normal, l'instruction OnKey agit comme une procédure événementielle dès que l'on clique sur la touche (Enter)
Il est toujours possible de prévoir un argument booléen à la procédure Valider et lui ajouter un If pour exécuter ou pas le programme mais à partir du moment où l'on intercepte l'événement Change et que l'on vérifie l'adresse de la cellule où a eu lieu l'événement, je ne vois pas très bien l'intérêt d'utiliser le OnKey

A mon avis, c'est parce que tu as associé la touche entrer à ta macro.

A mon avis, ce que tu souhaites faire est une détection de touche, et non une association.
Probleme:
Le classeur et les feuilles n'offrent aucun évènement basé sur les frappes de touche.
Il ne reste pas 36 solutions, c'est à ta fonction "Verifier" de verifier la plage de cellules selectionnée.

Merci à tous les deux, j'ai compris pourquoi, c'est le principal.
J'ai un autre souci mais je veux d'abord chercher et faire des essais avant de revenir vers vous si je n'y arrive pas.
Bonne soirée et que la France gagne.

Bonjour à tous,
Je tourne en rond depuis plusieurs jours.
Je pose une question en B3, je réponds en B4
Quand je valide ma réponse par Entrée je déclenche une procédure.
Tout ceci fonctionne bien, mon souci est que je veux à l'ouverture du classeur effacer le contenu de B3 et B4 et effacer ces mêmes cellules avant chaque nouvelle saisie.

Le problème est que à chaque fois que l'on efface le contenu, on déclenche un événement qui enclenche la procédure de vérification.
Peut-être faut-il s'orienter vers une autre façon de faire ?

Pièce jointe 630855

Salut,
Peut-être un début de réponse par ici : Propriété Application.EnableEvents (Excel) | Microsoft Learn

Bonjour Valtrase,
C'est bon ça fonctionne avec EnableEvents à False et True suivant le besoin.
Je mets le petit fichier modifié, ça peut rendre service.
Merci beaucoup et bonne journée.

Pièce jointe 630860