S sonskriverez XLDnaute Occasionnel 11 Juin 2007 #1 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
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 XLDnaute Barbatruc 11 Juin 2007 #2 Re : copier une formule + mise enforme Bonjour Sonskirev essaye peut être comme ceci : Code: 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 @+ Vote positif 0 Vote négatif
Re : copier une formule + mise enforme Bonjour Sonskirev essaye peut être comme ceci : Code: 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 @+
S sonskriverez XLDnaute Occasionnel 11 Juin 2007 #3 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. Vote positif 0 Vote négatif
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.