XL 2016 Importation de données ListBox Et TextBox dans un tableau

Danyehs86

XLDnaute Nouveau
Bonjour à tous,


Je ne sais pas comment je dois m'y prendre pour pouvoir intégrer à mon code ici-bas; l'ajout également de mes TextBox dans mon tableau.


(J'ai un formulaire d'entrée et de sortie, dans ma listbox, je peux sélectionner l'Article souhaité et l'ajout se fait à mon tableau de suivi, feuille 3. Seulement mais information manquante, ceux en textebox, ne s'affiche pas). "C'est la première que je travaille avec VBA et j'imagine qu'il y a quelque chose à faire pour que ça fonctionne?!)

Voici le code :


Private Sub btn_enregistrer_Click()

Dim i As Integer
Dim nb As Integer
Dim ligne As Integer

nb = lstArticles.ListCount
ligne = Feuil3.Cells(Rows.Count, 5).End(xlUp).Row + 1 ' cherche la dernière ligne vide d'un tableau

For i = 0 To nb

If Me.lstArticles.Selected(i) = True Then

With Worksheets("Entrée_Sortie")
.Cells(ligne, 1) = Me.lstArticles.List(i)
.Cells(ligne, 2) = Me.lstArticles.List(i, 1)
.Cells(ligne, 3) = Me.lstArticles.List(i, 2)
.Cells(ligne, 4) = Me.lstArticles.List(i, 3)
.Cells(ligne, 5) = Me.lstArticles.List(i, 4)


End With
ligne = ligne + 1
End If

Next i
Feuil3.Activate
Unload Me

End Sub

J'ai tenté de faire l'ajout entre eux :

With Worksheets("Entrée_Sortie")
.Cells(ligne, 1) = Me.lstArticles.List(i)
.Cells(ligne, 2) = Me.lstArticles.List(i, 1)
.Cells(ligne, 3) = Me.lstArticles.List(i, 2)
.Cells(ligne, 4) = Me.lstArticles.List(i, 3)
.Cells(ligne, 5) = Me.lstArticles.List(i, 4)

mais ça na pas fonctionné :/

J'ai fait plusieurs recherches, tuto, etc.. mais je n'ai rien trouver.

Je me tourne donc vers vous, je vous joint mon fichier si cela est nécessaire.

Merci à l'avance!!
 

Pièces jointes

  • test_v2.xlsm
    47.8 KB · Affichages: 11

Discussions similaires

Réponses
17
Affichages
760
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG