devlop

Bonjour ,

j'ai une problème dans ce code

Sub test()

Dim feuil1 As Worksheet
Dim dernligne As Long
Dim ligne_en_cours As Long

dernligne = feuil1.Cells(Rows.Count, 1).End(xlups).Rows

For ligne_en_cours = 2 To dernligne

If Range(F2) > DateSerial(2012, 12, 31) Then

Range(F2) = DateSerial(2012, 12, 31) And Range(E3) = DateSerial(2013, 1, 1)

Else
End If

Next

End Sub