XL 2016 FILTER ou extraire

[Seddiki_adz]

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

 

[job75]

Bonjour Seddiki_adz,

Voyez le fichier joint et cette macro dans le code de Feuil1 :

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+

 

[Seddiki_adz]

merci ou je peut coller le code?
si possible un bouton d'inpression si possible

 

[job75]

C'est possible avec ce fichier (2).

 

[Seddiki_adz]

C'est possible avec ce fichier (2).

merci ou je peut coller le code filter ?

 

[job75]

merci ou je peut coller le code?

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.

 

[Seddiki_adz]

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

 

[job75]

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.

 

[Seddiki_adz]

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.

MERCI FRERE SI FAIT

 

[Seddiki_adz]

COMMENT MODIFFIER LA ZONE DINPRESION

 

[job75]

Bah j'ai défini la zone d'impression à partir de la 1ère cellule A5, vous pouvez la changer.

Vous pouvez aussi ne pas définir de zone d'impression.

 

[Seddiki_adz]

Bah j'ai défini la zone d'impression à partir de la 1ère cellule A5, vous pouvez la changer.

Vous pouvez aussi ne pas définir de zone d'impression.

j'ai défini la zone d'impression à partir de la 1ère cellule A1, vous pouvez la changer. mai sa marche pas

 

[job75]

Ca marchera à condition de persévérer, quand on apprend le VBA faut être patient.

 

[Seddiki_adz]

Ca marchera à condition de persévérer, quand on apprend le VBA faut être patient.

ok merci