Passer à la textbox suivante par la touche entrée

Résolu/Fermé

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 - 5 sept. 2017 à 01:15
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 - 5 sept. 2017 à 12:23

Bonsoir,

J'ai 5 textbox , quand j'entre du texte dedans il se copie automatiquement dans une cellule avec le code :

Private Sub Textbox1_Change()

Sheets("CourrierExpertise").Range("F4") = Me.TextBox1.Value

End Sub

J'aimerais tout simplement que la copie s'effectue après avoir pressé "entrée" et que le curseur passe dans la textbox suivante (de textbox1 vers textbox2).

Merci du coup de main :-)

A voir également:

Passer à la textbox suivante par la touche entrée
Touche rémanente - Guide
Quelle touche pour débloquer la souris ? - Guide
Passer de windows 7 à windows 10 - Guide
Passer de qwerty a azerty - Guide
Passer à la ligne excel - Guide

4 réponses

Réponse 1 / 4

willy
5 sept. 2017 à 01:33

Essaye ceci :


Private Sub Textbox1_Change()
  Worksheets("CourrierExpertise").[F4] = TextBox1: TextBox2.SetFocus
End Sub

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
5 sept. 2017 à 11:00

Alors, j'ai modifié le .SetFocus qui ne fonctionnait pas par .Activate et là ça passe bien à la textbox suivante, mais le petit Hic, c'est que cela produit dès que je presse une touche du coup je ne peux entrer que la première lettre du mot à taper.
Il ne manque surement que l'action "touche Entrée pressée" mais je ne trouve comment l'écrire.

Réponse 2 / 4

Archer
5 sept. 2017 à 11:47

bonjour
peux etre comme ca

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("CourrierExpertise").Range("F4") = TextBox1.Value
End Sub

A+
Maurice

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
5 sept. 2017 à 12:01

Bonjour,
Non ça ne fonctionne pas plus :-/

Réponse 3 / 4

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
Modifié le 5 sept. 2017 à 12:13

J'ai essayé ça mais ça ne fonctionne pas plus :

'FONCTIONNEMENT DE LA TEXTBOX1

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Worksheets("CourrierExpertise").[F4] = TextBox1.Value
    TextBox2.Activate
End Sub

J'ai en fait du mal à comprendre/traduire le fonctionnement de la ligne private sub

Réponse 4 / 4

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
Modifié le 5 sept. 2017 à 12:25

Yeeeeesssss !!!!!!

J'ai trouvé après différents essais :-)

'FONCTIONNEMENT DE LA TEXTBOX1

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 13 Then Sheets("CourrierExpertise").Range("F4") = TextBox1.Value: TextBox2.Activate
    
    
End Sub

Merci à vous!!!

PS :-D Vous pouvez aussi remarquer que j'ai trouvé comment coller un vrai
code, j'apprends... :-)

Discussions similaires

erreur McUICnt.exe

ma mere a oublié son mot de passe

Touches majuscule et minuscule inversées sur mon clavier

Point d'entrée introuvable

Touche "home" sur pc portable.

Discussions similaires

Newsletters