Copier certaines colonnes avec un filtre actif

[Alainmnat]

Bonjour le forum,

Je reviens vers vous car je sèche et je ne trouve pas sur une question qui semblait simple.
Dans mon fichier, l'onglet "CMS" contient des données que je filtre à volonté sur la colonne "E".
L'onglet "CMS2" me sert à récupérer les données de l'onglet "CMS" filtrées.
Je souhaiterai n'exporter dans mon onglet "CMS2" que les colonnes qui ont une entête sur fond bleu (A,E,L,M,P,U,V,W...).
Cordialement

 

[job75]

Re : Copier certaines colonnes avec un filtre actif

Bonjour Alainmnat,

Collez dans le code de la feuille "CMS2" :

Private Sub Worksheet_Activate()
With Feuil1 'CodeName de la feuille "CMS"
  .[B:D,F:K,N:O,Q:T,X:Y,AB:AB,AE:AH,AJ:AL,AN:AP].Columns.Hidden = True
  .[A1].CurrentRegion.Copy [A1]
  .Columns.Hidden = False
End With
End Sub

A+

 

[Alainmnat]

Re : Copier certaines colonnes avec un filtre actif

Bonjour job75,
c'est tout à fait ce qu'il me fallait.
Cordialement