copy/past de format 1 cellule dans toute une colonne

[frayer]

Bjr, je voudrais recopiez le format de ma cellule "I9" dans toutes les cellules de la colonne "I" jusqu'à la fin du fichier.
J'ai un 1er copy/past qui fonctionne et j'ai essayé de le modifier pour recopier le format de "I9" dans toute la colonne "I", mais rien ne fonctionne .... gr... Merci de me corriger
voici le passage en question (entre les 2 stop)

'Open "MonPort_EnTete.xls" + copy rows 1+2 (A1:AA2)
'--------------------------------------------------
Workbooks.Open Filename:= _
"\\gvafiler00\mrossier\My Documents\MonPort_EnTete.xls"


Range("A1:AA2").Select
Range("AA1").Activate
Selection.Copy

'Past in active file > "DA_Costs_Tariffs_Report.xls"
'----------------------------------------------------
Windows("DA_Costs_Tariffs_Report.xls").Activate
ActiveSheet.Paste

Rows("8:8").RowHeight = 24.75


Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False


'Recherche de la dernière ligne, SUR COLONNE "B" (selon code Forum)
'===================================================
der = Range("B65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault

Stop - ici rien ne va plus !

'Re-copie format cell "I9" en col. "I" jusqu'à dernière ligne = "derrow"
'------------------------------------------------------------------
Range("I9").Select
Selection.Copy
Range("I9").Activate
derrow = Range("B65000").End(xlUp).Row
Selection.PasteSpecial Destination:=Range("I9:I" & derrow), Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Stop

 

[Pierrot93]

Re : copy/past de format 1 cellule dans toute une colonne

Bonjour,

regarde le code ci-dessous, fonctionne sur le classeur actif / feuille active :

Range("I9").Copy
Range("I9:I" & Range("B65536").End(xlUp).Row).PasteSpecial xlPasteFormats

bon après midi
@+

 

[frayer]

Re : copy/past de format 1 cellule dans toute une colonne

Pierrot93

410 ports, 12 mois, 1500 lignes par port env. = 4920 fichiers
410 x 12 x 1500 = 7'380'000 lignes que je n'ai plus a scroller pour copier mon format

MERCI

 

[Pierrot93]

Re : copy/past de format 1 cellule dans toute une colonne

Re, bonjour Jean-Marcel

vois pas trop le rapport avec la question initiale... Faudrait sans doute mettre le tout dans une boucle, à voir...
@+