Discussion :

[marco62118]

bonjour à tous
je veux utiliser un listbox pour que l'utilisateur choisisse un nombre!
je ne sais si c'est possible mais j'aurais voulu que lorsque l'utilisateur utilise l'ascenceur pour faire défiler les valeurs qu'il ne soit pas obligé de sélectionner la valeur , le simple fait qu'elle apparaisse dans la case (juste la hauteur d'une seule ligne) cette valeur soit sélectionnée lorsqu'il appuiera sur la touche OK
merci d'abvance

[SfJ5Rpw8]

? Vb6 ? Vba ?

tiens en VBA :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Cb_OK_Click()
If ListBox1.TopIndex > 0 Then
   TextBox1 = ListBox1.List(ListBox1.TopIndex)
 
 Else
   TextBox1 = ""
 End If
End Sub

[jmfmarques]

Je ne sais pas comment l'index d'une listbox est géré sous VBA !
sous VB, on ne peut avoir d'index < 0 et en conséquence, le topindex ne peut être inférieur à 0 !

la syntaxe est donc la suivante sous VB :

Code :

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

1
2
3
4
5
 
Private Sub Command1_Click()
  MsgBox List1.TopIndex '===== pour l'index du 1er article "affiché"
  MsgBox List1.List(List1.TopIndex) '=== si on préfére avoir la valeur du 1er article "affiché"
End Sub

et la référence à la valeur, même si la liste est vide, sera toujours la bonne et donc :
Text1.text = List1.list(list1.topindex)

[marco62118]

bonjour
merci c'est juste ce que je voulais
bonne journée