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