Aide sur erreur 424

Bonjour,

En voulant ouvrir un formulaire pour le tester, j'ai un message d'erreur du genre : erreur d’exécution 424 Objet requis.

Etant novice je ne sais pas comment remedier à cette erreur d'objet requis.

Un explication serait la bienvenue

merci

Bonsoir

dans ce code

Private Sub UserForm_Initialize()
Dim i As Integer
i = 2
Do While Worksheets("Boissons").Cells(i, 1) <> ""
Boissons.AddItem Worksheets("Boissons").Cells(i, 1)
Mouvements.AddItem Worksheets("Boissons").Cells(i, 7)
i = i + 1
Loop

tu fais référence à boissons et à mouvements qui ne sont pas définis dans ton usf.

Merci

J'ai rectifié, mais en testant le formulaire les informations ne vont pas dans les bonnes cellules

cordialement

re-bonsoir,

proposition de correction de ton module validation

Private Sub validerMouvements_Click()
    With Worksheets("mouvements")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row    ' dernière ligne utilisée sur la feuille mouvement
        dl = dl + 1
        .Cells(dl, 1) = DateMouvements
        .Cells(dl, 3) = BoissonsMouvements
        .Cells(dl, 4) = Mouvements
        .Cells(dl, 5) = QuantiteMouvements
    End With
End Sub

J'ai testé ce code il fonctionne, les données saisies vont bien dans les cellules correspondantes mais cela ne rajoute pad de lignes et le numéro de la colonne idée n'est pas incrémentée

cordialement

Private Sub validerMouvements_Click()
    With Worksheets("mouvements")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row    ' dernière ligne utilisée sur la feuille mouvement
        dl = dl + 1
        If dl > 2 Then .Cells(dl, 1) = Cells(dl - 1, 1) + 1 Else .Cells(dl, 1) = 1
        .Cells(dl, 2) = DateMouvements
        .Cells(dl, 3) = BoissonsMouvements
        .Cells(dl, 4) = Mouvements
        .Cells(dl, 5) = QuantiteMouvements
    End With
End Sub

Merci

La cellule quantité mouvement est au format texte comment la mettre au format nombre

cordialement

Private Sub validerMouvements_Click()
    With Worksheets("mouvements")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row    ' dernière ligne utilisée sur la feuille mouvement
       dl = dl + 1
        If dl > 2 Then .Cells(dl, 1) = Cells(dl - 1, 1) + 1 Else .Cells(dl, 1) = 1
        .Cells(dl, 2) = DateMouvements
        .Cells(dl, 3) = BoissonsMouvements
        .Cells(dl, 4) = Mouvements
        .Cells(dl, 5) = val(QuantiteMouvements)
    End With
End Sub