Discussion :

[pr04860]

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 :

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

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

[Jean-Philippe André]

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

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 :

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

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

[pr04860]

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

[pr04860]

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

[LeForestier]

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

Code :

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

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+

[pr04860]

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 :

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

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