Dim DerLigne As Long
Private Sub ComboBox1_Change()
TextBox4.Value = Sheets("Controle protection V1 +").Range("T" & MODIF.ComboBox1.ListIndex + 5)
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
DerLigne = Range("C3").End(xlDown).Row
MODIF.ComboBox1.RowSource = "c3:c" & DerLigne
End Sub
Private Sub CommandButton1_Click()
With Sheets("Controle protection V1 +")
If Not IsDate(TextBox4) Then
Exit Sub
End If
' .Range("C4") = CDate(TextBox2)
' Sheets("Controle protection V1 +").Range("C4").Value = Me.TextBox4.Text
' Sheets("Controle protection V1 +").Range("L4").Value = Me.TextBox3.Text Format(TextBox5.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("S" & MODIF.ComboBox1.ListIndex + 3).Value = Format(TextBox4.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("Y" & MODIF.ComboBox1.ListIndex + 3).Value = Me.TextBox3.Text
Sheets("Controle protection V1 +").Range("T" & MODIF.ComboBox1.ListIndex + 3).Value = Format(TextBox5.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("U" & MODIF.ComboBox1.ListIndex + 3).Value = Me.ComboBox2.Text
Sheets("Controle protection V1 +").Range("V" & MODIF.ComboBox1.ListIndex + 3).Value = Me.ComboBox3.Text
End With
Unload Me
MODIF.Show 0
End Sub