XL 2016 VBa erreur 361

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
794
Retour