copier une formule + mise enforme

[sonskriverez]

Bonjour le forum,

Pour copier vers le bas une formule j'utilise ceci :

Range("AD2:AD" & Range("A65536").End(xlUp).Row).Value = Range("AD2").FormulaR1C1

Mais cela ne copie pas le format de la cellule AD2 comment faire ?


Merci de votre aide

 

[Pierrot93]

Re : copier une formule + mise enforme

Bonjour Sonskirev

essaye peut être comme ceci :

Range("AD2").AutoFill Range("AD2:AD" & Range("A65536").End(xlUp).Row), xlFillCopy

mais cela suppose que dans ta colonne A des données soient présentes au moins jusqu'à la ligne 3.

bonne soirée
@+

 

[sonskriverez]

Re : copier une formule + mise enforme

Bonjour Pierrot,

Pas de probleme j'ai entre 2000 et 4000 lignes en moyenne, ton code fonctionne parfaitement.

Merci de ta reponse rapide.