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: 9

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
 

Pièces jointes

  • test_v2.xlsm
    42 KB · Affichages: 11

Discussions similaires

Réponses
17
Affichages
334
Réponses
3
Affichages
177

Membres actuellement en ligne

Statistiques des forums

Discussions
297 988
Messages
1 964 903
Membres
200 747
dernier inscrit
mtb60