Discussion :

[aragdur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[78chris]

Bonjour

A noter que la question est multipostée... avec des réponses déjà...

[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

[Philippe Tulliez]

Bonjour,

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.

[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

[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 ?

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