ListBox et KeyPress

[JORDAN]

Bonjour tout le monde, le Forum,

je n'arrive pas à trouver la méthode pour sélectionner
une ligne dans une ListBox en appuyant sur une touche

Par exemple,
si je tape "1", que la ligne 1 soit sélectionnée
si je tape "2", que la ligne 2 soit sélectionnée
Etc...

Dans la ListBox je n'ai que 3 lignes
Ensuite je récupère la ligne sélectionnée dans la variable "Choix"

Merci pour votre aide et bonne journée

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Choix = Chr(KeyAscii)
ComboBox1.SetFocus
End Sub

 

[Hervé]

Re : ListBox et KeyPress

bonjour

peut etre comme ceci :

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim choix As String
 
If KeyAscii - 49 < 0 Or KeyAscii - 49 > 2 Then Exit Sub 'gestion d'erreur
 
ListBox1.ListIndex = KeyAscii - 49
choix = ListBox1.Value
MsgBox choix'pour test
End Sub

salut

 

[JORDAN]

Re : ListBox et KeyPress

Bonjour Hervé,

ah oui, bravo
c'est tout à fait ça

Merci beaucoup et bonne journée