fonction filtre

[dst17]

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]

je joins le fichier concerné

 

[job75]

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]

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

 

[job75]

Bonsoir goube,

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]

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

 

[job75]

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]

J'en profite pour simplifier ma fonction FiltreVBA :

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]

J'en profite pour simplifier ma fonction FiltreVBA :

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]

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]

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]

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

 

[Ludo85@]

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

 

[job75]

Bonjour Ludo85@, bienvenue sur XLD,

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@]

Merci