XL 2010 Enregistrement automatique dans un tableau avec une txt_box

[Dylan67]

Bonjour à tous,

Actuellement j'utilise ce code :

Private Sub Txt_code_Change()
Dim DL As Integer
Dim list_nombre As Integer
Dim ligne As Integer

If Txt_code <> "" Then

Sheets(4).ListObjects(1).ListRows.Add
DL = Sheets(4).Range("b9999").End(xlUp).Row
Sheets(4).Range("b" & DL) = Me.Txt_code
Txt_code = ""
CreateObject("WScript.Shell").Popup "Sortie enregistrer", 1, "Code barre enregister"
 ThisWorkbook.Save
 End If

End Sub

Le contexte : je souhaite mettre une texte_box sur un tableau excel pour que lorsque je scanne un code barre il soit rempli dans cette dernière et que lorsque la texte_box est pleine il m'enregistre le code barre dans un tableau, m'affiche un message de confirmation puis me vide la texte_box pour une nouvelle saisie.

Actuellement tous fonctionne sauf que les valeurs saisi dans la texte_box ne sont plus retranscrit dans mon tableau mais par contre il me crée une nouvelle ligne à chaque saisie.

 

[Dylan67]

problème résolu... une erreur bête