XL 2010 [RESOLU] Listbox et Listobject

cathodique

cathodique

XLDnaute Barbatruc
Bonjour,

D'habitude pour alimenter une Listbox à partir d'un tableau structuré (ListObject), s'il se nomme Tb, le code suivant était suffisant pour alimenter le listbox
VB: 
[Tb].value
En travaillant sur un fichier, je me suis rendu compte que ce code fonctionne si et seulement si, il y a au moins 2 lignes de données.
En effet, si le tableau a une ligne ou non vide le code plante. Je n'arrive pas à contourner ce problème.
Voici le code pour celles et ceux qui n'ouvrent jamais les fichiers joints.
Code: 
Option Explicit

Private Sub UserForm_Initialize()
   Dim Tb1 As ListObject, Tb2 As ListObject, Tb3 As ListObject
   With Sheets("feuil1")
      Set Tb1 = .ListObjects("Tjeux1")
      Set Tb2 = .ListObjects("Tjeux2")
      Set Tb3 = .ListObjects("Tjeux3")
'tableau vide--------------------------------------------
      'ListBox1.List = Tb1.DataBodyRange.Value  'plante
      'ListBox1.List = [Tjeux1].Value           'plante

'tableau une seule ligne de données----------------------
      'ListBox2.List = Tb2.DataBodyRange.Value     'plante
      'ListBox2.List = [Tjeux2].Value              'plante

'tableau avec + de 2 lignes de données---------------------
      ListBox3.List = Tb3.DataBodyRange.Value     'fonctionne
      'ListBox3.List = [Tjeux3].Value               'fonctionne
   End With
   Set Tb1 = Nothing
   Set Tb2 = Nothing
   Set Tb3 = Nothing
End Sub
Merci par avance.
 

Pièces jointes

  • Listbox_Listobject.xlsm
    20.4 KB · Affichages: 9
Solution
patricktoulon
Bonsoir
bonsoir j'arrive après la bataille mais bon
VB: 
Option Explicit

Private Sub UserForm_Initialize()
Dim r As Range, i&, lstBx As MSForms.ListBox
    For i = 1 To 3
        Set r = Range("Tjeux" & i)
        Set lstBx = Me.Controls("ListBox" & i)
        lstBx.Clear: If r.Rows.Count > 1 Then lstBx.List = r.Value Else lstBx.Column = r.Resize(, 2).Value
    Next
End Sub
j'explique ou pas le pourquoi du comment et l'astuce??
Trier par date Trier par votes
cathodique

cathodique

XLDnaute Barbatruc
En remerciant celles et ceux qui auront consulter le fil. J'ai trouvé une solution.
VB: 
Option Explicit

Private Sub UserForm_Initialize()
   Dim Tb1 As ListObject, Tb2 As ListObject, Tb3 As ListObject

   With Sheets("feuil1")
      Set Tb1 = .ListObjects("Tjeux1")
      Set Tb2 = .ListObjects("Tjeux2")
      Set Tb3 = .ListObjects("Tjeux3")
      'tableau vide--------------------------------------------
      If Tb1.DataBodyRange Is Nothing Then
         ListBox1.Clear
      ElseIf Tb1.ListRows.Count = 1 Then
         ListBox1.AddItem Tb1.DataBodyRange(1)
      Else
         ListBox1.List = Tb1.DataBodyRange.Value
      End If

      'tableau une seule ligne de données----------------------
      If Tb2.DataBodyRange Is Nothing Then
         ListBox2.Clear
      ElseIf Tb2.ListRows.Count = 1 Then
         ListBox2.AddItem Tb2.DataBodyRange(1)
      Else
         ListBox2.List = Tb2.DataBodyRange.Value
      End If

      'tableau avec + de 2 lignes de données---------------------
      If Tb3.DataBodyRange Is Nothing Then
         ListBox3.Clear
      ElseIf Tb3.ListRows.Count = 1 Then
         ListBox3.AddItem Tb3.DataBodyRange(1)
      Else
         ListBox3.List = Tb3.DataBodyRange.Value
      End If
      ListBox3.List = Tb3.DataBodyRange.Value     'fonctionne
   End With

   Set Tb1 = Nothing
   Set Tb2 = Nothing
   Set Tb3 = Nothing
