Comment puis-je définir ENTRER keypressed pour l'événement de façon dynamique choisi Cellule en VBA pour Excel

Je suis dynamique, choisi Cellule qui sera rempli avec des informations qui im va mettre et quand j'ai mis l'information et de la ENTRÉE keypressed à la Cellule;

1 - il doit déclencher une macro

'macro(value)
macro1 myinfo

2 - macro doit obtenir de l'information dans la cellule

myinfo = Cells( i, j )

Alors, comment puis-je obtenir?

Essayez de rechercher pour "événement keypress" pour excel vba. J'aimerais aider plus mais je suis en cours d'exécution hors de la porte.
lol belle réponse.. oui je l'ai fait et ne pourrais pas trouver quelque chose à propos de la délimitation d'un keypressed un événement excel " ActiveWorkbook.Les draps.Application.ActiveCell.Les cellules " de la Cellule.
Sons terriblement comme un XY problème. Pourquoi voulez-vous détecter la touche Enter enfoncée? Peut-être que nous pouvons proposer des alternatives.
cause de mauvais démarrer une macro lorsqu'un stock code saisi dans la cellule et donner l'info de ce stock dans excel et Worksheet_Change ou Change commandes s'entraîner pour obtenir une boucle en cause lorsque le stock d'info pour être analysée dans les cellules, il va déclencher Change événement, encore et encore..
Jean-François et Siddharth vous ai donné les bonnes réponses, avec de bonnes explications; dommage que tu ne peut pas accepter à la fois. Une question a été posée en décembre qui avaient des similitudes. Si vous regardez, il ne sera pas sembler similaires, à l'exception de votre phrase "dynamiquement choisi de Cellule". Un rapide coup d'oeil à la troisième alternative, dans ma réponse à Format de cellule d'Erreur #VALEUR dans le cas où il y a une idée que vous pouvez utiliser.

OriginalL'auteur Berker Yüceer | 2012-02-21

18

Pour capturer une clé spécifique d'être pressé, vous avez besoin de la OnKey méthode:
```
Application.OnKey "~", "myMacro" ' for the regular enter key
' or if you want Enter from the numeric keypad:
' Application.OnKey "{ENTER}", "myMacro"
' Below I'll just assume you want the latter.
```
Ci-dessus dit que myMacro doit être exécuté lorsque l' Entrée touche est enfoncée. Le OnKey méthode ne doit être appelé qu'une seule fois. Vous pourriez le mettre dans la Workbook_Open événement:
```
Private Sub Workbook_Open()
    Application.OnKey "{ENTER}", "myMacro"
End Sub
```
Pour arrêter la capture de l' Entrée,
```
Application.OnKey "{ENTER}"
```
Pour vérifier si Entrée a été enfoncée alors que sur la cellule A1, vous pourriez faire ceci:
```
Sub myMacro()
    If Not Intersect(Selection, Range("A1")) Is Nothing Then
    ' equivalent to but more flexible and robust than
    'If Selection.Address = "$A$1" Then
        MsgBox "You pressed Enter while on cell A1."
    End If
End Sub
```
Maintenant pour détecter si Entrée a été pressé dans une cellule spécifique seulement si la cellule a été édité, il nous faut être un peu habile. Disons que vous modifiez la valeur d'une cellule et appuyez sur Entrée. La première chose qui est déclenché le OnKey macro, et après que le Worksheet_Change événement est déclenché. Donc, vous devez tout d'abord pour "sauver" les résultats de OnKey, puis de gérer le Worksheet_Change événement en se basant sur ces résultats.

Initier OnKey comme ceci: Application.OnKey "{ENTER}", "recordEnterKeypress"

Dans le module de code vous auriez ce:
```
Public enterWasPressed As Boolean

Sub recordEnterKeypress()
    enterWasPressed = True
End Sub
```
La cellule à modifier sera capturé par les Worksheet_Change événement:
```
Private Sub Worksheet_Change(ByVal Target As Range)
    If enterWasPressed _
        And Not Intersect(Target, Range("A1")) Is Nothing Then
        MsgBox "You just modified cell A1 and pressed Enter."
    End If
    enterWasPressed = False 'reset it
End Sub
```
Maintenant, le code ci-dessus fait ce que vous demandez dans la question, mais je tiens à le répéter votre question sonne terriblement comme un XY problème. Pourquoi voulez-vous détecter le Entrée touche enfoncée? Laissez-nous savoir et nous pourrions peut-être proposer des alternatives.

