Discussion :

[Crachover]

Bonjour,

J'aimerais créer un évènement (code VBA) lorsque je fais {ENTER} sur une cellule définie.

Exemple : J'ai une page Excel avec juste UNE cellule (G9) non verrouillée, lorsque je tape une donnée je dois obligatoirement cliquer sur un bouton pour lancer du code, j'aimerais que ce code se lance aussi quand je fais simplement ENTER

Est-ce possible ?

Merci d'avance

[Transitoire]

Oui c'est possible avec entre autres des OnKeys.
les deux macros ci-dessous à mettre dans le module privé de la page en question

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Activate() 'Met en route l'automatisme lors de l'activation de la feuille
Tauto
End Sub
 
Private Sub Worksheet_Deactivate()  'Stoppe l'automatisme lors de la deactivation de la feuille
TautoFin
End Sub

Dans un module simple, les macros ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Tauto()
    Application.OnKey "{enter}", "EntVal"
End Sub
Sub TautoFin()
    Application.OnKey "{enter}"
End Sub
 
Sub EntVal()
If ActiveCell.Address = "$G$9" Then
NomVotreMacro  ' remplacer le nom ci-avant par celui de la macro à lancer
End If
End Sub

Cordialement

[Crachover]

Bonjour,

Merci cela fonctionne très bien avec la touche [Enter] du pavé numérique mais pas avec la touche ENTER (celle avec la flèche)...

Belle journée

EDIT
Je crois avoir trouvé...

Code :

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

Application.OnKey "~"

Encore merci :-)

[Transitoire]

Bonjour, je connaissais pas votre manière avec le "Tilde". Je connaissais celle ci-dessous, mais l'essentiel est que ça marche

Code :

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

Application.OnKey "{return}"

Cordialement

[Crachover]

ENTER = la touche "Enter" du clavier numérique
~ = la touche "Return" du clavier

[Crachover]

Bonjour,

Même chose, mais pour une TextBox...

J'ai maintenant ce code qui fonctionne nickel pour passer de la TextBox1 à la TextBox5 via la touche ENTER, sauf que le texte de la TextBox5 ne se sélectionne pas et j'aimerais qu'il se sélectionne... (j'ai même une TextBox qui sans rien changer, efface le contenu... )

Code :

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

1
2
3
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox5.SetFocus
End Sub

J'ai essayé ceci, il semble sélectionner quelque chose mais le texte s'efface

Code :

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

1
2
3
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox5.SetFocus : TextBox5.SelStart = 0 : TextBox5.SelLength = Len(TextBox5.Text)
End Sub

J'ai trouvé ceci, mais je n'arrive pas à l'adapter à KeyDown...

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
    .SelStart = 0
    .SelLength = Len(.Text)
    .SetFocus
End With
End Sub

Merci d'avance pour votre aide