Private Sub CommandButton1_Click()
On Error Resume Next
x = Sheets("R-HEURES").Cells.Find("*", , , , , xlPrevious).Row + 1
With Sheets("R-HEURES")
.Cells(x, 2) = ComboBox1.Value
.Cells(x, 3) = ComboBox1.Value
.Cells(x, 4) = ComboBox3.Value
.Cells(x, 5) = ComboBox2.Value
.Cells(x, 6) = ComboBox4.Value
.Cells(x, 7) = CDate(TextBox2.Value)
.Cells(x, 8) = CDate(TextBox3.Value)
.Cells(x, 70) = TextBox313.Value
.Cells(x, 69) = T51.Value
End With
[COLOR="Red"][B] Sheets("Feuil1").Range("A1") = user.TextBox1[/B][/COLOR]
z = 5
For i = 4 To 13
Sheets("R-HEURES").Cells(x, i + z) = CDate(Controls("TextBox" & i).Value)
z = z + 5
Next i
z = 9
For i = 1 To 50
Sheets("R-HEURES").Cells(x, i + z) = Controls("T" & i).Value
If Right(i, 1) = 0 Or Right(i, 1) = 5 Then z = z + 1
Next i
Beep
confrh.Show
End Sub