fonction filtre

D

dst17

XLDnaute Nouveau

• 16 Mars 2023

• #2

je joins le fichier concerné

 

Pièces jointes

• Test filtr.xlsm

  16.9 KB · Affichages: 15

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mars 2023

• #3

Bonsoir dst17, bienvenue sur XLD,

Voyez la fonction FiltreVBA sur ce fil :

https://excel-downloads.com/threads/equivalent-a-filtre-sous-excel-2016.20074695/#post-20570762

A+

 

Vote positif 0 Vote négatif

goube

XLDnaute Impliqué

• 16 Mars 2023

• #4

Bonsoir à tous,
Le e à la fin de Filtr devrait résoudre le problème.
Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mars 2023

• #5

Bonsoir goube,

goube à dit:

Le e à la fin de Filtr devrait résoudre le problème.

Cliquez pour agrandir...

Pas du tout, la fonction personnalisée que notre ami propose c'est FILTR.

Car la fonction Excel FILTRE n'existe pas sur Excel 2019.

Pour compléter mon post #3 voyez le fichier joint avec ma fonction FiltreVBA.

 

Pièces jointes

• Test filtr.xlsm

  18 KB · Affichages: 13

Vote positif 0 Vote négatif

goube

XLDnaute Impliqué

• 17 Mars 2023

• #6

Bonsoir job75,
Au temps pour moi, j'ai testé avec un excel 2021, d'où la confusion.
Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2023

• #7

Bonjour dst17, le forum,

En fait votre fonction FILTR fonctionne mais elle n'utilise que 2 arguments.

Donc dans la feuille de calcul supprimez ;"" et utilisez =filtr(B3:F16;F3:F16=H2)

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2023

• #8

J'en profite pour simplifier ma fonction FiltreVBA :

Code:

Function FiltreVBA(tableau, critere(), defaut)
Dim ub1&, ub2%, i&, n&, j%
tableau = tableau
ub1 = UBound(tableau, 1)
ub2 = UBound(tableau, 2)
For i = 1 To ub1
    If critere(i, 1) Then
        n = n + 1
        For j = 1 To ub2
            tableau(n, j) = tableau(i, j)
        Next j
    End If
Next i
For i = n + 1 To ub1
    For j = 1 To ub2
        tableau(i, j) = defaut
Next j, i
FiltreVBA = tableau 'matrice
End Function

Application.Caller et la variable resu() étaient inutiles.

 

Pièces jointes

• FiltreVBA.xlsm

  17.7 KB · Affichages: 13

Vote positif 0 Vote négatif

D

dst17

XLDnaute Nouveau

• 17 Mars 2023

• #9

job75 à dit:

J'en profite pour simplifier ma fonction FiltreVBA :

Code:

Function FiltreVBA(tableau, critere(), defaut)
Dim ub1&, ub2%, i&, n&, j%
tableau = tableau
ub1 = UBound(tableau, 1)
ub2 = UBound(tableau, 2)
For i = 1 To ub1
    If critere(i, 1) Then
        n = n + 1
        For j = 1 To ub2
            tableau(n, j) = tableau(i, j)
        Next j
    End If
Next i
For i = n + 1 To ub1
    For j = 1 To ub2
        tableau(i, j) = defaut
Next j, i
FiltreVBA = tableau 'matrice
End Function

Application.Caller et la variable resu() étaient inutiles.

Cliquez pour agrandir...

merci beaucoup pour votre aide

 

Vote positif 0 Vote négatif

D

dst17

XLDnaute Nouveau

• 17 Mars 2023

• #10

dst17 à dit:

merci beaucoup pour votre aide

Cliquez pour agrandir...

du coup, j'ai une autre interrogation. Dans le tableau , les cellules d'une même ligne comportent des éléments différents alors que la formule est la même pour chaque cellule. J'ai essayé de reproduire ce schéma dans un autre fichier mais les cellules ont toutes la même valeur.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2023

• #11

Vous n'avez peut-être pas compris comment la fonction doit être appliquée.

Il faut sélectionner toute la plage jaune H3:L9, entrer la formule dans la barre de formule puis valider en bloc matriciellement par Ctrl+Maj+Entrée.

 

Vote positif 0 Vote négatif

D

dst17

XLDnaute Nouveau

• 20 Mars 2023

• #12

effectivement je n'avais pas bien compris. Cela marche, encore merci.

 

Vote positif 0 Vote négatif