Résolu 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
 

rom1z

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas