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

rom1z · 1 Août 2019

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 !

VB:

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 · 1 Août 2019

Bonjour,

Cela irait sans doute mieux avec ListBox1.ListIndex.

Bonne soirée

ChTi160 · 1 Août 2019

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

VB:

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 · 2 Août 2019

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

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

rom1z

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

rom1z

XLDnaute Nouveau

Discussions similaires