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)
 

Fichiers joints

Danyehs86

XLDnaute Nouveau
Finalement, j'ai changer le code unload add_article par unload me et tout semble correct :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas