Erreur d'execution '424

Bonjours tous les membres de la forum merci de me préciser ou se trouve le problème qui me donne l’erreur suivants:

• erreur d’exécution '424'
• objet requis

Private Sub UserForm_Initialize()

Me.Label1.Caption = Date

For i = 1 To Sheet1.Range("A1000000").End(xlUp).Row

Me.ListBox1.AddItem

For x = 0 To 8

Me.ListBox1.List(i - 1, x) = Sheet1.Cells(i, x + 1)

Next x

Next i

Me.ListBox1.Selected(0) = True

End Sub

Merci pour l'attention

Bonjour,

Sans fichier, peu de chance d'obtenir une réponse.

Cordia5

merci Mr CORDIA5 pour l'attention que vous donnez au mon problème ci-joint le fichier

avec mes salutation

Bonjour à tous,

Dans ton code > Sheet1 > Il n'y a pas de feuille1 > il faut donc écrire Feuil8 (pour la feuille "Etat de Stock"

Ou écire > worksheets("Etat de Stock")

ric

Bonsoir,

remplace ton code par celui-ci ça devrait rentrer dans l'ordre.

Private Sub UserForm_Initialize()

With Recherche_Article_Stock
    .Label1.Caption = Date
        For i = 1 To Sheets("Base").Range("A1000000").End(xlUp).Row
            .ListBox1.AddItem
                For x = 0 To 8
                    .ListBox1.List(i - 1, x) = Sheets("Base").Cells(i, x + 1)
                Next x
        Next i
    .ListBox1.Selected(0) = True
End With
End Sub

Sheet1 n'existe pas, mais Sheets("Base")

Cordia5

Désolé Ric,

je n'avais pas vu ton message, mais même constat lié à la Sheet1.

Cordia5