Private Sub CommandButton4_Click() 'CHANGER
Dim I As Integer
MonTest = True
I = Me.FRNSEXIST.ListIndex + 2
With Worksheets("FRNS")
For C = 1 To 11
.Cells(I, C) = Me.Controls("TextBox" & C).Value
Me.Controls("TextBox" & C) = ""
Next
End With
MonTest = False
End Sub
Private Sub FRNSEXIST_Change()
If MonTest = False Then
I = FRNSEXIST.ListIndex
For C = 1 To 11
Me.Controls("TextBox" & C) = Worksheets("FRNS").Cells(I + 2, C).Value
'Me.FRNSEXIST.List(Me.FRNSEXIST.ListIndex, C)
Next
End If
End Sub