Macro commande Visual basic Fermé

Question

Bonjour,

Voici une partie d'une macro que j'ai créée... En fait je veux que ma formule se répète sur la colonne entière mais comme je n'ai pas toujours le même nombre de ligne, je dois rajuster à chaque fois. Comment je pourrais indiquer de copier jusqu'à la dernière ligne de donnée?

 ActiveCell.FormulaR1C1 = _
        "=IF(DATEDIF(RC10,PARAMÈTRES!R16C2,""y"")>100,0,DATEDIF(RC10,PARAMÈTRES!R16C2,""y""))"
    Range("k2").Select
    Selection.AutoFill Destination:=Range("k2:k1465")

MERCI de votre aide!! :)

Frenchie83 · Answer

Bonjour
Dans cet exemple, la formule est copiée sur l'ensemble de la colonne par rapport à la longueur de la colonne A
    Range("K2:K" & [A100000].End(xlUp).Row).FormulaR1C1 = "=IF(DATEDIF(RC10,PARAMÈTRES!R16C2,""y"")>100,0,DATEDIF(RC10,PARAMÈTRES!R16C2,""y""))"
Cdlt

Gagnej · Answer

Wow!! Merci @Frenchie83, ça fonctionne! Je suis ravie! ;)

Macro commande Visual basic

2 réponses

Discussions similaires