Formule R1C1 quelque soit le nombre de lignes

[julien974]

Bonjour les amis,

J'ai besoin d'aide concernant cette formule. J'aimerais que la formule s'execute quelque soit la dimention de la plage...

Range("A65000").End(xlUp).Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(1/COUNTIF(R[-1402]C:R[-1]C,R[-1402]C:R[-1]C))"

Merci de votre aide,

Juli3n974

 

[Guest]

Re : Formule R1C1 quelque soit le nombre de lignes

Bonjour Julien,

Essaie ceci:

Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 =  _
     "=SUMPRODUCT(1/COUNTIF(R[-" & ActiveCell.Row - 1 & "]C:R[-1]C,R[-" & ActiveCell.Row - 1 & "]C:R[-1]C))"

A+

 

[julien974]

Re : Formule R1C1 quelque soit le nombre de lignes

Tout fonctionne très bien,

Merci HASCO,

Amicalement,

Juli3n974