Copier certaines colonnes avec un filtre actif

Alainmnat · 21 Avril 2016

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 · 21 Avril 2016

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+

Alainmnat · 22 Avril 2016

Re : Copier certaines colonnes avec un filtre actif

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

Copier certaines colonnes avec un filtre actif

Alainmnat

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Alainmnat

XLDnaute Nouveau

Discussions similaires

Copier certaines colonnes avec un filtre actif

Alainmnat

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Alainmnat

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency