Discussion :

[Hello27682]

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 :

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

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

[Theze]

Bonjour,

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

[patricktoulon]

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 :

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

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 :

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

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

[Hello27682]

Hello,

J'ai beoin uniquement de garder les ligne qui commence par ALM

[patricktoulon]

re

Code :

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

Chaine = "ALM*"

et debloque la ligne

[Hello27682]

En fait ca supprime toute les ligne

[Pierre Fauconnier]

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

[Hello27682]

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 :

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

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

[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*"

[Hello27682]

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

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