fonction filtre

dst17 · 16 Mars 2023

Bonjour,

je cherche à utiliser la fonction filtre sous excel 2019. Suite à de précédentes discussions sur ce sujet, j'ai suivi les conseils
donnés mais malgré tout quelque chose ne fonctionne pas.

dst17 · 16 Mars 2023

je joins le fichier concerné

job75 · 16 Mars 2023

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+

goube · 16 Mars 2023

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

job75 · 16 Mars 2023

Bonsoir goube,

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

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.

goube · 17 Mars 2023

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

job75 · 17 Mars 2023

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+

job75 · 17 Mars 2023

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.

dst17 · 17 Mars 2023

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.

merci beaucoup pour votre aide

dst17 · 17 Mars 2023

dst17 à dit:
merci beaucoup pour votre aide

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.

job75 · 17 Mars 2023

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.

dst17 · 20 Mars 2023

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

Ludo85@ · 2 Septembre 2024

Bonjour pouvez vous me dire comment agrandir la zone matrice H3:L9 ?

job75 · 2 Septembre 2024

Bonjour Ludo85@, bienvenue sur XLD,

Ludo85@ à dit:
Bonjour pouvez vous me dire comment agrandir la zone matrice H3:L9 ?

Effacez d'abord toute la plage H3:L9.

Puis sélectionnez la nouvelle plage et entrez la formule en la validant matriciellement.

A+

Ludo85@ · 2 Septembre 2024

Merci

fonction filtre

dst17

XLDnaute Nouveau

dst17

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

goube

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

goube

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

dst17

XLDnaute Nouveau

dst17

XLDnaute Nouveau

job75

XLDnaute Barbatruc

dst17

XLDnaute Nouveau

Ludo85@

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Ludo85@

XLDnaute Nouveau

Discussions similaires