VBA problème adresse relative

[Rafilo13]

Bonjour,

Voila je cherche a definir la plage d'une formule de manière relative a l'aide de VBA :

Mais je n'y arrive alors que je pense que ma variable est corrctement charger. Si quelqu'un peu jeter un oeil dessus merci par avance :

Code :

Dim Fin As Integer
Fin = Range("D65536").End(xlUp).Row


Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[Fin]C)"

Merci a Tous.

Bonne journée

 

[Pierrot93]

Re : VBA problème adresse relative

Bonjour,

essaye ainsi, enfin si j'ai bien compris pas sûr... :

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[" &  Fin & "]C)"

bonne journée
@+

 

[Rafilo13]

Re : VBA problème adresse relative

Bonjour,

C'est exactement ca, merci beaucoup et bonne journée.