XL 2016 ne faire apparaitre que les lignes qui...

[eastwick]

Bonjour à toutes et tous,

Dans un tableau, j'aimerais ne laisser visibles que les lignes dont la colonne F (F2 à F800) ont une valeur supérieure ou égale à 80% (ou 0,8).
Je vous remercie.

 

[dysorthographie]

bonjour,
pourquoi F800 et pas F:F

---

✅ Filtrer les lignes où la colonne F ≥ 0,8 avec un filtre élaboré​

1. Préparer la zone de critères​

1. Choisir deux cellules vides, par exemple H1 et H2.
2. Copier exactement le nom de l’en-tête de la colonne F dans H1.
   • Si l’en-tête est "Taux" → mettre "Taux"
3. Dans H2, écrire la condition :

>=0,8

ou pour 80% :

>=0,8

⚠️ Si Excel est en anglais : >=0.8
⚠️ Le séparateur décimal dépend de vos paramètres régionaux.

Votre zone de critères ressemble à ceci :

H1 (Nom de la colonne F)
>=0,8

---

2. Appliquer le filtre élaboré​

1. Sélectionner votre tableau (ex. A1:F800).
2. Aller dans :
   Données → Avancé (groupe "Trier et filtrer").
3. Paramétrer :

• Action : Filtrer la liste sur place
• Plage de la liste : votre tableau (ex. $A$1:$F$800)
• Plage de critères : la zone H1:H2

Puis OK.

---

🎉 Résultat​

Excel masque automatiquement toutes les lignes où la valeur en colonne F est < 0,8, et ne laisse visibles que celles ≥ 0,8.

​

 

[gosselien]

Bonjour,

Par le menu données/filtrer/filtre numérique et choisir le chiffre

P.

 

[eastwick]

bonjour,
pourquoi F800 et pas F:F

oui, si tu veux

 

[eastwick]

Bonjour,

Par le menu données/filtrer/filtre numérique et choisir le chiffre

P.

Certes, mais je souhaite ceci de manière autonome et automatique (VBA)

 

[dysorthographie]

Sub FiltrerColonneF_80()
    FiltreElabore _
        NomFeuille:="Feuil1", _
        PlageDonnees:="A1:F800", _
        NomColonne:="F", _
        Critere:=">=0,8"
End Sub

Sub FiltreElabore( _
        ByVal NomFeuille As String, _
        ByVal PlageDonnees As String, _
        ByVal NomColonne As String, _
        ByVal Critere As String, _
        Optional ByVal PlageCritere As String = "Z1:Z2")

    Dim ws As Worksheet
    Set ws = Worksheets(NomFeuille)

    ' ─── 1. Enlever tout filtre existant ───────────────────────────
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0

    ' ─── 2. Créer la zone de critères ──────────────────────────────
    Dim c As Range
    Set c = ws.Range(PlageCritere)

    c.Cells(1, 1).Value = NomColonne       ' titre identique à la colonne
    c.Cells(2, 1).Value = Critere          ' ex : ">=0,8"

    ' ─── 3. Appliquer le filtre élaboré ────────────────────────────
    ws.Range(PlageDonnees).AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=c
End Sub

 

[eastwick]

Sub FiltrerColonneF_80()
    FiltreElabore _
        NomFeuille:="Feuil1", _
        PlageDonnees:="A1:F800", _
        NomColonne:="F", _
        Critere:=">=0,8"
End Sub

Sub FiltreElabore( _
        ByVal NomFeuille As String, _
        ByVal PlageDonnees As String, _
        ByVal NomColonne As String, _
        ByVal Critere As String, _
        Optional ByVal PlageCritere As String = "Z1:Z2")

    Dim ws As Worksheet
    Set ws = Worksheets(NomFeuille)

    ' ─── 1. Enlever tout filtre existant ───────────────────────────
    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0

    ' ─── 2. Créer la zone de critères ──────────────────────────────
    Dim c As Range
    Set c = ws.Range(PlageCritere)

    c.Cells(1, 1).Value = NomColonne       ' titre identique à la colonne
    c.Cells(2, 1).Value = Critere          ' ex : ">=0,8"

    ' ─── 3. Appliquer le filtre élaboré ────────────────────────────
    ws.Range(PlageDonnees).AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=c
End Sub

Merci