Microsoft 365 Copier le format en VBA

[eric.frohlich@free.fr]

Bonjour à tous,
Je pense que mon problème ne l'est pas pour certain d'entre vous.( je suis vraiment un débutant en VBA)
Voila, je cherche à copier le contenu de 2 feuilles (dans le même classeur) ayant exactement la même structure (nom de colonne et format de cellule) dans une troisième en conservant le format de ces cellules d'origine
Voici la macro que j'utilise :
Sub Rafraichir()
With Sheets("Textile")
.Range("A1").CurrentRegion.Copy Sheets("Compilation").Range("A1")
End With
With Sheets("Chaussures")
.Range("A1").CurrentRegion.Offset(1, 0).Copy Sheets("Compilation").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
With Sheets("Compilation")
.Range("A1").CurrentRegion.Sort key1:=.Range("A1"), Header:=xlYes
End With
ActiveWorkbook.RefreshAll
End Sub

Cette macro fonctionne parfaitement bien, à part le fait que le format des cellules n'est pas pris en compte dans le nouveau tableau crée "Compilation"
Quelqu'un aurait-il la solution?
Merci pour votre aide

Cordialement

 

[Hasco]

Bonjour,

La solution est là

A vous relire

 

[eric.frohlich@free.fr]

Sorry, voici le fichier

 

[Hasco]

Bonjour,

sur mon excel 2010, les formats de nombre, de couleur d'écriture et de fond sont reproduits de la source à la destination. De quel autre formatage voudriez-vous?

A vous relire

 

[eric.frohlich@free.fr]

Je souhaite avoir le format de la cellule (texte, nombre, pourcentage) de la feuille de départ

Merci

 

[Hasco]

Re,

Et bien sur l'excel 2010 de ma bécane, tout ceci est reproduit exactement par votre macro. Je ne peux donc pas voir où est le problème. J'en suis tout marri!

Peut-être que quelqu'un d'autre passera par là et verra le problème.

A bientôt