End Sub
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Bonjour,

Peut être comme ceci en utilisant non plus la propriété .List mais .RowSource

VB: 
Private Sub UserForm_Initialize()
   Dim Tb1 As ListObject, Tb2 As ListObject, Tb3 As ListObject
   With Sheets("feuil1")
        Set Tb1 = .ListObjects("Tjeux1")
        Set Tb2 = .ListObjects("Tjeux2")
        Set Tb3 = .ListObjects("Tjeux3")
        
        xNbrTb1 = .Range("Tjeux1").Count: xAdrTb1 = .Range("Tjeux1").Address
        xNbrTb2 = .Range("Tjeux2").Count: xAdrTb2 = .Range("Tjeux2").Address
        xNbrTb3 = .Range("Tjeux3").Count: xAdrTb3 = .Range("Tjeux3").Address
    
'tableau vide--------------------------------------------
        'ListBox1.List = Tb1.DataBodyRange.Value  'plante
        'ListBox1.List = [Tjeux1].Value           'plante
        If xNbrTb1 < 2 Then
            ListBox1.RowSource = xAdrTb1
        Else
            ListBox1.List = [Tjeux1].Value
        End If
'tableau une seule ligne de données----------------------
        'ListBox2.List = Tb2.DataBodyRange.Value     'plante
        'ListBox2.List = [Tjeux2].Value              'plante
        If xNbrTb2 < 2 Then
            ListBox2.RowSource = xAdrTb2
        Else
            ListBox2.List = [Tjeux2].Value
        End If
'tableau avec + de 2 lignes de données---------------------
        'ListBox3.List = Tb3.DataBodyRange.Value     'fonctionne
        'ListBox3.List = [Tjeux3].Value               'fonctionne
        If xNbrTb3 < 2 Then
            ListBox3.RowSource = xAdrTb3
        Else
            ListBox3.List = [Tjeux3].Value
        End If

    End With
    Set Tb1 = Nothing
    Set Tb2 = Nothing
    Set Tb3 = Nothing
End Sub

Du coup cela devrait le faire
@+ Lolote83
 
Vote positif 1 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
sousou à dit:
Bonjour
Effectivement, c'est pas tres clair!🤔
Tu peux contourner comme ceci
For Each i In Tb2.DataBodyRange.Rows
me.ListBox2.AddItem i
'ListBox2.List = [Tjeux2].Value 'plante
Next
Cliquez pour agrandir...
Bonjour,

@sousou : Dans un userform, j'ai des listboxs et combobox alimentées à partir de tableaux structurés qui devraient être au préalable remplis via d'autres userforms. Il s'avère que certains sont vides ou n'ont qu'une seule ligne de valeurs. J'utilise par exemple Listbox1.list=[Tjeux1].value mais a plante lorsque le tableau Tjeux1 est vide ou n'a qu'une seule ligne de valeur.
J'espère que c'est plus clair. Pour info, j'ai essayé Listbox1.Column=[Tjeux1].value plante aussi.
Ne fonctionne que pour 2 lignes et plus.
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
Lolote83 à dit:
Bonjour,

Peut être comme ceci en utilisant non plus la propriété .List mais .RowSource

VB: 
Private Sub UserForm_Initialize()
   Dim Tb1 As ListObject, Tb2 As ListObject, Tb3 As ListObject
   With Sheets("feuil1")
        Set Tb1 = .ListObjects("Tjeux1")
        Set Tb2 = .ListObjects("Tjeux2")
        Set Tb3 = .ListObjects("Tjeux3")
       
        xNbrTb1 = .Range("Tjeux1").Count: xAdrTb1 = .Range("Tjeux1").Address
        xNbrTb2 = .Range("Tjeux2").Count: xAdrTb2 = .Range("Tjeux2").Address
        xNbrTb3 = .Range("Tjeux3").Count: xAdrTb3 = .Range("Tjeux3").Address
   
