XL 2016 Erreur 424 - Objet requis

[halecs93]

Bonjour à tout le monde,

Je cherche, je ne trouve pas.

A l'exécution d'une macro, sensée afficher le UserForm1, j'ai ce message d'erreur.

Quelqu'un aurait une idée ?

Merci

 

[Phil69970]

Bonjour @halecs93

Ton TS suivi stock est vide donc il ne peut pas charger du vide .....

' 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

 

[vgendron]

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

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

 

[halecs93]

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

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

Ha super.... merci merci.

 

[halecs93]

Voilà mon fichier "corrigé" 😉