For i = 2 To Range("C65536").End(xlUp).Row
Range("D" & i) = DateSerial(Year(Range("C" & i)), Month(Range("C" & i)) - 3, Day(Range("C" & i)))
Next
Sub Plus3mois()
Dim xCell As Range
With ActiveSheet
For Each xCell In Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp))
If IsDate(xCell) Then xCell = DateSerial(Year(xCell), Month(xCell) - 3, Day(xCell))
Next xCell
End With
End Sub
xCell = DateSerial(Year(xCell), Month(xCell) - 3, Day(xCell))
Bonjour,
Grillé sur la ligne! Essayez ce code:
Code:Sub Plus3mois() Dim xCell As Range With ActiveSheet For Each xCell In Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp)) If IsDate(xCell) Then xCell = DateSerial(Year(xCell), Month(xCell) - 3, Day(xCell)) Next xCell End With End Sub