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

[Danyehs86]

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

 

[herve62]

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

 

[Danyehs86]

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

Merci je regarde tout de suite,

 

[Danyehs86]

Tout fonctionne! Merci beaucoup et bonne journée