+ 1, j'ai presque terminé mon post quand j'ai reçu une alerte que quelqu'un a posté une solution donc j'ai rafraîchi la page et presque souri. Mon code correspond exactement comme la vôtre, sauf pour 2 choses. 1) j'ai AUSSI été la capture "~" ainsi que pour la touche "ENTRÉE" afin qu'il intègre à la fois "ENTRÉE" du clavier. 2) j'ai été l'ajout d'une mesure de précaution. On ne devrait pas le piège de la touche entrée sinon ça ne présentent pas le comportement par défaut qui est de passer à la cellule suivante 🙂 "EDIT: je vois que vous avez pris soin de "~"" 🙂 Ah je vois un 3ème Differece "Enableevents=False" qui est un must lors de la manipulation de Worksheet_Change()
+1 claire et élaborée, comme toujours 🙂
+1 parfait explication sur la façon dont il fonctionne. Aussi comme je l'ai dit que le commentaire sous votre question. @Jean-FrançoisCorbett cause de mauvais démarrer une macro lorsqu'un stock code saisi dans la cellule et donner l'info de ce stock dans excel.. ceux Worksheet_Change ou des commandes de Changement ne fera que provoquer à obtenir dans une boucle..
Yüceer: Cela dépend de la façon dont vous gérer la Feuille de calcul de l'Événement 😉 j'ai juste posté une réponse, mais vous aviez déjà choisi votre réponse 🙂 Sid
Corbett,Merci pour votre réponse complète et.Mais j'ai un autre problème dans ma victoire.app. Le OnKey méthode ne fonctionne pas à cause de la protection que j'ai appliqué sur la feuille.Est-il un moyen de détecter une pression sur une touche, même dans une feuille protégée?

OriginalL'auteur Jean-François Corbett
6

cause de mauvais démarrer une macro lorsqu'un stock code saisi dans la cellule et donner l'info de ce stock dans excel et Worksheet_Change ou des commandes de Changement ne fera que provoquer pour obtenir une boucle en cause lorsque le stock d'info pour être analysée dans les cellules, il sera le déclencheur d'événement de Changement, encore et encore.. – Berker Yüceer 31 minutes ago

Berker,

Pour cela, vous n'avez pas besoin d'intercepter la Touche "ENTRÉE". Disons, vous tapez le Code Boursier et au lieu d'appuyer sur ENTRÉE, vous avez cliqué sur une autre cellule. N'aimeriez-vous pas de la macro à feu de ce scénario? Si oui, alors essayez le code ci-dessous. Je suis en supposant que la macro à exécuter lorsque le Stock Code est entré dans la Cellule A1.
```
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    '~~> This line ensure that the code will enter into the
    '~~> block only if the change happened in Cell A1
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False

        '
        ' ~~> Put your macro code here or run your macro here
        '
    End If

LetsContinue:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub
```
MODIFIER: je vois que vous avez déjà choisi votre réponse 🙂

EDIT: I see you have already selected your answer :) qui ne provoque aucun trouble u obtiendrez toujours le +1 pour le décollage de mon cheval lunettes.. lol
LOL. ce n'était pas pour les points. C'était une bonne question et m'avait intéressé très peu de temps. 🙂
oui je sais ce que tu veux dire avec "un certain temps".. xD donc +1 signifie que ur réponse est précieux pour cette question. ce n'est pas un plan de la concurrence, de ses montrer aux gens plus d'un couple de précieuses ressources pour résoudre leurs problèmes alors merci pour votre temps et bonne réponse.

OriginalL'auteur Siddharth Rout
3

utilisation de la feuille de calcul événement de changement;

quelque chose comme ci-dessous,
```
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        ' call your sub

    End If
End Sub
```
Mettre ce code dans le module de feuille de calcul.

alors, comment puis-je déterminer si la touche Enter enfoncée dans la cellule? MA question était tout au sujet de la définition d'un keypressed événement dans une cellule...
si keypressed événement n'est pas possible pour une cellule de ur code peut venir dans maniable mais ma première priorité est de trouver une façon pour que keypressed événement.. pour cette raison +1
a un point: La Worksheet_Change événement peut être déclenché par des facteurs autres que la touche Entrée soit pressée (par exemple, modifier une cellule, puis cliquez ailleurs pour sortir de la modifier plus). Si vous n'êtes pas vraiment la détection de la touche Enter enfoncée. Pourquoi @BerkerYüceer veut faire cela, cependant, je n'ai aucune idée.
Vous pouvez également appuyez sur entrée alors que sur une cellule sans modifier son contenu. Ce ne sera pas capturé soit par l' Worksheet_Change événement.

OriginalL'auteur Jilji
0

MERCI Beaucoup pour cela et je ne je peu modifier comme suit:

Dim oldvalue Comme une Chaîne de caractères
Dim newvalue Comme une Chaîne de caractères
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Whoa
```
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

'~~> This line ensure that the code will enter into the
'~~> block only if the change happened in Cell A1
If Not Intersect(Target, Range("A:D")) Is Nothing Then
    Application.EnableEvents = False

    '
    ' ~~> Put your macro code here or run your macro here
    '
    oldvalue = Range(Target.Address).Value
    Range(Target.Address).Value = Range(Target.Address).Value * 2.33
    newvalue = Range(Target.Address).Value
    MsgBox ("value changed from  " & oldvalue & "  to  " & newvalue)
End If
```
LetsContinue:
Avec L'Application
.ScreenUpdating = True
.EnableEvents = True
Fin Avec
```
Exit Sub
```
Whoa:
MsgBox Err.Description
Reprendre LetsContinue
End Sub

qui vous donnera une chance de changer n'importe quelle cellule dans la plage par une certaine valeur(je veux la valeur de la cellule à se multiplier-ed en facteur une fois que les cellules valeur est modifiée et montrez-moi un message qui va donner de l'ancienne et de la nouvelle valeur,

cheers
meilleure chance

OriginalL'auteur engmgs

Vous devez vous connecter pour publier un commentaire.