XL 2016 VBa erreur 361

Danyehs86

XLDnaute Nouveau
Bonjour à tous,

Pour vous donner une petite idée, je suis en train de créer un fichier pour la gestion de stock et pour l'instant je suis bloquer sur le formulaire "Ajouter un article". Donc, le but est lorsque je fait l'ajout d'un article, la fiche s'ajoute à ma liste d'Articles (feuille 2) , après l'importation dans mon tableau, le formulaire s'efface.

J'ai regarder plusieurs vidéos afin de créer ces codes mes je ne suis pas une "Experte"c'est la première fois que je travail avec Visual, je suis bloqué à la fin du code puisqu'un message d'erreur 361 apparaît. (L'importation ce fait à mon tableau)


Private Sub CommandButton1_Click()
Dim DL As Integer

If Me.Txt_nom <> "" And Me.txt_description <> "" And Me.txt_quantite <> "" Then

Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range("b9999").End(xlUp).Row

'ajouter dans le tableau
Sheets(2).Range("b" & DL) = Me.Add_article.Caption
Sheets(2).Range("c" & DL) = Me.Txt_nom
Sheets(2).Range("d" & DL) = Me.txt_description
Sheets(2).Range("e" & DL) = Me.txt_modele
Sheets(2).Range("f" & DL) = Me.txt_serie
Sheets(2).Range("g" & DL) = CCur(Me.txt_prix)
Sheets(2).Range("h" & DL) = CInt(Me.txt_quantite)
Sheets(2).Range("j" & DL) = Me.txt_statut
Sheets(5).Range("d19") = Sheets(5).Range("d19") + 1

ThisWorkbook.Save

Unload Add_article

End If

End Sub


Je vous joint le fichier si cela est nécessaire, je me demande si j'ai passé à côté de quelques choses...

Je vous remercie à l'avance pour votre aide et bonne soirée.

(je travail avec Excel 2016)
 

Pièces jointes

  • test.xlsm
    29.4 KB · Affichages: 3

Discussions similaires

Haut Bas