Ignorer le filtre lors d'un copier coller

Bonjour,

Je voudrais copier une colonne qui a un filtre, ce qui fait que le résultat ne concerne que les cellules visible lors du collage.

Comment faire pour copier l'intégralité de la colonne malgré le filtre (que je ne veut pas retirer, car il sera différent a chaque fois et je dois le conserver)

Merci

Bonjour,

Mets un fichier en ligne sans données confidentielles ce sera plus facile de te donner une solution correcte.

Amicalement

Bonsoir,

Si tu veux copier avec une macro, mets au début de celle-ci

On Error Resume Next
    ActiveSheet.ShowAllData
On Error GoTo 0

Cela libère le filtre

Salut Dan

Amicalement

Claude

Bonjour,

Merci, j'ai éssayé, le pb est que le filtre est désactivé, j'aimerais la même chose, c'est a dire pouvoir copier/coller une colonne entière en gardant le filtre tel qu'il est, et que le résultat soit l'intégralité de la colonne.

exemple : Colonne A ou il y aurait, 1,2,3,4,5....

on filtre par nb impair, on voit donc 1,3,5,7,9....

mais si je fait un copier/coller de cette colonne A en colonne B, le résultat sera 1,2,3,4,5.... malgré que le filtre soit encore présent en A

Bonsoir,

Filtre automatique, connais pas !

en filtre élaboré :

Données de chiffres en A2:A20 (mettre un titre d'en_tête en A1)

critère en o2

=EST.PAIR(A2)

Dans un module

Sub filtre()
    Range("a1:a" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("o1:o2"), CopyToRange:=Range("b1"), Unique:=False
End Sub

Amicalerment

Claude

Bonsoir

Peux-tu joindre un fichier en mettant manuellement ce que tu voudrais obtenir.

Amicalement

Nad

Bonjour,

Merci pour vos réponse, mais l'histoire de pair/impair était juste pour l'exemple, Voici un fichier pour mon pb :

Bonjour,

La prochaine fois, envoie un fichier représentatif de la réalité,

comme d'habitude, on crois que l'on saura adapter, mais rare qu'on y arrive !!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("b2")) Is Nothing Then
        Application.ScreenUpdating = False
        On Error Resume Next
            ActiveSheet.ShowAllData
        On Error GoTo 0
        If Target = "" Then Exit Sub
        Range("o2") = "=b5=$b$2"
        Range("a4:b" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("o1:o2"), Unique:=False
        Range("o2").ClearContents
        Application.Goto Range("a1"), Scroll:=True
    End If
End Sub

Amicalement

Claude