Macro filtre : rajouter un élément

Version imprimable

Salut,

J'ai une feuille et tout un tas d'onglets.
j'ai une macro filtre élaboré qui joue en fonction de l'intitulé de l'onglet.
Je voulais rajouter deux lignes mais ça ne fonctionne visiblement pas. (Accueil G18 et G21)
Le but de ces lignes était de rajouter une valeur filtre en fonction d'une cellule située sur une autre feuille.
J'ai la macro suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Filtre_avancé()
'
' Filtre_avancé Macro
' Applique un filter sur la colonne G - Critère = 2 dernière lettres du nom de la feuille: exemple: SJF==>JF
    Application.ScreenUpdating = False
 
    For Each ws In Sheets
        If ws.Name <> "Accueil" And ws.Name <> "Tableau de saisie" And ws.Name <> "Catalogue" And ws.Name <> "Tableau de données" Then
            With ws
                .UsedRange.AutoFilter
                .UsedRange.AutoFilter Field:=5, Criteria1:=Left(ws.Name, 1)
                .UsedRange.AutoFilter Field:=7, Criteria1:=Right(ws.Name, 2)
                .UsedRange.AutoFilter Field:=2, Criteria1:='Accueil'!$G$18
                .UsedRange.AutoFilter Field:=3, Criteria1:='Accueil'!$G$21
                Compteur = 0
                For Each ele In .UsedRange.Offset(1, 0).Columns(1).SpecialCells(xlCellTypeVisible)
                    If ele.Offset(0, 1) <> "" Then
                        ele.FormulaR1C1 = Compteur + 1
                        ele.NumberFormat = "000"
                        Compteur = Compteur + 1
                    End If
                Next ele
            End With
        End If
    Next ws
 
    Sheets("Accueil").Select
    Application.ScreenUpdating = True
End Sub

https://www.cjoint.com/c/HBlnqVLgCUb

cdlt

11/02/2018, 14h30
Philippe Tulliez

Bonjour,
Le code que tu affiches n'est pas du filtre avancé (élaboré) mais un filtre simple.
Je crois justement que tu devrais passer par celui-là bien plus complet quand aux possibilités surtout avec les critères nommés.

A lire Les filtres avancés ou élaborés dans Excel
11/02/2018, 14h43
78chris

Bonjour

A noter que la question est multipostée... avec des réponses déjà...
11/02/2018, 14h44
aragdur

salut,

bien vu et désolé pour l'erreur.
Via filtre élaboré, est-ce que je peux mettre des conditions en fonction du nom de ma feuille ?
par exemple, si ma feuille s'appelle SM, je veux voir SM en critère de filtre :)
11/02/2018, 15h01
Philippe Tulliez

Bonjour,

Citation:

si ma feuille s'appelle SM, je veux voir SM en critère de filtre

Je ne comprends pas ta question.
Qu'entends-tu par "voir SM en critère de filtre" ?
Est-ce avoir en critère le nom de la feuille où se trouve la liste à filtrer, est-ce un zone de critères ayant le même nom que la feuille où se trouve les données ?
Il faudrait mieux expliquer ce que tu souhaites filtrer et quelle liste de données et oui, on peut faire référence dans un critère nommé à une autre feuille.
11/02/2018, 15h10
aragdur

J'ai une table de saisie
puis des onglets (SJF/SJM/SSF/SSM/...) qui me servent à extraire les données de la précédente table.

Actuellement, sur ces onglets, j'ai un filtre en colonne E (filtre : S,A,N ou P) et un en G (JF, JM, SF, ...).
J'aurai aimé rajouter un filtre en colonne B et C.
Colonne B (Lieu) dépendra de ce qui est inscrit sur l'onglet Accueil en G18 (c'est une liste déroulante)
Colonne C (Date) dépendra de ce qui est inscrit sur l'onglet Accueil en G21 (liste déroulante également).

Cdlt
11/02/2018, 15h20
aragdur

le soucis en fait, c'est que j'essaye bien avec le filtre avancé (sans macro pour l'instant), mais sans résultat actuellement ^^'

c'est comme si il ne prenait pas en compte le résultat de ma liste déroulante.

y a t'il une incompatibilité là dedans svp ?
11/02/2018, 16h20
Philippe Tulliez

Bonjour,
Comment veux-tu que l'on t'apporte une quelconque réponse sans visualiser ce que tu as placé dans la zone des critères et si l'on n'a pas une explication de la manière dont sont organisées tes données (une image sufit éventuellement)
11/02/2018, 16h28
aragdur

c'est pour ça que j'avais joint mon fichier dans mon premier post :
https://www.cjoint.com/c/HBlnqVLgCUb

Les deux critères que je veux rajouter c'est un lieu qui varie vu que c'est dans une liste déroulante et une date.
11/02/2018, 16h50
78chris

Bonjour

On a déjà échangé sur ce projet où, à l'origine l'éclatement des données avait pour but le publipostage et où on t'avait proposé plutôt un filtre et des champs REMPLIR dans Word qui t'avaient convenu.

Mettre en place le même filtre sur tous les onglets est plus simple en filtre auto, ce que cherche à faire le code que tu as posté ici et ailleurs et les codes qu'on t'a donné en retour.

Au lieu de poster tous azimuts essaie de comprendre les corrections de code qui t'ont été proposées...

On ne peux combiner filtre avancé et filtre auto en même temps...