XL 2016 FILTER ou extraire

Seddiki_adz

XLDnaute Impliqué
BONJOUR
Je vous si possible un filter suivant la valeur de colonne H VERS PAGE2
 

Pièces jointes

  • FILTER.xlsx
    12.1 KB · Affichages: 16

job75

XLDnaute Barbatruc
Bonjour Seddiki_adz,

Voyez le fichier joint et cette macro dans le code de Feuil1 :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$5" Then Exit Sub
Dim F As Worksheet, dest As Range
Set F = Sheets("Copie") 'nom à adapter
Set dest = F.[A5] 'cellule de destination, à adapter
Application.ScreenUpdating = False
With [A5].CurrentRegion 'plage source
    dest(2).Resize(F.Rows.Count - dest.Row, .Columns.Count).Delete xlUp 'RAZ
    .Offset(1).AutoFilter 8, Target 'filtre automatique
    .Copy dest 'copier-coller
    .Offset(1).AutoFilter
End With
F.Columns("B:C").AutoFit
F.Activate
End Sub
Elle se déclenche quand on fait un choix dans la liste de validation en J5.

A+
 

Pièces jointes

  • FILTER(1).xlsm
    19.3 KB · Affichages: 6

Seddiki_adz

XLDnaute Impliqué
Il n'y a rien a coller, la macro Imprimer est dans la feuille "Copie".

Dans le fichier précédent j'ai ajouté la mise en page avec 1 page en largeur.
jai decaller des lignes je doit modifier le filter A11 AU LIEU DE A5
VB:Copier dans le presse-papier
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$5" Then Exit Sub
Dim F As Worksheet, dest As Range
Set F = Sheets("Copie") 'nom à adapter
Set dest = F.[A11] 'cellule de destination, à adapter
Application.ScreenUpdating = False
With [A11].CurrentRegion 'plage source
dest(2).Resize(F.Rows.Count - dest.Row, .Columns.Count).Delete xlUp 'RAZ
.Offset(1).AutoFilter 8, Target 'filtre automatique
.Copy dest 'copier-coller
.Offset(1).AutoFilter
End With
F.Columns("B:C").AutoFit
F.Activate
End Sub
 

Pièces jointes

  • FILTER3.xlsm
    21.2 KB · Affichages: 3

job75

XLDnaute Barbatruc
Faites l'adaptation vous même, c'est facile si vous avez compris les macros, elles sont simples.

Si vous n'essayez pas de les comprendre il ne sert à rien de venir ici.

Posez des questions s'il y a des choses que vous ne comprenez pas.
 

Discussions similaires

Réponses
6
Affichages
260
Réponses
11
Affichages
498

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87