Macro commande Visual basic
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!! :)
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!! :)
2 réponses
-
Bonjour
Dans cet exemple, la formule est copiée sur l'ensemble de la colonne par rapport à la longueur de la colonne ARange("K2:K" & [A100000].End(xlUp).Row).FormulaR1C1 = "=IF(DATEDIF(RC10,PARAMÈTRES!R16C2,""y"")>100,0,DATEDIF(RC10,PARAMÈTRES!R16C2,""y""))"
Cdlt -
Wow!! Merci @Frenchie83, ça fonctionne! Je suis ravie! ;)
