Macro commande Visual basic

Gagnej Messages postés 3 Statut Membre -  
Gagnej Messages postés 3 Statut Membre -
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!! :)
A voir également:

2 réponses

Frenchie83 Messages postés 2254 Statut Membre 339
 
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
0
Gagnej Messages postés 3 Statut Membre
 
Good Merci!!
0
Gagnej Messages postés 3 Statut Membre
 
Wow!! Merci @Frenchie83, ça fonctionne! Je suis ravie! ;)
0