Private Sub CommandButton3_Click() 'bouton valider modification
Dim i As Byte
Dim Cl As Long
Cl = ComboBox22.List(ComboBox22.ListIndex, 1)
With Sheets("Feuil2")
.Cells(Cl, 21) = ComboBox18.Value
.Cells(Cl, 22) = ComboBox19.Value
.Cells(Cl, 23) = ComboBox20.Value
.Cells(Cl, 24) = ComboBox21.Value
.Cells(Cl, 25) = "=YEAR(RC[-9])"
.Cells(Cl, 27) = "=Day(RC[-11])"
.Cells(Cl, 26) = "=Month(RC[-10])"
For i = 1 To 20
'boucle sur 20 éléments
Select Case i
Case 15, 16, 18, 19
If Me.Controls("TextBox" & i).Value <> "" Then .Cells(Cl, i) = CDate(Me.Controls("TextBox" & i).Value)
Case 17, 20
If Me.Controls("TextBox" & i).Value <> "" Then .Cells(Cl, i) = CDbl(Me.Controls("TextBox" & i).Value)
Case Else
.Cells(Cl, i) = Me.Controls("TextBox" & i).Value
End Select
Next i
End With
ComboBox18.Value = ""
ComboBox19.Value = ""
ComboBox20.Value = ""
ComboBox21.Value = ""
'ComboBox22.Value = ""
For i = 1 To 20
Me("TextBox" & i) = ""
Next i
Unload Me 'vide et ferme l'UserFOrm
CommandButton3.Visible = False
CommandButton4.Visible = False
Label27.Caption = "Enregistrement Nouveau Glitch"
ActiveWorkbook.Save
End Sub