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

✅ 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

>=0,8

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

Cliquez pour agrandir...

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

🎉 Résultat​

​

dysorthographie à dit:

bonjour,
pourquoi F800 et pas F:F

Cliquez pour agrandir...

gosselien à dit:

Bonjour,

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

P.

Cliquez pour agrandir...

dysorthographie à dit:

VB:

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

Cliquez pour agrandir...