Methodologie de Filtre Excel

**RyuAutodidacte** · 17/10/2018, 15h07

Tes ALM à trier sont sur quelle colonne ?
Tu dois indiquer à ton Field Le bon numero de colonne.
Dans ton code tu as mis 7, mais est ce que tes ALM se trouve dans la colonne 7 ??
En faisant les bonnes manip avec l'enregistreur de macro, tu arrives au résultat …

**Hello27682** · 17/10/2018, 19h41

voici un screenshot su fichier:

Nom : Excel1.jpg
Affichages : 154
Taille : 464,7 Ko

voici ma macro

Code :

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

1
2
3
4
5
6
7
8
9
Sub FilterALM1()
Dim Chaine
Chaine = "ALM*"
With ActiveSheet.Range("BH1:P37")
    .AutoFilter Field:=10, Criteria1:="=" & Chaine
    Debug.Print .SpecialCells(xlVisible).Address
    '.autofilter
End With
End Sub

Ça enlève toutes les lignes

**RyuAutodidacte** · 17/10/2018, 20h09

Re

Pourquoi il n'y a pas d'en-tête en ligne 1 et pourquoi je vois un filtre commençant à la colonne P ?

Donc le tri se ferai sur la 10e colonne (J) ? On est d'accord ?
Quel est la logique avec la colonne J pour le tri et un filtre commençant à la colonne P ???

Pour la solution avec les filtres avancés il te faut absolument des en-têtes, si tu n'en a pas, ce n'est pas cette solution qu'il te faut …

Tes données contiennent des formules ?? Attention car si c'est le cas et que tes formules ne sont pas faites en conséquence pour un tri tu risques de te retrouver avec des surprises au niveau des résultats …

**Hello27682** · 18/10/2018, 11h13

Meme avec les entetes, ca ne fontionne pas
la regle est qu'on Filtre sur la colonne 10 sur les valeur qui commence par ALM

**RyuAutodidacte** · 18/10/2018, 11h25

Envoi moi un fichier au format xlsx en exactitude avec la réalité en remplaçant les données confidentielles avec les en-têtes, une trentaine de lignes suffisent …

**patricktoulon** · 18/10/2018, 13h40

bonjour
pour quoi coquin de sort !!!! tu persiste a vouloir filtrer une plage (x colonne), filtre en qu'une non de dieu !!

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub FilterALM1()
Dim Chaine
Chaine = "ALM*"
With ActiveSheet.Range("H1:H37")'.Range("H1",ActiveSheet.cells(rows.count,"H").end(xlup))

    .AutoFilter Field:=1, Criteria1:="=" & Chaine
    Debug.Print .SpecialCells(xlVisible).Address
    '.autofilter
End With
End Sub

et sert toi de entirerow pour chopper les lignes entieres ou resize de "A" jusqu'a "P"

d'autant plus que :

Code :

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

With ActiveSheet.Range("BH1:P37")

tu es sur de n'avoir pas fait d'erreur chez moi TA!!! colonne de fin("P") est avant celle du debut("BH") on avance a reculons la ???

ca serait pas plutot ca :

Code :

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

With ActiveSheet.Range("P1:BH37")

**Hello27682** · 18/10/2018, 13h46

c'est bon

**patricktoulon** · 18/10/2018, 13h52

re
bon ben la chose est claire maintenant ta plage n'est pas "BH1:P37" d'ailleurs ton usedrange s'arrete a la colonne "M" dans ton fichiers "books"

re
et en plus ton fichier est corrompu 8 seconde pour filtrer 37 lignes sur une colonne

en tout cas il y a quelque chose qui deraille dans ce fichier "books" ca devrait mettre moins d'un dixieme de seconde

**RyuAutodidacte** · 18/10/2018, 14h07

Re,

Via l'enregistreur de Macro :

