XL 2013 Modification lignes excel en même temps au niveau d'une listbox

ChTi160 à dit:

Bonsoir
déjà il m'a fallu changer La ListBox1 (pas Bonne !)
puis Modifié la procédure
avec un truc du Genre (Perfectible)

VB:

Private Sub ListBox1_Click()
X = 0
indx = ListBox1.ListIndex
  For i = 0 To ListBox1.ColumnCount - 1 'NbCol 
    tmp = Me.ListBox1.List(indx, X)
    If Not IsError(tmp) Then Me("textbox" & 1 + X) = tmp
    X = X + 1
  Next i
  Me.Enreg = Me.ListBox1.Column(NbCol)
End Sub

Jean marie

Cliquez pour agrandir...