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