[AC-2007] Problème de test de Listbox nulle (vide) [Résolu]

[Tipstitou]

Bonjour,

Cela fait un petit moment que je regarde sur le forum sans trouver de réponse à mon "hic".
Je précise que je ne maîtrise pas bien les fonctions relatives aux listes (ItemsSelected, ListIndex, etc.).


Bref : mon formulaire propose (entre autres) :

- une listbox
- une zone de filtre de cette listebox.

La liste filtrée peut ne peux plus avoir d'occurrence.
Sur sortie de mon filtre, je souhaite déclencher deux évènements différents en fonction du résultat (liste vide ou non).
Je précise que ma liste est mise à jour sur l'évènement Change de la zone de filtre.

J'ai essayé

Code :

If IsNull(MaListe) = True then

J'ai aussi essayé

Code :

If MaListe = "" Then

Mais que ma liste soit vide ou non, j'obtiens le même résultat !
Est-ce que quelqu'un aurait une idée de mon erreur ?
Est-ce que je me trompe de fonction ?

Merci d'avance de votre aide.

[PapouDomi]

Bonjour.
Dans une appli développée précédemment, j'avais besoin de compter le nombre d'éléments sélectionnés dans une liste déroulante.
Ci-dessous le code la fonction de comptage

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function CountSelect(ByVal lstListe As ListBox) As Integer
'Cette fonction compte et renvoi le nombre d'éléments sélectionnés dans la liste passée en paramètre
 
'Entrée:  lstListe:  Liste dont on veut compter le nombre d'éléments sélectionnés
 
  Dim i As Integer      'Indice de parcours de boucle
  Dim NbSel As Integer  'Nombre d'élements sélectionnés
 
  CountSelect = 0
  NbSel = 0
 
  For i = 0 To lstListe.ListCount - 1
    If lstListe.Selected(i) Then
      NbSel = NbSel + 1
    End If
  Next i
 
  CountSelect = NbSel
 
End Function

Cordialement, Dominique

[Tipstitou]

Merci beaucoup !
Je vais tester cette fonction de ce pas.

Je m'étonne quand même que ce fameux "IsNull" ou vide ne fonctionne pas.
Il fonctionne da

[Tipstitou]

... pardon, ripade !

Donc : il fonctionne dans d'autre partie de mon code.
Etrange, étrange.

En tout cas merci.

[Tipstitou]

Euh... bon d'accord, je suis vraiment nulle et je me demande si je ne vais pas arrêter de faire semblant de coder !

HElp !!!
J'ai bien importer ta fonction dans un module, mais impossible de l'appeler !!

Code :

CountSelect(ListeCabinet)

C'est pas comme ça, hein ?!

Pfff... pas facile de bidouiller sans avoir jamais rien appris...

[Tipstitou]

Re !

Je n'ai toujours pas trouvé comment appeler la fonction (!), mais j'ai trouvé une réponse beaucoup plus simple :

Code :

If ListeCabinet.ListCount > 0 Then

ou

Code :

If ListeCabinet.ListCount <= 0 Then

[PapouDomi]

Bonjour
Exact.
J'ai focalisé sur la solution que j'avais utilisé précédemment et où il me fallait connaître le nombre d'éléments sélectionnés dans plusieurs listes différentes.
Effectivement bien plus compliqué que nécessaire.
Cordialement, Dominique