"Valeurs" Null dans Listbox.ListRésolu

Question

Bonjour,

Dans un exemple d'utilisation de listbox, j'ai voulu tester la propriété List des listbox, et surtout passer le contenu d'une listbox multicolonne dans une variable tableau.
Résultat non attendu : la variable tableau comporte un certain nombre de Null.

Un exemple vous parlera davantage.
Soit un userform avec :
- une combobox ComboBox1
- Une ListBox : ListBox1
- un Bouton : CommandButton1

Une feuille (Feuil1) avec trois colonnes de données (A, B, C).

Voici le code incriminé :
Option Explicit
Private F As Worksheet, TC As Variant

Private Sub UserForm_Initialize()
Dim D As Object, i As Integer

Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "98;98;98"
Me.ListBox1.Width = 300
Set F = Sheets("Feuil1")
TC = F.Range("A1").CurrentRegion
Set D = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(TC, 1)
    D(TC(i, 1)) = ""
Next i
Me.ComboBox1.List = D.keys
End Sub

Private Sub ComboBox1_Click()
Dim i As Integer
For i = 2 To UBound(TC, 1)
   If TC(i, 1) = Me.ComboBox1.Value Then
         Me.ListBox1.AddItem TC(i, 1)
         Me.ListBox1.List(ListBox1.ListCount - 1, 1) = TC(i, 2)
         Me.ListBox1.List(ListBox1.ListCount - 1, 2) = TC(i, 3)
         'Me.ListBox1.List(ListBox1.ListCount - 1, 3) = i
    End If
Next i
End Sub

Private Sub CommandButton1_Click()
Dim Tb, i As Integer, j As Integer

Tb = ListBox1.List
For i = LBound(Tb, 1) To UBound(Tb, 1)
   For j = LBound(Tb, 2) To UBound(Tb, 2)
      Debug.Print Tb(i, j)
   Next j
Next i
End Sub

A force de chercher d'où viennent les Null, mes yeux se croisent et je ne vois plus rien!

ucfoutu · Accepted Answer

Mais nous n'allons tout de même pas subir sans broncher ce particularisme gênant.
- Rien à tenter en ce qui concerne la limitation à 9 de la propriété ColumnCount, dès lors qu'un "échange" doit être assuré
- En ce qui concerne par contre les colonnes résultantes indues ===>> Hé bien ===>>> forçons donc la main ===>>> ainsi (exemple) :
Private Sub CommandButton2_Click()  ListBox1.ColumnCount = 5  ListBox1.Width = 300  For i = 0 To 4   ListBox1.AddItem i   For j = 1 To ListBox1.ColumnCount     ListBox1.List(i, j) = i & " - " & j   Next  Next  Dim TB()  TB = ListBox1.List() ' on va avoir 10 colonnes ! et donc ===>>  ' on "force la main pour ne laisser que les valables" ====>>  ReDim Preserve TB(ListBox1.ListCount - 1, ListBox1.ColumnCount - 1)  For i = LBound(TB, 1) To UBound(TB, 1)    For j = LBound(TB, 2) To UBound(TB, 2)     Debug.Print TB(i, j)    Next  NextEnd Sub
Marche bien.

