Filtrer + copier (avec mise en forme)

Bonjour tout le monde,

J'aurais besoin d'aide s'il vous plait : j'aimerais filtrer une base de données selon différentes entreprises et ensuite la copier/coller sur une nouvelle feuille (du même classeur) avec la mise en forme.

J'ai essayé deux méthodes notamment en passant par EntireColumn.Hidden et Cells.Select (sélectionner que les colonnes que je veux) mais dans les deux cas je n'y arrive pas, quoique avec la méthode Cells.Select j'ai réussi mais sans la mise en forme malheureusement.

Pourriez-vous me donner un coup de main s'il vous plaît.

Sub copy_presta1()

Dim wb As Workbook, ws As Worksheet

Set wb = ThisWorkbook
Set ws = wb.Sheets("EXP.DECONCATENER")

ThisWorkbook.Sheets("EXP.DECONCATENER").Select
    ActiveWorkbook.Sheets.Add
    ActiveSheet.Name = "EXP.DECONCAT.STT"

    With ws
        .Range("AN:AQ").EntireColumn.Hidden = True
        .Range("A1").CurrentRegion.Copy
Application.CutCopyMode = True
    End With

Set ws = Nothing
Set ws = wb.Sheets("EXP.DECONCAT.STT")

    With ws
        .Range("A1").Paste '.Select
        'Selection.PasteSpecial xlPasteValues
        'Selection.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
    End With

 wb.Sheets("EXP.DECONCATENER").Range("AN:AQ").EntireColumn.Hidden = True
End Sub

Sub copy_presta2()

Dim wb As Workbook, ws As Worksheet

Set wb = ThisWorkbook
Set ws = wb.Sheets("EXP.DECONCATENER")
  Application.ScreenUpdating = False

    ActiveWorkbook.Sheets.Add
    ActiveSheet.Name = "EXP.DECONCAT.STT"

        ws.Select
        ws.Cells("A:AM,AR:AS").Select '.Copy Sheets("EXP.DECONCAT.STT").Range("A1")
        Selection.Copy
Application.CutCopyMode = True
Set ws = Nothing
Set ws = wb.Sheets("EXP.DECONCAT.STT")
        'Selection.Copy
        ThisWorkbook.Sheets("EXP.DECONCAT.STT").Select
        ActiveSheet.Paste
        'ws.Range("A1").PasteSpecial xlPasteValues
        'ws.Range("A1").PasteSpecial xlPasteFormats
        'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        'wb.Sheets("EXP.DECONCAT.STT").Range("A1").PasteSpecial xlPasteValues
        'wb.Sheets("EXP.DECONCAT.STT").Range("A1").PasteSpecial xlPasteFormats

  Application.ScreenUpdating = True
End Sub

Merci à vous !

Bonjour

Tu devrais joindre ton fichier ou un fichier représentatif. Il serait alors plus facile de te proposer quelque chose.

Bye !

Bonjour,

Ce que je voudrais c'est donc ça (il y a deux onglets avant/après sur le document Excel en question) : le tout, sans pour autant supprimer les dîtes-colonnes dans la feuille "avant"

Merci à vous.

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Parfait, je te remercie, je me compliquais trop la tête, c'est vrai que copier puis supprimer les colonnes que je ne voulais pas étaient beaucoup simples !

Bien à toi!