eric.frohlich@free.fr
XLDnaute Nouveau
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
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