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

Fichiers joints

herve62

XLDnaute Barbatruc
Bonjour
Il n'y avait aucune information récupérée lors de "Enregistrer" pour transcrire dans ta feuille
Regarde une ébauche que je viens de faire rapidement pour ce que tu demandes , il y a peut-être mieux à faire par la suite
 

Fichiers joints

Haut Bas