'tableau vide--------------------------------------------
        'ListBox1.List = Tb1.DataBodyRange.Value  'plante
        'ListBox1.List = [Tjeux1].Value           'plante
        If xNbrTb1 < 2 Then
            ListBox1.RowSource = xAdrTb1
        Else
            ListBox1.List = [Tjeux1].Value
        End If
'tableau une seule ligne de données----------------------
        'ListBox2.List = Tb2.DataBodyRange.Value     'plante
        'ListBox2.List = [Tjeux2].Value              'plante
        If xNbrTb2 < 2 Then
            ListBox2.RowSource = xAdrTb2
        Else
            ListBox2.List = [Tjeux2].Value
        End If
'tableau avec + de 2 lignes de données---------------------
        'ListBox3.List = Tb3.DataBodyRange.Value     'fonctionne
        'ListBox3.List = [Tjeux3].Value               'fonctionne
        If xNbrTb3 < 2 Then
            ListBox3.RowSource = xAdrTb3
        Else
            ListBox3.List = [Tjeux3].Value
        End If

    End With
    Set Tb1 = Nothing
    Set Tb2 = Nothing
    Set Tb3 = Nothing
End Sub

Du coup cela devrait le faire
@+ Lolote83
Cliquez pour agrandir...
Bonjour,

@Lolote83 ;): je te confirme que ton code fonctionne aussi. Juste déclarer les variables que tu as ajouté.
Merci beaucoup. Je pointe ta proposition comme solution.
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
sousou à dit:
Re
J'avais bien compris ton problème, c'est pourquoi je te propose cette solution
Cliquez pour agrandir...
@sousou :cool:: C'est parfait. peu de ligne et efficace.
J'essaie d'apprendre à coder en utilisant les ListObjects. Tu n'as pas déclaré 'i', le code ne demande même de le déclarer malgré la présence de Option Explicit.
VB: 
For Each i In Tb2.DataBodyRange.Rows
  Me.ListBox2.AddItem i
Next
Merci de m'éclairer.
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
Je reviens vers toi. Sur mon fichier de travail le code plante. Aurais-tu une idée?
1710514316144.png

Avec ce message d'erreur
1710514362683.png

à noter l'option explicit demande la déclaration de la variable i

Avec mes remerciements.
 
Vote positif 0 Vote négatif
sousou

sousou

XLDnaute Barbatruc
bien sur pour la déclaration,
Pour le plantage, j'ai remarqué une chose,que je ne m'explique pas trop.
J'avais la même chose sur ton fichier.
excel ne détecte pas sur le tableau vide (tb1) les databodyrange, d’où une erreur
comme si le tableau n'avais pas été initialisé, à sa création.
Dans ton tableau vide tb1 , j'ai mis une valeur, puis je l'ai retirée, et c'est pour cela qu'il fonctionne.
Tu peu gérer ceci en utilisant le traitement d'erreur,
 
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonsoir
bonsoir j'arrive après la bataille mais bon
VB: 
Option Explicit

Private Sub UserForm_Initialize()
Dim r As Range, i&, lstBx As MSForms.ListBox
    For i = 1 To 3
        Set r = Range("Tjeux" & i)
        Set lstBx = Me.Controls("ListBox" & i)
        lstBx.Clear: If r.Rows.Count > 1 Then lstBx.List = r.Value Else lstBx.Column = r.Resize(, 2).Value
    Next
End Sub
j'explique ou pas le pourquoi du comment et l'astuce??
 
Vote positif 1 Vote négatif
Solution
cathodique

cathodique

