Chasse
XLDnaute Occasionnel
Bonjour le forum
Je saisi dans un textbox un date
Seulement la boucle ne reconnait pas le format de la textbox.
Je vous met un fichier pour que vous me compreniez mieux
D'avance merci de votre aide
Je saisi dans un textbox un date
Seulement la boucle ne reconnait pas le format de la textbox.
Je vous met un fichier pour que vous me compreniez mieux
Code:
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