XL 2010 Macro Année 365 ou 366 jours =>Référence à une cellule = nombre de ligne à tirer

[jlbcall]

Bonjour à tous,

J'ai une macro ou j'aimerai intégrer, en fonction de l'année (Bissextile 366 ou pas 365) , le nombre de ligne à copier.
Le tableau part de la ligne Q3 à Y3 ou j’intègre différente sur cette plage des formules, ensuite je dois tirer ces cellules jusqu’à la ligne de fin soir 367 ou 368
Q3 + Y & 365 +2 si année normale
Q3 + Y & 366 +2 si année Bissextile
J'aimerai faire référence à la cellule Q1

Fichier joint
Merci d'avance et je vous souhaite une bonne journée

Sub Cal( )

'avoir une variable pour savoir le nombre de ligne à tirer ????

Sheets("Cal").Select
Range("Q1").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=IF(DAY(DATE(YEAR(R[2]C[-4]),3,0))=28,365,366)"
Range("R3").Select
ActiveCell.FormulaR1C1 = "=RC[-5]"
Range("R4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("R4").Select
Selection.AutoFill Destination:=Range("R4:R368"), Type:=xlFillDefault
Range("q3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]="""",""ALERTE3"",YEAR(RC[1]))"
Selection.NumberFormat = "General"
Range("q3").Select
Selection.AutoFill Destination:=Range("q3:q368")

Range("S3").Select
ActiveCell.FormulaR1C1 = "=MONTH(RC[-1])"
Range("T3").Select
ActiveCell.FormulaR1C1 = "=WEEKDAY(RC[-2],2)"
Range("U3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-3],Fériés,3,FALSE)),"""",VLOOKUP(RC[-3],Fériés,3,FALSE))"
Range("V3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]= ""F"",7,RC[-2])"
Range("W3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],Périodes,3,1)"
Range("X3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]="""",0,1)"
Range("Y3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],R3C3:R35C10,RC[-3]+1,FALSE)"
Range("s3:Y3").Select
Selection.AutoFill Destination:=Range("s3:Y368")
Range("s3:y368") = Range("s3:y368").Value
Range("q3").Select
MsgBox "le calendrier est remplit"

End Sub

 

[Dranreb]

Bonjour.
Je dirais :

Feuil2.[Q1].FormulaR1C1 = "=365+(MONTH(DATE(YEAR(R[2]C[-4]),2,29))=2)"

Édition: salut Pierrejean

 

[pierrejean]

Bonjour jlbcall

Je te suggère:
dernière_ligne_a_remplir=Range("Q1")+2

Edit:SalutDranreb

 

[jlbcall]

Ah oui Merci ... Bonne journée à vous deux