Discussion :

[Guy87]

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

[deedolith]

Salut,

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

[Guy87]

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

[Chrispi]

Bonsoir Guy87,

Voilà comment j'ai fait :



J'ai mis la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
  MsgBox "ok"
End Sub

dans le Module1.

Ensuite j'ai mis le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Guy87]

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.

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Guy87]

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

[Guy87]

Avec mon document, c'est peut-être plus facile à comprendre.
Essai touche entrée.xlsm

[Philippe Tulliez]

Bonjour,

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

[deedolith]

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.

[Guy87]

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.

[Guy87]

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 ?

Test saisie.xlsm

[Valtrase]

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

[Guy87]

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.

Test1 saisie.xlsm