texte box

  1. D

    XL 2010 Enregistrement automatique dans un tableau avec une txt_box

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