Methodologie de Filtre Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/10/2018, 14h07
RyuAutodidacte

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 …

1 pièce(s) jointe(s)

voici un screenshot su fichier:

Pièce jointe 420105

voici ma macro

Code:

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

17/10/2018, 19h09
RyuAutodidacte

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 …
18/10/2018, 10h13
Hello27682

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
18/10/2018, 10h25
RyuAutodidacte

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 …

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

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:

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:

With ActiveSheet.Range("P1:BH37")

18/10/2018, 12h46
Hello27682

1 pièce(s) jointe(s)

c'est bon
18/10/2018, 12h52
patricktoulon

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 :mouarf:
en tout cas il y a quelque chose qui deraille dans ce fichier "books" ca devrait mettre moins d'un dixieme de seconde

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:

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:

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)

18/10/2018, 13h10
RyuAutodidacte

coucou Patrick ;),

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

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:

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

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:

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"

18/10/2018, 20h37
RyuAutodidacte

Re,

Il faut voir et t'entrainer sur les filtres avancés dont le lien a déjà été donné sur ce Post

Lien direct
19/10/2018, 13h16
RyuAutodidacte

Bonjour,

Tu trouvera un exemple de filtre avancé copiant sur un autre classeur ICI
A lire attentivement …

Voir 40 message(s) de cette discussion en une page