Methodologie de Filtre Excel

Version imprimable

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

06/10/2018, 22h49
Hello27682

Methodologie de Filtre Excel
Hello,

J'ai un probleme qui me fatigue, comment:

- dans un onglet , supprimer toutes les lignes dont la valeur en colonne BH ne commence pas par ALM
- Défiltrer dans l'onglet cités précédemment

j'essaie ce code:
Code:

1 2 3 4 5 Sub FilterALM() Dim Chaine Chaine = "*ALM" ActiveSheet.Range("$A$1:$C$9").AutoFilter Field:=2, Criteria1:=Chaine End Sub
mais il manque l'etape de suppression
07/10/2018, 09h19
Theze

Bonjour,

Tu parles de la colonne BH alors que ta plage est seulement en A:C ?

bonjour
attention le specialcells(xlvisible) d'un filtre sur une colonne inclu les cellules vides. pour une suppression eventuelle c'est pas top
si tu a des cellules vides en "BH" regarde les address que te donne ceci
d'autant plus que ton argument "=chaine" dans cet exercice n'est pas le bon
Code:

1 2 3 4 5 6 7 8 9 Sub FilterALM() Dim Chaine Chaine = "*ALM" With ActiveSheet.Range("BH1:BH9") .AutoFilter Field:=1, Criteria1:="=" & Chaine Debug.Print .SpecialCells(xlVisible).Address '.autofilter End With End Sub
regarde ce que donne plutot celle ci:
Code:

1 2 3 4 5 6 7 8 9 10 Sub FilterALM2() Dim Chaine Chaine = "*ALM" With ActiveSheet.Range("BH1:BH9") .AutoFilter Field:=1, Criteria1:="<>" & Chaine 'on filtre ce qui n'est pas = a la chaine Debug.Print .SpecialCells(xlVisible).Address '.SpecialCells(xlVisible).EntireRow.Delete .AutoFilter 'on arrete le filtre End With End Sub
debloque la ligne pour supprimer les lignes en question

07/10/2018, 22h20
Hello27682

1 pièce(s) jointe(s)

Hello,

J'ai beoin uniquement de garder les ligne qui commence par ALM
07/10/2018, 22h29
patricktoulon

re

re

Code:

Chaine = "ALM*"

et debloque la ligne
08/10/2018, 09h37
Hello27682

En fait ca supprime toute les ligne

re
je viens de tester encore une fois et chez moi ca garde bien les lignes ou il y a "ALM......"

Code:

1
2
3
4
5
6
7
8
9
10
Sub FilterALM()
    Dim Chaine, Rng As Range
    Chaine = "ALM*"
    With ActiveSheet.Range("BH1:BH9")
        .AutoFilter Field:=1, Criteria1:="<>" & Chaine    'on filtre ce qui n'est pas = a la chaine
           Set Rng = .SpecialCells(xlVisible)
        .AutoFilter    'on arrete le filtre
    End With
    Rng.EntireRow.Delete
End Sub

08/10/2018, 11h05
RyuAutodidacte

Bonjour,

• Ajouter une colonne supplémentaire après la dernière, puis faire une boucle dans la colonne BH pour
tester chaque cellules via une condition :

Code:

If InsTr(macellule, "ALM") <> 1 Then laCelluleDeMaDerCol = 1 Else laCelluleDeMaDerCol = 0

dont le résultat sera rapporté sur la cellule de la denière colonne que l'on a ajouté sur la même ligne
On va se retrouver avec cette dernière colonne avec des 0 et des 1.
Il suffira alors de faire un tri sur celle-ci de plus petit au plus grand.
Toutes les lignes à supprimer (correspond à 1) se retrouveront vers le bas.
Il suffira alors de faire un Application.Match sur la dernière colonne pour trouver la ligne du 1er 1
Avec cette ligne trouvée et la dernière ligne on pourra alors supprimer l'ensemble des lignes en une fois.
puis on supprimera la colonne dont on s'est servi pour le tri.

• Si on veut éviter la boucle sur la colonne (Code à adapter)
on pourra utiliser une formule sur l'ensemble de la dernière colonne (x et y pour le numéro de ligne) :

Code:

Range("AdrDerColx:AdrDerColy").Formula = "=IF(LEFT(BH2,3)=""ALM"",0,1)"

on devra figer les valeurs des formules :

Code:

Range("AdrDerColx:AdrDerColy").Value = Range("AdrDerColx:AdrDerColy").Value

puis faire le tri et suivre la même indication sur le 1er point après le tri

Edit : @Patrick ;) Coucou

Edit 2 : petite coquille dans le 1er extrait de code => corrigé
08/10/2018, 11h54
RyuAutodidacte

Un exemple simplifié ici :
https://www.developpez.net/forums/d1...e/#post9205474
08/10/2018, 13h01
patricktoulon

re

re
bonjour ryu
je pige ton principe mais je pige pas la demarche en fait
un simple filtre doit fonctionner j'ai testé mon code sur 20016 ce week end et ca fonctionne aussi
si le simple filtre que j'ai donné en dernier ne fait pas le job ou deraille il a un autre soucis qu'il aurait eventuellement oublier de mentionner
08/10/2018, 13h30
RyuAutodidacte

Citation:

Envoyé par patricktoulon

je pige ton principe mais je pige pas la demarche en fait

En fait, le demandeur (pour moi) cherche juste un moyen de suppression de lignes, je suppose qu'il a pensé aux filtres (ce qui est juste)
pour faire le tri et aussi par ce biais de pouvoir supprimer les lignes voulues.
Ici je lui donne juste un autre moyen de le faire ;)
08/10/2018, 13h42
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

re
je viens de tester encore une fois et chez moi ca garde bien les lignes ou il y a "ALM......" […]

Point de vue rapidité, y a pas photo… :plusser:
08/10/2018, 16h27
RyuAutodidacte

Re,

Pour infos : la méthode que je donne permet de s'affranchir de la limitation de SpecialCells dont la limite si je me souviens bien est de 8192 aires non contiguës

PS : je préfère dans les 2 versions que j'ai donné, celle avec la formule, permettant de s'affranchir de la boucle …
08/10/2018, 19h13
patricktoulon

re

Citation:

Envoyé par RyuAutodidacte

Re,

Pour infos : la méthode que je donne permet de s'affranchir de la limitation de SpecialCells dont la limite si je me souviens bien est de 8192 aires non contiguës

PS : je préfère dans les 2 versions que j'ai donné, celle avec la formule, permettant de s'affranchir de la boucle …

on pourrait aussi des l'ors que la mimite est depassée ,imaginer mon code en recursif se sera toujours plus rapide qu'une boucle sur le nombre de lignes
mais une operation comme ca une simple boucle suffit aussi
utiliser une colonne temporaire pour filter un seul argument dans UNE!! colonne me parait un peu to mutch
08/10/2018, 22h02
RyuAutodidacte

Re

Citation:

PS : je préfère dans les 2 versions que j'ai donné, celle avec la formule, permettant de s'affranchir de la boucle …

Cf. lien ;)

Mais on pourrait très bien aussi le faire avec un filtre avancé,
Les méthodes il y en a, il faut juste choisir celle qui nous convient le mieux et la plus adapter à la situation
11/10/2018, 12h56
Hello27682

Filter copier et coller

Salut les gars,

quelqu'un a un code qui Filtre un sheet selon un critere: ici ("ALM* + Column2= Value)

copie la selection ( dans un range specefique) et la met dans un autre sheet( dans le meme range)
11/10/2018, 13h31
Pierre Fauconnier

filtres avancés (advanced filters): https://philippetulliez.developpez.c...dvancedfilter/

Ca fonctionne pas chez Moi

JE crois que j'ai mail communique ma question:

En Fait je voudrais Filtrer un Sheet sur la colomn60 et ne laisser uniquement que les Lignes qui COMMENCE PAR le terme ALM

J'ai testé

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Filteralm()
    Dim Chaine
    Chaine = "ALM*"
    Dim Rng As Range
    With Worksheets("Causes and Failing Location").Range("B3:CD1932")
        .AutoFilter Field:=7, Criteria1:="<>" & Chaine    'on filtre ce qui n'est pas = à la chaine
           Set Rng = .SpecialCells(xlVisible)
        .AutoFilter    'on arrete le filtre
    End With
    Rng.EntireRow.Delete
End Sub

Ça supprime toute les Lignes

16/10/2018, 08h23
RyuAutodidacte

Bonjour,

On t'as orienté sur différentes méthodes qui marchent, à toi de les mettre en pratique correctement.

Concernant ton code, si tu veux garder toutes les lignes avec ALM, Il faut alors supprimer les lignes visibles ne contenant pas la chaîne de caractères qui débute par ALM.
Donc dans ton code c'est ceci que tu dois mettre :
Chaine <> "ALM*"
17/10/2018, 11h59
Hello27682

J'ai essayer avec ca mais ca supprime toute les lignes

J'ai essayer avec ca mais ca supprime toute les lignes

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