copy/past de format 1 cellule dans toute une colonne

  • Initiateur de la discussion Initiateur de la discussion frayer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

frayer

XLDnaute Nouveau
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
 
Re : copy/past de format 1 cellule dans toute une colonne

Bonjour,

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

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

bon après midi
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
485
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
827
Réponses
1
Affichages
1 K
Retour