Signaler

Passer à la textbox suivante par la touche entrée [Résolu]

Posez votre question Landry85 90Messages postés mardi 5 novembre 2013Date d'inscription 17 septembre 2017 Dernière intervention - Dernière réponse le 5 sept. 2017 à 12:23 par Landry85
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 :-)






Utile
+0
plus moins
Essaye ceci :


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

Landry85 90Messages postés mardi 5 novembre 2013Date d'inscription 17 septembre 2017 Dernière intervention - 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épondre
Donnez votre avis
Utile
+0
plus moins
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 90Messages postés mardi 5 novembre 2013Date d'inscription 17 septembre 2017 Dernière intervention - 5 sept. 2017 à 12:01
Bonjour,
Non ça ne fonctionne pas plus :-/
Répondre
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
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... :-)
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !