Empêcher la sélection de certains éléments d'une listbox

[rom1z]

Bonjour, j'ai une listbox avec deux colonnes et je souhaiterais empêcher la sélection à la souris dans la listbox des éléments dont la colonne 2 affiche "non dispo"
voici le code que j'ai testé mais cela ne fonctionne pas :
merci d'avance !

Private Sub ListBox1_Click()
If Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "non dispo" Then
GoTo 6
End If
    Me.TextBox7.Value = Me.ListBox1.Value
6
End Sub

 

[Hasco]

Bonjour,

Cela irait sans doute mieux avec ListBox1.ListIndex.

Bonne soirée

 

[ChTi160]

Bonsoir rom1z
Bonsoir le Fil(Roblochon) ,le Forum
En tenant compte de ce que Roblochon a dit

Private Sub ListBox1_Click()
 With Me.ListBox1
  If .List(.ListIndex, 1) <> "non dispo" Then
    Me.TextBox7.Value = .List(.ListIndex, 0) ' .Value
  End If
 End With
End Sub

non testé pas de Fichier !
jean marie

 

[rom1z]

Merci à vous deux pour cette réponse rapide et efficace !
Cela fonctionne.