Bonjour à tous
J'ai une macro dans laquelle je dis que l'exercice est 2008 et marche bien :
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-12]<>0,RC[-12]<2008),RC[-1],0)"
Range([q2], Cells(Nblignes, 17)).Select
Selection.FillDown
Range("R2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-13]<>0,RC[-13]=2008),RC[-2],0)"
Range([r2], Cells(Nblignes, 18)).Select
Selection.FillDown
mais j'aimerai que cette macro fonctionne pour les années suivantes, j'ai donc modifié mon bout de code de la façon suivante :
Dim Exercice As String
Exercice = Range("T2").Value
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-12]<>0,RC[-12]<exercice),RC[-1],0)"
Range([q2], Cells(Nblignes, 17)).Select
Selection.FillDown
Range("R2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-13]<>0,RC[-13]=exercice),RC[-2],0)"
Range([r2], Cells(Nblignes, 18)).Select
Selection.FillDown
Ma variable "Exercice" est bien reconnue avec comme valeur "2008" mais impossible de la faire reconnaître dans mes formules. (j'ai essayé aussi en mettant un espace entre < et 2008 et = et 2008)
Si une personne pouvait remédier à mon problème. Merci.