ListBox1.ListIndex = 99
Private Sub ListBox1_Click()
'Stop
ListBox1.Activate
ListBox1.ListIndex = 99
MsgBox ListBox1
'ListBox1.Activate
'ActiveSheet.ListBox1.ListIndex.Item(20).SetFocus
'nombre d'éléments dans la liste
'MsgBox ListBox1.ListCount '.List ' = 500 '.Item(500).Selected 'ed(500) = 500
'ListBox1.Select
'ListBox1.Selected
End Sub
Pourrais tu nous expliquer ce que tu veux faire au final ?
Ne pourrais tu pas utiliser un autre évenement ?
Je comprend pas bien l'intérêt de sélectionner un élément fixe dans un listbox à chaque fois que l'utilisateur clic sur dessus.
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.ListBox1.ListIndex = 25
MsgBox ListBox1
End Sub
Le but est de sélectionner un élement sur un numéro
Private Sub ListBox1_GotFocus()
ActiveSheet.ListBox1.ListIndex = 25
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.ListBox1.Activate
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.ListBox1.ListIndex = 25
MsgBox ListBox1
End Sub
Private Sub ListBox1_GotFocus()
ListBox1.ListIndex = 25
End Sub