XL 2010 Enregistrement automatique dans un tableau avec une txt_box

Dylan67

XLDnaute Nouveau
Bonjour à tous,

Actuellement j'utilise ce code :
VB:
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.
 
Dernière édition:

Discussions similaires

Réponses
17
Affichages
249

Statistiques des forums

Discussions
311 720
Messages
2 081 899
Membres
101 834
dernier inscrit
Jeremy06510