Copie de format dans une boucle
Bonjour, je souhaiterais copier le format (et uniquement le format) de ma colonne "A" pour chaque nouvelle colonne que ma macro crée... Donc en gros copier le format de "A1:A23" sur "C1:C23", "C1:C23"... En fonction du nombre de colonnes crées
Quelqu'un à déjà codé quelque chose du genre et pourrait m'aider ?
Bonjour,
Pour le principe, une proposition :
Option Explicit
Public Sub copyFormat()
Dim ws As Worksheet
Dim rng As Range
Dim vlg As Variant
Application.ScreenUpdating = False
Set ws = Worksheets("Feuil1")
vlg = Columns(1).ColumnWidth
Set rng = ws.Range("A1:A27")
rng.Copy
Cells(1, 3).PasteSpecial Paste:=xlPasteFormats
Columns(3).ColumnWidth = vlg
Set ws = Nothing: Set rng = Nothing
End SubMerci de ta réponse rapide, j'ai tenté de l’insérer dans ma boucle mais rien n'a l'air de ce passer
Re,
Voir code pour le principe modifié et ton fichier à tester.
Option Explicit
Public Sub copyFormat()
Dim ws As Worksheet
Dim derCol As Integer
Dim rng As Range
Dim vlg As Variant
Application.ScreenUpdating = False
Set ws = Worksheets("Feuil1")
vlg = Columns(1).ColumnWidth
Set rng = ws.Range("A1:A27")
derCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column + 2
rng.Copy
Cells(1, derCol).PasteSpecial Paste:=xlPasteFormats
Columns(derCol).ColumnWidth = vlg
Set ws = Nothing: Set rng = Nothing
End Sub Lorsque que j'execute ta macro ça me donne autre chose
Je me doute que ça à un rapport avec derligne mais je sais pas comment arranger ça (je suis débutant en VBA, le code je l'ai juste repris et adapté à mes besoins)..
Re,
A tester, mais envoie un fichier que tu rapatries dans ta synthèse. Que je puisse reproduire la procédure en sa totalité.
Je t'envoi les fichier, ça sera plus simple en effet ! ^^ (La 2e version avait quasiment le même rendu que la 1ère)
Re,
A tester avant d'affiner peut-être.
Tu dois revoir ton calcul 'tot'
Merci, c'est top !
Re,
Si tu es satisfait, pense à clore le sujet