XL 2013 Copie filtre existant active macro remet le filtre à l'identique

CGU2022. · 5 Août 2022

Bonjour à toutes et à tous.....

J'ai une macro qui copie et colle des valeurs de cellules.
Pour que cela marche je dois libérer le filtre exitant ActiveSheet.Range("$H$10:$H$2000").AutoFilter Field:=1

ci dessous la macro
Sub Cumul()

ActiveSheet.Range("$H$10:$H$2000").AutoFilter Field:=1 'libère le filtre qu'il soit
Range("k18:k1859").Copy 'copie la sélection colonne k
Range("I18").PasteSpecial Paste:=xlPasteValues 'colle la sélection à partir d'une cellule
Range("J18:J1859").ClearContents 'efface la colonne J

End Sub

Mon souhait remettre le filtre à l'identique après l'exécution de la macro qu'il soit actif ou pas ....

Cordialement ......

TooFatBoy · 6 Août 2022

christophe.garrigou@gmail à dit:
Mon souhait remettre le filtre à l'identique après l'exécution de la macro qu'il soit actif ou pas ....

A tester :

VB:

Sub test()
'
Dim FiltreActif As Boolean

    FiltreActif = False
    On Error Resume Next
    FiltreActif = ActiveSheet.AutoFilter.Filters.Item(1).On
    ActiveSheet.Range("$H$10").AutoFilter Field:=1

    Range("k18:k1859").Copy
    Range("I18").PasteSpecial Paste:=xlPasteValues
    Range("J18:J1859").ClearContents

    If FiltreActif = True Then
        ActiveSheet.Range("$H$10:$H$2000").AutoFilter Field:=1, Criteria1:="<>"
    End If

End Sub

Phil69970 · 7 Août 2022

Bonjour à tous

@christophe.garrigou@gmail
La logique est de valider le post contenant la réponse qu tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout donc ici tu devrais valider le post #5 de @TooFatBoy si j'ai bien suivi

@Phil69970

TooFatBoy · 7 Août 2022

Phil69970 à dit:
La logique est de valider le post contenant la réponse qu tu as choisi et non pas ton propre post

Le code VBA qu'il dit avoir résolu son problème est contenu dans le message coché et c'est le plus important.
Mais en toute logique tu as bien sûr parfaitement raison.

XL 2013 Copie filtre existant active macro remet le filtre à l'identique

CGU2022.

XLDnaute Junior

TooFatBoy

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires