Private Sub CommandButton1_Click()
CommandButton3_Click
Dim Nomfeuille As String
Nomfeuille = InputBox("Saisissez le nom de la feuille d'heure que vous voulez creer exemple 10.10.06 le jour le mois et l'année mettez des point pour ne pas se tromper dans la recherche par la suite :", "Nouvelle Feuille D'Heure...")
If Nomfeuille <> "" Then
Sheets("Base").Copy before:=Worksheets(1)
ActiveSheet.Name = Nomfeuille
End If
End Sub
Private Sub CommandButton3_Click()
'Correspond a la date
Sheets("Base").Range("D" & 7) = ComboBox5.Text
Sheets("Base").Range("D" & 9) = ComboBox6.Text
Sheets("Base").Range("D" & 23) = ComboBox7.Text
Sheets("Base").Range("E" & 23) = ComboBox8.Text
'Correspond au relever Kilometrage
Sheets("Base").Range("K" & 9) = TextBox1.Value
Sheets("Base").Range("M" & 9) = TextBox2.Value
Sheets("Base").Range("K" & 23) = TextBox3.Value
Sheets("Base").Range("M" & 23) = TextBox4.Value
'Correspond a Mr Devassine
Sheets("Base").Range("G" & 61) = ComboBox10.Value
Sheets("Base").Range("H" & 61) = ComboBox11.Value
Sheets("Base").Range("I" & 61) = ComboBox12.Value
Sheets("Base").Range("J" & 61) = ComboBox13.Value
Sheets("Base").Range("K" & 61) = ComboBox14.Value
Sheets("Base").Range("L" & 61) = ComboBox15.Value
Sheets("Base").Range("M" & 61) = ComboBox16.Value
Sheets("Base").Range("N" & 61) = ComboBox17.Value
Sheets("Base").Range("O" & 61) = ComboBox18.Value
Sheets("Base").Range("P" & 61) = ComboBox19.Value
Sheets("Base").Range("Q" & 61) = ComboBox20.Value
Sheets("Base").Range("R" & 61) = ComboBox21.Value
Sheets("Base").Range("F" & 61) = ComboBox22.Value
End Sub
Private Sub CommandButton2_Click()
FrmImprime.Show
End Sub
Private Sub Sortir_Click()
UserForm1.Hide
Unload Principal
End Sub
Private Sub UserForm_Initialize()
ComboBox3.RowSource = "matricule"
ComboBox5.RowSource = "Année"
ComboBox6.RowSource = "Mois"
ComboBox7.RowSource = "Jour2"
ComboBox8.RowSource = "Jour"
'Correspond a Mr Devassine
ComboBox10.RowSource = "MG"
ComboBox11.RowSource = "sa"
ComboBox12.RowSource = "tr"
ComboBox13.RowSource = "heures"
ComboBox14.RowSource = "heures"
ComboBox15.RowSource = "heures"
ComboBox16.RowSource = "heures"
ComboBox17.RowSource = "heures"
ComboBox18.RowSource = "heures"
ComboBox19.RowSource = "heures"
ComboBox20.RowSource = "heures"
ComboBox21.RowSource = "heures"
ComboBox22.RowSource = "absences"
End Sub
Private Sub CommandButton5_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If TextBox5.Value = ws.Name Then ws.Activate
Next ws
Unload Me
End Sub