Précisions :
- j'ai également essayé avec une seule colonne et le même code (sauf, bien évidemment, l'alimentation de la listbox) ===>> marche bien
Je laisse enfin Franck, qui a ouvert cette discussion, faire et déposer un petit snippet à ce sujet (j'ai la flemme). Le titre pourrait être : ListBox vers tableau sans faille


 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

cs_MPi · Answer

Bonjour,

Quand le contrôle a plusieurs colonne, il faut faire un AddItem seul avant de remplir les lignes
For i = 2 To UBound(TC, 1)   If TC(i, 1) = Me.ComboBox1.Value Then         Me.ListBox1.AddItem  'tout seul         Me.ListBox1.List(ListBox1.ListCount - 1, 0) = TC(i, 1)         Me.ListBox1.List(ListBox1.ListCount - 1, 1) = TC(i, 2)         Me.ListBox1.List(ListBox1.ListCount - 1, 2) = TC(i, 3)         'Me.ListBox1.List(ListBox1.ListCount - 1, 3) = i    End IfNext i

ucfoutu · Answer

Bonjour, Franck,
Je ne comprends personnellement pas  l'utilité de passer par un dico.
Regarde ce que fait ceci (avec la listbox sur une feuille de calcul nommée "Donnees") :
Dim toto As RangeSet toto = Worksheets("Donnees").Range("A1").CurrentRegionListBox1.ColumnCount = toto.Columns.CountListBox1.ListFillRange = "Donnees!" & toto.Address

et si la loistboàx est sur un userform,, changer ListFillRange par Rowsource ===>>

 Dim toto As RangeSet toto = Worksheets("Donnees").Range("A1").CurrentRegionListBox1.ColumnCount = toto.Columns.CountListBox1.RowSource = "Donnees!" & toto.Address
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

pijaku · Answer

Un second exemple qui vous permet de ne pas avoir à remplir une feuille de données.
Donc : sans feuille
1 userform, avec 1 ComboBox (ComboBox1) et 1 ListBox (ListBox1)
Le code :
Option Explicit

Private TC

Private Sub UserForm_Initialize()
Dim Lig As Long
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "98;98;98"
Me.ListBox1.Width = 300

Rempli_TC

MsgBox "=> 1ère dim : " & UBound(TC, 1) & vbCrLf & "=> 2ème dim : " & UBound(TC, 2)
For Lig = 1 To 4
   ComboBox1 = TC(Lig, 1)
   If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem TC(Lig, 1)
Next Lig
End Sub

Private Sub ComboBox1_Click()
Dim i As Integer, Tb
For i = 2 To UBound(TC, 1)
   If TC(i, 1) = Me.ComboBox1.Value Then
         Me.ListBox1.AddItem  'tout seul
         Me.ListBox1.List(ListBox1.ListCount - 1, 0) = TC(i, 1)
         Me.ListBox1.List(ListBox1.ListCount - 1, 1) = TC(i, 2)
         Me.ListBox1.List(ListBox1.ListCount - 1, 2) = TC(i, 3)
   End If
Next i
Tb = ListBox1.List
For i = LBound(Tb, 1) To UBound(Tb, 1)
   For j = LBound(Tb, 2) To UBound(Tb, 2)
      Debug.Print Tb(i, j)
   Next
Next
End Sub

Sub Rempli_TC()
ReDim TC(1 To 4, 1 To 3)
TC(1, 1) = "Jerome"
TC(2, 1) = "Mickael"
TC(3, 1) = "Jerome"
TC(4, 1) = "Valerie"
TC(1, 2) = "pruneau"
TC(2, 2) = "peche"
TC(3, 2) = "poire"
TC(4, 2) = "spaghetti"
TC(1, 3) = 1
TC(2, 3) = 10
TC(3, 3) = 3
TC(4, 3) = 5
End Sub 
 
J'obtiens, en choisissant Jerome dans la combobox, dans la fenêtre d'édition :
Jeromepoire3NullNullNullNullNullNullNullJeromepoire3NullNullNullNullNullNullNullJeromepoire3NullNullNullNullNullNullNull

cs_MPi · Answer

C'est effectivement intriguant...
Dès qu'on arrive à
Me.ListBox1.AddItem
Le listbox contient 9 items (le max possible) à NULL et on en remplit que 3. Il en reste donc 6 NULL

C'est bien la première fois que je remarque quelque chose comme ça... (?!)

ucfoutu · Answer

Heu ...
Ton exemple (le dernier) ne m'affiche aucun null, ni colonnes "indues".  
Il tourne sans ces problèmes. Es-tu certain d'avoir mis ici un copié/collé de ton essai ? (ce n'est pas dit, car, par exemple, il m'a fallu déclarer la variable j pour correspondre à l'option Exlicit ...

Il se peut également que cet essai soit fait sur un userform d'un projet comportant d'autres objets et que des nommages de variables soient en conflit entre un module et l'autre. Il est même presque certain que telle soit la raison de tes mésaventures.

Refait cet essai sur un classeur tout neuf et tu verras ===>>> aucun problème !

EDIT : Ah pardon ! Tu parlais de l'affichage dans le Debug.print !
Eh oui, mais le debug.print affiche tout, y compris les caractères null de terminaison ( chr(0) ).
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

J'ai dit des co*****ries !
Après un bon repas et un bon vin ===>> je m'y suis attelé avec plusieurs tests.
Ce n'est pas Debug.print, qui est le responsable, mais :
Tb = ListBox1.List
qui déc***e au moins autant que moi avant repas et vin ...
Preuve :
Private Sub UserForm_Initialize()  Dim Lig As Long  ListBox1.ColumnCount = 3  ListBox1.ColumnWidths = "98;98;98"  ListBox1.Width = 300  For i = 0 To 4   ListBox1.AddItem i   For j = 1 To 3     ListBox1.List(i, j) = j   Next  Next  Dim TB()  ReDim TB(1 To ListBox1.ListCount, 1 To ListBox1.ColumnCount) ' GoTo 10  TB = ListBox1.List()  For i = LBound(TB, 1) To UBound(TB, 1)    For j = LBound(TB, 2) To UBound(TB, 2)     'MsgBox TB(i, j)     Debug.Print TB(i, j)    Next  Next  Exit Sub10:  For i = 0 To ListBox1.ListCount - 1    For j = 0 To ListBox1.ColumnCount - 1      TB(i + 1, j + 1) = ListBox1.List(i, j)    Next  Next  For i = LBound(TB, 1) To UBound(TB, 1)    For j = LBound(TB, 2) To UBound(TB, 2)     'MsgBox TB(i, j)     Debug.Print TB(i, j)    Next  NextEnd Sub
Si on commente GOTO 10 (on passe par la ligne en cause) ===>>> problème
Si on décommente GOTO 10 (on "dresse" le tableau à la "classique") ===>>> pas de problème.
Conclusion : l'alimentation d'une matrice toto à partir de la liste d'une listbox par la méthode toto = nom_listebox() est bancale et on ne peut lui faire confiance.

ucfoutu · Answer

Le problème de
TB = ListBox1.List()

ne se pose qu'avec un tableau à plusieurs dimensions.
Il ne se pose pas si une seule dimension.
Preuve ===>>>
Private Sub CommandButton1_Click()  Dim Lig As Long  For i = 0 To 4   ListBox1.AddItem i  Next  Dim TB()  ReDim TB(1 To ListBox1.ListCount)  TB = ListBox1.List()  For i = LBound(TB, 1) To UBound(TB, 1)     Debug.Print TB(i, j)  Next  Exit SubEnd Sub

ucfoutu · Answer

Ah !!!!
Lu dans l'aide VBA :
1)
La définition de la propriété ColumnCount sur 0 affiche zéro colonne et la définition sur -1 affiche toutes les colonnes disponibles. Pour une source de données indépendante, il y a une limite de 10 colonnes (0 à 9).
2)
 Source de données
