Private Sub CmdOK_Click()
Dim déb As Object, c As Long, rg As Object, Gest As Object
Set Gest = Sheets("Gestion Absence")
Set rg = Gest.Range("A3" & ":A38").Find(Nom.Value)
For c = 3 To 366
If Cells(3, c) = Me.début.Value Then
Cells(rg.Row, c) = "V"
Else
Cells(3, c).Select
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim Gest As Object
Set Gest = Sheets("Gestion Absence")
Me.Nom.List = Gest.Range("A3:A" & Gest.Cells(Application.Rows.Count, 1).End(xlUp).Offset(2, 0).Row).Value
début.Value = Format(début.Value, "dd.mm.yyyy")
fin.Value = Format(fin.Value, "dd.mm.yyyy")
début.Text = Format(début.Value, "dd.mm.yyyy")
fin.Text = Format(Date, "dd.mm.yyyy")
End Sub