Variable non reconnue dans une formule

[Quincy]

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.

 

[RENAUDER]

Re : Variable non reconnue dans une formule

Bonjour,
Essaies ceci

Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-12]<>0,RC[-12]< " & Exercice & "),RC[-1],0)"
Range([q2], Cells(Nblignes, 17)).Select
Selection.FillDown

 

[Quincy]

Re : Variable non reconnue dans une formule

Bonjour,
Essaies ceci

Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-12]<>0,RC[-12]< " & Exercice & "),RC[-1],0)"
Range([q2], Cells(Nblignes, 17)).Select
Selection.FillDown

Merci beaucoup, ça marche. En fait j'avais essayé aussi ce signe mais j'en avais mis qu'un devant et aucun après.

Bonne journée à vous.