Discussion :

[Lordvoldman]

J'ai sur ma feuille 1 un tableau contenant plusieurs colonnes. Je voudrais filtrer la colonne A sur une colonne critère que j'aurai dans ma feuille 2 et ensuite supprimer ce que mon filtre affichera.

Exemple :

Colonne 1 (Source) Colonne 1 (Filtre) Colonne 1 (Source) Final
Eric Eric Philippe
Philippe + => Karen
Karen

Pour l'instant j'ai fais ceci mais ça me renvoie pas la bonne filtration déjà.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Filtre()
Dim MaPlage As Range
Dim DernLigne As Long
 
DernLigne = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
 
Set MaPlage = Range(Cells(1, 1), Cells(DernLigne, 1))
 
    Range("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        MaPlage, Unique:=False
 
 
End Sub

[Lordvoldman]

En fait c'est bon, le problème c'est que ma plage je la définissais dans la feuille du tableau à filtrer. Je l'ai changé en ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Filtre_ASPI()
Dim MaPlage As Range
Dim DernLigne As Long
ScreenUpdating = False
DernLigne = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Feuil2").Activate
Set MaPlage = Range(Cells(1, 1), Cells(DernLigne, 1))
Sheets("Feuil1").Activate
    Range("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        MaPlage, Unique:=False
ScreenUpdating = True
 
End Sub

Dites moi si c'est améliorable svp et comment pourrai je supprimer ce qui est affiché pour revenir sur un tableau source sans ce que mon filtre m'a donné.

Merci d'avabce

[MarcelG]

Bonjour et bienvenu sur ce Forum,

En termes d'amélioration.
- Affecter Long à la variable DernLigne me paraît exagéré.
- Eviter les méthodes Activate, Select.. qui ne contribuent qu'à rendre le code moins lisible.
- Pour cette lisibilité, utiliser, tant faire se peut, le bloc With et ratacher le objets .Cells et non Cells.
- En fin de procédure, libérer les variables affectées à des objets.

revenir sur un tableau source sans ce que mon filtre m'a donné.

Utiliser la méthode ShowAlldata comme ci-dessous dans le code proposé

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
Sub Filtre_ASPI()
 
Dim MaPlage As Range
Dim DernLigne As Integer
 
Application.ScreenUpdating = False
 
With Worksheets("Feuil2")
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set MaPlage = .Range("A1:A" & DernLigne)
End With
 
With Worksheets("Feuil1")
        If .FilterMode = True Then .ShowAllData
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A1:A" & DernLigne).AdvancedFilter _
                                        Action:=xlFilterInPlace, _
                                        CriteriaRange:=MaPlage, _
                                        Unique:=False
End With
 
Set MaPlage = Nothing
 
Application.ScreenUpdating = True
 
End Sub

[joe.levrai]

- Affecter Long à la variable DernLigne me paraît exagéré.

Bonjour,

je ne suis pas du tout d'accord, il se passe quoi avec ton Integer si sa dernière ligne est 75478 et ?

TOUJOURS utiliser un Long pour les numéros de lignes, c'est pas un Long qui va faire chauffer l'ordinateur

Pour le reste, j'appuie tes propos

[MarcelG]

Salut Joe,

J'ai bien pris cette précaution de langage

me paraît

.

Code :

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

TOUJOURS utiliser un Long pour les numéros de lignes

Je suis sceptique.
Une feuille dont le UsedRange contient plus de 32767 lignes ne doit pas être facile à gérer.
De telles feuilles ne doivent pas courir les rues.

Cela dit, j'en conviens, c'est du perfectionnisme de ma part.

[78chris]

Bonjour

Même si 1 million de lignes est rarement utilisé et gérable, 32767 lignes en revanche ce n'est pas si énorme... tout dépend l'usage