voilà ce cela donne avec un filtre avancé sur ton fichier (faire le code en pas à pas)
PS : bien sur ce code doit être nettoyé par la suite afin d'être fait correctement :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("J1").Select
    Selection.Copy
    Range("P1").Select
    ActiveSheet.Paste
    Range("P2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "<>ALM*"
    Application.CutCopyMode = False
    Range("A1:M67").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("P1:P2"), Unique:=False
    Range("A2:M61").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    ActiveSheet.ShowAllData
End Sub

et voilà le code fait directement par filtre (code à nettoyer/arranger aussi) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveSheet.Range("$A$1:$M$67").AutoFilter Field:=10, Criteria1:="<>ALM*"
    Range("A2:M61").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    ActiveSheet.ShowAllData
End Sub

si tu ne voyais plus tes données c'est peut être par ce que tu as oublier de faire afficher tout => ActiveSheet.ShowAllData

tout marche sans problème et qui dit enregistreur de macro dit l'avoir fait manuellement (ca prends pas plus de 10 seconde en manuel)

**RyuAutodidacte** · 18/10/2018, 14h10

coucou Patrick

,

Étant sur Mac, j'ai pas eu le souci que tu décris

**patricktoulon** · 18/10/2018, 14h46

re
bonjour ryu
se sont des liens qui sont déactivés et ses resultat "N/A" qui foutent le boxon

malgré tout je te propose 3 resultat que le demandeur pourrais eventuellement souhaiter

les address de cellule en "H" qui sont valables
la plage valable de "B" a "M"
les ligne entieres valables

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
Sub FilterALM2()
    Dim Chaine
    Chaine = "ALM*"
    With ActiveSheet
 
        .Range("H1", Cells(Rows.Count, "h").End(xlUp)).AutoFilter Field:=1, Criteria1:="=" & Chaine
 
        MsgBox "les cellules valables en colonne""H""" & vbCrLf & .Range("H1", .Cells(.Rows.Count, "h").End(xlUp)).SpecialCells(xlVisible).Address
 
        MsgBox "la plage valable  de ""B"" a ""M""" & vbCrLf & .Range("B1", .Cells(.Rows.Count, "M").End(xlUp)).SpecialCells(xlVisible).Address
 
        MsgBox "les lignes  valables  de la plage sont " & vbCrLf & .Range("B1", .Cells(.Rows.Count, "H").End(xlUp)).SpecialCells(xlVisible).EntireRow.Address
 
      .Range("H1", Cells(Rows.Count, "h").End(xlUp)).AutoFilter
    End With
End Sub

que cherche t il enfin

**Hello27682** · 18/10/2018, 18h11

Merci, ca marche maintenant

j'ai un autre soucis, j'essaye de Filtrer sur un sheet dans un Workbook colonne11 et mettre le résultat dans un autre workbook/sheet

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
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub CopyWorkbookData()
    Dim wb As Workbook, wsfromittocopy As Worksheet
    Dim strDate0 As String, strDate1 As String
    Dim wbReport1 As Workbook, wsReport1 As Worksheet
    Dim filepath As String
    Dim lngRows As Long, intCols As Integer
    Dim rngToCopy As Range, rngOutput As Range
 
    strDate0 = Format(Date - 3, "yyyy.mm.dd")
    strDate1 = Format(Date, "yyyy.mm.dd")
 
    Application.ScreenUpdating = False
 
    Set wbReport1 = ActiveWorkbook
    Set wsReport1 = wbReport1.Worksheets("Sheet1")
    Set rngOutput = wsReport1.Range("$B$2:$CF$2407")
 
    Workbooks.Open Filename:="C:\*****\**** -12102018.xlsm"
    'Workbooks.Open "**** -12102018.xlsm"
    Set wbFailed = ActiveWorkbook
    Set wsFailed = wbFailed.Worksheets("Effects Location")
 
    ' Filter the data
    With wsFailed
        lngRows = .Range("B489").End(xlUp).Row
        intCols = .Range("W1").End(xlToLeft).Column
        ActiveSheet.Range("$B$2:$CF$2407").AutoFilter Field:=10, Criteria1:="=ALM*" _
        , Operator:=xlAnd
        '.Range(.Cells(1, 1), .Cells(lngRows, intCols)).AutoFilter _
        'Field:=11, Criteria:="=ALM*"
        Set rngToCopy = .Range(.Cells(1, 1), .Cells(lngRows, intCols)).SpecialCells(xlCellTypeVisible
        'Set rngToCopy = .Range("B2:CF" & .Cells(Rows.Count - 1, "").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        rngToCopy.Copy
        rngOutput.PasteSpecial xlPasteValues
    End With
 
    ' Close the input workbook and set the output range for the next one
    wbFailed.Close SaveChanges:=False
    Set rngOutput = wsReport1.Range("B489").End(xlUp).Offset(1, 0)
 
    Application.ScreenUpdating = True
End Sub

Le résultat est que le code met uniquement le contenue de la cellule 1 dans "Sheet1"