Filtre automatique en conservant la mise en page

[nat54]

Bonjour,

Là quand je sélectionne 2è trimestre par exemple, je ne vois plus les catégories (cadre/non cadre),
existe-t-il une solution puor conserver cela ?

Merci d'avance,

 

[MJ13]

Re : Filtre automatique en conservant la mise en page

Bonjour Nat, James (pas compris la même chose 😕)

Tu peux ajouter au filtre personnalisé une seconde condition:

ou est égal à espace (ou vide)

 

[James007]

Re : Filtre automatique en conservant la mise en page

Bonjour Nat54,

Est-ce-que tu trouves cette astuce admissible ...ou totalement idiote ...?

A+
🙂

Edit : Salut MJ13 🙂 Super Astuce ... j'adore, mais tu as Excel 2007 ... veinard ...

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Bonjour,

@ James007 : euh cela ne me donne pas ce que j'attends ..
si je filtre sur 2è trimestre je ne vois pas les lignes violette de séparation

@MJ13 : où trouver ce menu ?

 

[MJ13]

Re : Filtre automatique en conservant la mise en page

Re

Nat: lorsqu'on filtre, je me rappelle qu'avec XL2003, on avait le choix avec filtre personnalisé. Mais peut être pas sur Xl200 😕, cela commence à être un peu vieux 😱.

Sinon macro à tester:

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Range("$A$3:$I$10").AutoFilter Field:=9, Criteria1:="=2ème", _
        Operator:=xlOr, Criteria2:="= "
End Sub

 

[Modeste]

Re : Filtre automatique en conservant la mise en page

Bonsoir,

Avec ce brave Excel2000, la technique de Michel (un rien modifiée) semble donner le bon résultat ...

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Merci, je testerais demain
Il faut que cela soit simple pour la secrétaire (pour extraire les données par trimestre)

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Bonjour,

La macro de MJ13 marche nickel
seulement j'aimerai bien rajouter quelque chose et je n'y arrive pas

1/ clic sur le bouton de la feuille "Mouvements_par trimestre"

2/ messagebox permettant de choisir dans la liste
Trimestres1er2ème3ème4ème
cette liste est nommée "trimestres" dans insertion/nom/définir

3/ que cela colle le résultat dans la feuille "Mouvements_par trimestre"
et non plus dans la feuille active "Mouvements_en-cours"

Merci d'avance,

 

[Modeste]

Re : Filtre automatique en conservant la mise en page

Bonjour,

Un essai, au départ de la macro de Michel (... si j'ai bien compris et que je n'ai rien oublié 😕) ... à tester soigneusement, donc.
Sans doute pas possible, comme demandé avec un MsgBox, mais avec un UserForm

La plage nommée existait ... mais dans un autre fichier (redéfini un nom "Trimestres")

 

[James007]

Re : Filtre automatique en conservant la mise en page

Bonjour,

Fichier test joint ...

A +
🙂

Edit : Coucou Modeste 🙂

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Wow 2 superbes réponses
J'ai une péréfrence pour celle de James007 mais pourrais-tu me la détailler stp ?

car en le remettant dans le contexte dans le fichier réel j'ai undébogage sur

Range("Input").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("Criteria"), _
    CopyToRange:=Range("Extract")

 

[James007]

Re : Filtre automatique en conservant la mise en page

Wow 2 superbes réponses
J'ai une péréfrence pour celle de James007 mais pourrais-tu me la détailler stp ?

Merci ... 😎
Que signifie détailler pour toi ...
Ce sont des plages nommées qui sont reprises dans la macro Filtrer ...

A +
🙂

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Je n'avais pas vu ça
je teste

Critères
=Mouvements_par_trimestre!$M$7:$M$8
Extraction
=Mouvements_par_trimestre!$B$7:$I$7
Input
='Mouvements_en-cours'!$B$3:$I$10
Trimestres
=Mouvements_par_trimestre!$O$8:$O$11

mais toujours le même problème de débogage là:

Range("Input").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("Criteria"), _
    CopyToRange:=Range("Extract")

d'ailleurs je ne comprends pas comment ça marche dans ton fichier vu que les noms sont différents
criteria - critères
extract - extraction

 

[James007]

Re : Filtre automatique en conservant la mise en page

Je n'avais pas vu ça
je teste

Critères
=Mouvements_par_trimestre!$M$7:$M$8
Extraction
=Mouvements_par_trimestre!$B$7:$I$7
Input
='Mouvements_en-cours'!$B$3:$I$10
Trimestres
=Mouvements_par_trimestre!$O$8:$O$11

mais toujours le même problème de débogage là:

Range("Input").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("Criteria"), _
    CopyToRange:=Range("Extract")

d'ailleurs je ne comprends pas comment ça marche dans ton fichier vu que les noms sont différents
criteria - critères
extract - extraction

Sans doute un règlage des options régionales de Strasbourg ... 😎

Je te conseille de remplacer les plages que tu as dans la macro par les noms qui apparaissent chez toi ...

A +
🙂

 

[nat54]

Re : Filtre automatique en conservant la mise en page

Bonjour,

Comment trouver ces noms ?