Discussion :

[antonysansh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

[antonysansh]

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

Apres un test en mode pas à pas,
La condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

id = ""

dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Re bonjour,

J'ai testé les 3 solutions suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.