Bonjour à tous,
Actuellement j'utilise ce code :
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.
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 SubActuellement 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: