1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Sub TestFonctions()
Dim DerniereLigne As Long
Dim AireDesDates As Range
With ActiveSheet
DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
Set AireDesDates = .Range(.Cells(3, 1), .Cells(DerniereLigne, 1))
With AireDesDates
.Offset(0, 2).FormulaR1C1 = "=IF(AND(WEEKDAY(RC[-2],2)=7,RC[1]>0),RC[-1],"""")"
.Offset(0, 3).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)),"""",IF(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)>0,RC[-2],""""))"
End With
Set AireDesDates = Nothing
End With
End Sub |
Partager