Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtre automatique en conservant la mise en page

  • Initiateur de la discussion Initiateur de la discussion nat54
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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)
 

Pièces jointes

  • Filtre_Personnalise.jpg
    15.9 KB · Affichages: 266
Dernière édition:
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 ...
 

Pièces jointes

Dernière édition:
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 ?
 
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:

Code:
Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Range("$A$3:$I$10").AutoFilter Field:=9, Criteria1:="=2ème", _
        Operator:=xlOr, Criteria2:="= "
End Sub
 
Dernière édition:
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 ...
 

Pièces jointes

  • FiltreNat.gif
    69.9 KB · Affichages: 123
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,
 

Pièces jointes

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")
 

Pièces jointes

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

Code:
Range("Input").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("Criteria"), _
    CopyToRange:=Range("Extract")
 
Dernière édition:
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à:

Code:
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
 
Dernière édition:
Re : Filtre automatique en conservant la mise en page


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 +
🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
317
Réponses
4
Affichages
322
Réponses
25
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…