XL 2016 Erreur 424 - Objet requis

' Remplir la ComboBox avec les données de la colonne "Code Article"
For Each cell In tbl.ListColumns("Code Article").DataBodyRange
ComboBox1.AddItem cell.Value '<== Pb ici
Next cell

Cliquez pour agrandir...

vgendron à dit:

bonjour

il suffit d'executer le code en mode pas à pas pour voir que le pb intervient au chargement du combobox1
et que ca bug lorsque la table est vide

VB:

Private Sub UserForm_Initialize()
    ' Masquer TextBox3 et Label4 au lancement du formulaire
    Me.TextBox3.Visible = False
    Me.Label4.Visible = False

    ' Remplir ComboBox1 avec les données de la colonne "Code Article"
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim cell As Range

    ' Définir la feuille et le tableau
    Set ws = ThisWorkbook.Sheets("SUIVI_STOCK")
    Set tbl = ws.ListObjects("suivi_stock") ' Utiliser le nom de votre tableau structuré

    ' Vider la ComboBox avant de la remplir
    ComboBox1.Clear

    ' Remplir la ComboBox avec les données de la colonne "Code Article"
    With tbl
        If .ListRows.Count <> 0 Then
            For i = 1 To .ListRows.Count
                Me.ComboBox1.AddItem .DataBodyRange(i, 1)
            Next i
        End If
    End With
'    For Each cell In tbl.ListColumns("Code Article").DataBodyRange
'        ComboBox1.AddItem cell.Value
'    Next cell
End Sub

Cliquez pour agrandir...