Passer à la textbox suivante par la touche entrée Résolu/Fermé

Question

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 :-)






Configuration: Windows / Chrome 60.0.3112.113

willy · Answer

Essaye ceci :

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

Archer · Answer

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 · Answer

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

Landry85 · Answer

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... :-)

Passer à la textbox suivante par la touche entrée

4 réponses

Discussions similaires