Private Sub CommandButton1_Click()
With Sheets("Saisie") 'Avec la feuille "Saisie"
.Unprotect 'On la déprotége
LIGNE = .Range("A6000").End(xlUp).Row + 1 'On définit la derniere ligne vide de la Colonne "A"
.Cells(LIGNE, 1) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0) 'On colle le Nom
.Cells(LIGNE, 2) = Format(CDate(TextBox1.Value), "00000") 'DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), Day(TextBox1.Value))
.Cells(LIGNE, 3) = Format(CDate(TextBox2.Value), "00000") 'DateSerial(Year(TextBox2.Value), Month(TextBox2.Value), Day(TextBox2.Value))
With .Cells(LIGNE, 5) 'Avec la cellule ainsi définie
If Not (Me.CheckBox1 Or Me.CheckBox2) = True Then 'Si pas de CheckBox a true
.Value = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1) 'On colle l'abréviation
.Interior.Color = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 2) 'On colore le fond de la cellule
End If
End With
.Cells(LIGNE, 6) = IIf(UserForm1.CheckBox1 = True, "X", Empty) 'On colle "X" selon état du control
.Cells(LIGNE, 7) = IIf(UserForm1.CheckBox2 = True, "X", Empty) 'Idem
.Protect
End With
Unload Me
End Sub