Copie de format 1 cellule dans 1 colonne

[frayer]

Bjour le Forum,

avec votre aide j'ai obtenu cette macro.
Mais je voudrais copier le FORMAT de ma cellule I2 de mon fichier MonPort_EnTete.xls dans toute la colonne I (depuis I9 inclus) de mon fichier DA_Costs_Tariffs_Report.xls, avec la même recherche de la dernière ligne de données existantes que pour les colonnes L9:AA9
Voici le bout de macro qu'il faut que je modifie ??
Merci pour votre aide

'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

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

 

[skoobi]

Re : Copie de format 1 cellule dans 1 colonne

Bonjour frayer,

Si j'ai bien suivi, en bleu mes ajouts:

'Open "MonPort_EnTete.xls" + copy rows 1+2 (A1:AA2)
'--------------------------------------------------
Workbooks.Open Filename:= _
"\\gvafiler00\mrossier\My Documents\MonPort_EnTete.xls"
[COLOR=Blue][B]Set Sh = ActiveWorkbook.ActiveSheet[/B][/COLOR]
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

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 '

[COLOR=Blue][B]'copie du format
'----------------------------------------------------
Sh.Range("I2").Copy
Range("I9:I" & der).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False[/B][/COLOR]

 

[frayer]

Re : Copie de format 1 cellule dans 1 colonne

Viele Danke "Elsaßer", Das macht !
Bien connu Rixheim, Riedisheim, Bantzenheim, Chalampé, NeuBrisach ... et maintenant Bretten > la Sungau
Gaffe ! Un neveu est flic a Mulhouse )))

 

[skoobi]

Re : Copie de format 1 cellule dans 1 colonne

Salut frayer,

Yo Hopla, Prima!!!