XLDnaute Barbatruc
sousou à dit:
bien sur pour la déclaration,
Pour le plantage, j'ai remarqué une chose,que je ne m'explique pas trop.
J'avais la même chose sur ton fichier.
excel ne détecte pas sur le tableau vide (tb1) les databodyrange, d’où une erreur
comme si le tableau n'avais pas été initialisé, à sa création.
Dans ton tableau vide tb1 , j'ai mis une valeur, puis je l'ai retirée, et c'est pour cela qu'il fonctionne.
Tu peu gérer ceci en utilisant le traitement d'erreur,
Cliquez pour agrandir...
Bonsoir,

Désolé pour le retard. Je remercie pour tes explications.

Bonne soirée et bon week-end
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
patricktoulon à dit:
Bonsoir
bonsoir j'arrive après la bataille mais bon
VB: 
Option Explicit

Private Sub UserForm_Initialize()
Dim r As Range, i&, lstBx As MSForms.ListBox
    For i = 1 To 3
        Set r = Range("Tjeux" & i)
        Set lstBx = Me.Controls("ListBox" & i)
        lstBx.Clear: If r.Rows.Count > 1 Then lstBx.List = r.Value Else lstBx.Column = r.Resize(, 2).Value
    Next
End Sub
j'explique ou pas le pourquoi du comment et l'astuce??
Cliquez pour agrandir...
Bonsoir Patrick;),

Tu sais bien que tes explications sont toujours les bienvenues.
J'essaie de comprendre la bête "ListObject" mais j'avoue que j'ai beaucoup de lacunes.
Je testerai demain ton code. Je suis crevé.
Bonne fin de soirée et bon week-end:cool:
 
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
Bonjour,

@patricktoulon : C'est un régale. Merci beaucoup, c'est très clair.
Je t'avoue que je ne fais pas autant d'effort que toi pour aller au bout du bout.
Quoique bien souvent j'essaie d'approfondir mais butant sur des difficultés de compréhension, j'abandonne.

Si j'ai bien compris, il est plus avantageux d'utiliser le Range que le ListObject pour "atteindre" un tableau structuré.

Tu m'as parfaitement démontrer comment solutionner mon problème en pratiquement une seule ligne de code. Évitant ainsi, la suite de If. Je connaissais l'utilisation du ListBox.Column en faisant des extractions de données d'une BD. Mais sans avoir bien compris le pourquoi du comment. Tu viens de me l'expliquer clairement.

à la fin de la vidéo, tu m'as montré qu'après le resize dans la listbox du tableau vide, qu'il y avait bien 2 lignes vides. Tu as dit que l'on pouvait lui appliquer un Clear. Si ce n'est abusé, je voudrais que tu me donnes ta solution.

En tout cas un grand bravo pour ta vidéo très pédagogique. Encore merci, pour ton partage et ta patience.

Bonne journée.

edit: J'ai téléchargé ta vidéo. Elle est dans ma "tirelire".
 
Vote positif 0 Vote négatif

Discussions similaires

cathodique
  • Résolu(e)
XL 2010 [RESOLU] Syntaxe Tableau Structuré (ListObject)
Réponses
11
Affichages
254
patricktoulon
patricktoulon
E
  • Question
XL 2013 vba excel
Réponses
6
Affichages
245
sylvanu
sylvanu
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
501
eCHO
E
F
  • Résolu(e)
XL 2019 Affichage dans listbox et reprise dans les textbox
Réponses
7
Affichages
339
Flnte
F
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
393
Messan
Messan
M
  • Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
374
meyscal
M
B
  • Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
548
cp4
cp4
A
  • Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
737
vgendron
vgendron
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
1 K
dysorthographie
dysorthographie
D
  • Question
XL 2016 Focus d'un textbox
Réponses
4
Affichages
780
danielco
D

Membres actuellement en ligne

17 membres et 89 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 319
Membres
103 177
dernier inscrit
grizly