ListBox et KeyPress

JORDAN · 25 Septembre 2009

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

Code:

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Choix = Chr(KeyAscii)
ComboBox1.SetFocus
End Sub

Hervé · 25 Septembre 2009

Re : ListBox et KeyPress

bonjour

peut etre comme ceci :

Code:

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 · 25 Septembre 2009

Re : ListBox et KeyPress

Bonjour Hervé,

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

Merci beaucoup et bonne journée

ListBox et KeyPress

JORDAN

XLDnaute Impliqué

Hervé

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Discussions similaires

ListBox et KeyPress

JORDAN

XLDnaute Impliqué

Hervé

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency