Deselection dans une ListBox

Bonjour à tous,

Je travaille actuellement sur une bibliothèque de prestataires dans le cadre de mon travail.

J'ai divers champs de recherche qui actualisent une ListBox nommée L_UF_Prestataires. Le requetage se fait via du SQL qui actualise un tableau (tableau au sens d'Excel) dans mon classeur.
Lors d'une recherche infructueuse, le tableau contient une seule ligne qui est vide.

Ma problématique arrive :
J'utilise l'évènement Private Sub L_UF_Prestataires_Click() pour afficher un tas d'informations dans l'intégralité de mon UF.
Je voudrais empêcher la sélection de l'unique ligne vide lors d'une recherche infructueuse.

Voilà donc le début de mon code sur l'évènement clic dans la ListBox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub L_UF_Prestataires_Click() Dim id$ 'Mes identifiants de presta sont des codes alphanum With ufBibliPresta id = .L_UF_Prestataires.List(.L_UF_Prestataires.ListIndex, 0) 'Je récupère l'id qui est en première colonne de ma requête 'Si Pas d'identifiant, je désélectionne (ListIndex = -1) If id = "" Then .L_UF_Prestataires.ListIndex = -1: GoTo fin End If '************* 'Suite du code '************* End With fin: End Sub

---

Mais rien à faire, la première ligne reste sélectionnée (ListIndex = 0)


J'espère être clair dans l'explication.
Merci d'avance à ceux qui prendront le temps de me répondre.

Bonne journée à tous

Bonjour,
If Trim("" & Me.ComboBox1) = "" Then Me.ComboBox1.ListIndex = -1: Exit Sub

Pardon rdurupt mais je ne comprends pas l'utilisation du trim.

Apres un test en mode pas à pas,
La condition

Code:

---

id = ""

---

dans

Code:

---

If id = "" Then: .L_UF_Prestataires.ListIndex = -1: GoTo fin: End If

---

est bien satisfaite.

Donc la ligne .L_UF_Prestataires.ListIndex = -1 est bien exécutée. Mais la ligne d'indice 0 reste sélectionnée dans la ListBox.

Je suis un peu perdu car c'est bien la première fois que je suis embêté avec .ListIndex

Re bonjour,

J'ai testé les 3 solutions suivantes :

Code:

---

1 2 3

If id = "" Then .L_UF_Prestataires.Selected(0) = False: GoTo fin End If

---

Code:

---

1 2 3

If id = "" Then .L_UF_Prestataires.ListIndex = -1: GoTo fin End If

---

Code:

---

1 2 3 4 5

If id = "" Then .L_UF_Prestataires.MultiSelect = fmMultiSelectMulti .L_UF_Prestataires.MultiSelect = fmMultiSelectSingle GoTo fin End If

---

Mais toutes sans succès :?
La ligne d'index TopIndex qui vaut 0 dans le cas qui pose problème reste sélectionnée.

Toutes vos propositions sont les bienvenues.