Copier certaines colonnes avec un filtre actif

Alainmnat

XLDnaute Nouveau
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
 

Pièces jointes

  • test-2.zip
    47.9 KB · Affichages: 33
  • test-2.zip
    47.9 KB · Affichages: 30

job75

XLDnaute Barbatruc
Re : Copier certaines colonnes avec un filtre actif

Bonjour Alainmnat,

Collez dans le code de la feuille "CMS2" :

Code:
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+
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 635
Membres
105 475
dernier inscrit
ramzi slama