Emplacement des données auquel est lié un contrôle, par exemple une cellule d'une feuille de calcul. La valeur en cours d'une source de données peut être enregistrée dans la propriété Value d'un contrôle. Toutefois, le contrôle n'enregistre pas les données, il n'affiche que les informations enregistrées dans la source de données.

- L'échange entre TB et  ListBox1.List() est donc limité à 10 colonnes, de 0 à 9 dédiées à TB.
De fait, quel que soit le nombre de colonnes (de 0 à 9), TB aura toujours 10 colonnes (systématiquement). Les colonnes "superflues" contiennent des NULL
- Si cette hypothèse est vraie, on ne devrait plus avoir de NULL avec une listbox dont la propriété ColumnCount = 9 ===>>> voyons donc ===>>
Private Sub UserForm_Initialize()  Dim Lig As Long  ListBox1.ColumnCount = 9  ListBox1.ColumnWidths = "98;98;98"  ListBox1.Width = 300  For i = 0 To 2   ListBox1.AddItem i   For j = 1 To 9     ListBox1.List(i, j) = j   Next  Next  Dim TB()  TB = ListBox1.List()  For i = LBound(TB, 1) To UBound(TB, 1)    For j = LBound(TB, 2) To UBound(TB, 2)     Debug.Print TB(i, j)    Next  NextEnd Sub
===>>> c'est ma foi bien vrai.

Et donc : (tiens ... j'ai pourtant pris en horreur cette expression depuis que j'entends tous les jours et à tout bout de champ des "et donc euuuuhhhhh ...", des "en fait euuuhhh. ..." aussi laids que disonnants et souvent abusifs, voire indus)
1) nombre de NULL toujours égal à : 9 - ListBox1.ColumnCount
2) impossible de mettre en oeuvre un tel "échange" avec un columncount > 9
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

pijaku · Answer

Bonjour,

Je vous laisse un week end pour m'occuper de Théo et... Boum Bardafff tout est résolu le lundi matin!
Merci.
Je vais relire tout cela, faire tous les tests que vous avez effectués et revenir après avoir assimilé le tout.

Et donc euuuuhhhhh ...en fait euuuhhh, je reviendrais avec le premier jet du texte d'un snippet à ce sujet.

"Valeurs" Null dans Listbox.List

10 réponses

Votre réponse