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

rom1z

XLDnaute Nouveau
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
 

ChTi160

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
4
Affichages
165
Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG