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)
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)