XL 2019 Ma fonction copier/coller en VBA ignore le filtre :/

[casualexcel]

Bonjour à toutes et à tous !

J'utilise un classeur composé de deux feuilles.
Sur une des feuilles j'importe des données grâce à un export internet.
Sur ma deuxième feuille j'utilise une macro qui va:
- appliquer un tri dans l'export
- copier des données et les coller dans l'autre feuille

J'utilise ce classeur depuis un moment et il a toujours fonctionné, cependant depuis que j'ai eu à décaler quelques colonnes cela ne fonctionne plus, le filtre est bien appliqué sur l'export mais le copier/coller copie toutes les données de l'export, même celles "cachées" par le filtre.

Merci pour votre temps !

 

[vgendron]

Bonjour et bienvenu..

je crois que ton message est incomplet..

 

[casualexcel]

Bonjour et bienvenu..

je crois que ton message est incomplet..

Bonjour merci, je l'ai modifié il y'a qlq secondes 😉 j'ai voulu faire un retour à la ligne mais j'ai oublié de faire alt+entrée au lieu d'entrée

 

[vgendron]

pour compléter entièrement, il faudrait que tu mettes ton fichier.. parce que sans ca.. impossible de se faire la moindre idée

 

[casualexcel]

pour compléter entièrement, il faudrait que tu mettes ton fichier.. parce que sans ca.. impossible de se faire la moindre idée

le fichier est trop volumineux pour être upload 🙁 je vois si je peux le compresser et je reviens vers toi, merci !

 

[casualexcel]

@vgendron
Ci joint le fichier exemple
En sheet 1 le tableau ou je viens coller mes données, le bouton run lance la macro (filtre la Sheet 2 + copie/colle des données de la Sheet 2 vers la Sheet 1)
le bouton clear sert à effacer les données

Je me retrouve avec des milliers de ligne au lieu d'une seule (seule ligne visible sur la sheet 2 après avoir lancé la macro)
Même si le vba employé ici est relativement primaire il fonctionnait parfaitement et ne prenait que les lignes filtrées

Merci à vous !

 

[casualexcel]

Au fait, si le fichier exemple est trop complexe à utiliser je peux peut-être faire mieux, mais il n'y a que sur ce tableau que je rencontre un problème de filtre/vba, j'utilise les mêmes fonctions de filtre et de c/c pour d'autres tableaux et cela fonctionne à chaque fois

 

[vgendron]

Essaie ce code

Sub Macro1()

With Sheets("sheet2")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne non vide de la colonne A
    .Range("A6:AZ" & fin).AutoFilter Field:=29, Criteria1:="YELLOW", Operator:=xlOr, Criteria2:="RED"
    .Range("A6:AZ" & fin).AutoFilter Field:=24, Criteria1:="YES"
    .Range("A6:AZ" & fin).AutoFilter Field:=28, Criteria1:="<75"

    .Range("F7:F" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("A11")
    .Range("AB7:AB" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("F11")
    .Range("AC7:AC" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("G11")
End With

End Sub

 

[casualexcel]

Essaie ce code

Sub Macro1()

With Sheets("sheet2")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne non vide de la colonne A
    .Range("A6:AZ" & fin).AutoFilter Field:=29, Criteria1:="YELLOW", Operator:=xlOr, Criteria2:="RED"
    .Range("A6:AZ" & fin).AutoFilter Field:=24, Criteria1:="YES"
    .Range("A6:AZ" & fin).AutoFilter Field:=28, Criteria1:="<75"

    .Range("F7:F" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("A11")
    .Range("AB7:AB" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("F11")
    .Range("AC7:AC" & fin).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(1).Range("G11")
End With

End Sub

c'est bon pour moi merci !
J'ai réussi a refaire marcher mon code également, j'étais persuadé qu'il était OK mais il devait y avoir une typo...