Navigation entre TextBoxs ou Comboboxs

Bonjour à tous,

Sur une feuille de calcul (Excel 2000) sont disposés plusieurs textboxs et comboboxs.
Je souhaiterais obtenir par code et après validation de ma saisie par un Chr(13) ou Chr(9) le passage au textbox ou combobox suivant.

J'ai essayé le code suivant sans succès:

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)   If Chr(keyAscii) = 9 Or Chr(keyAscii) = 13 Then TextBox2.Activate End If   End Sub

---

Quelqu'un peut-il me communiquer la bonne méthode?
Merci d'avance

salut,
sauf erreur de ma part, la valeur du KeyCode est déjà le numérique.
L'aide en ligne :f1: nous spécifie ceci :

Citation:

---

KeyCode Nombre entier correspondant au code de touche de la touche ayant été appuyée ou relâchée.

---

Aussi, je ne crois pas qu'il soit nécessaire de passer par la fonction Chr() mais qu'il est possible de gérer directement les informations comme ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)   If keyAscii = 9 Or keyAscii = 13 Then TextBox2.Activate End If   End Sub

---

A vérifier :ccool:

Bonjour,
J'ai essayé la modification proposée par jpcheck sans plus de résultat.
Ne serais-ce pas la méthode "Activate" qui ne fonctionnerait pas?
(pourtant utilisée par ailleurs avec succès)
Et si oui par quoi la remplacer?

Salutations

Bonjour,
J'obtiens le résultat souhaité (passage au Textbox suivant) en utilisant la touche espace Chr(32) alors que je ne parviens pas à déclencher l'action avec la touche return Chr(13) ou tabulation horizontale Chr(9) qui ne sont pas prises en compte par KeyAscii ni d'ailleurs par l'instruction IF...THEN essayée dans un évènement CHANGE.
KeyAscii me renvoie 13 lorsque je fais ShiftReturn, ce qui ne serait pas très commode dans l'utilisation de mon application Excel.
Quelqu'un pourrait-il me dire quelle est la raison pour laquelle mes touches Return et Tab ne me renvoient pas de valeur ASCII.
Merci d'avance

Bonjour,
Tu ne doit pas mettre ton test dans KeyPress mais dans KeyDown (ou Up)

Code:

---

1 2 3 4 5

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

---

A+

Merci!
La solution de LeForestier est la bonne sauf que j'ai remplacé SetFocus qui génère une erreur 438 par Activate.
Félicitations pour ce beau et bon site.

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox2.Activate End If End Sub

---