التعديل من خلال الليست بوكس

Dim Ligne As Long

 

    If ListBox1.ListIndex = -1 Then Exit Sub

    Ligne = ListBox1.ListIndex + 2

    

    Range("B" & Ligne) = TextBox1

    Range("C" & Ligne) = TextBox2

    Range("D" & Ligne) = TextBox3

    Range("E" & Ligne) = ComboBox1

    Range("F" & Ligne) = ComboBox2

    Call UserForm_Initialize