Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
- Initiateur de la discussion dst17
- Date de début
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
job75
XLDnaute Barbatruc
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+
Voyez la fonction FiltreVBA sur ce fil :
https://excel-downloads.com/threads/equivalent-a-filtre-sous-excel-2016.20074695/#post-20570762
A+
goube
XLDnaute Accro
Bonsoir à tous,
Le e à la fin de Filtr devrait résoudre le problème.
Cordialement.
Le e à la fin de Filtr devrait résoudre le problème.
Cordialement.
job75
XLDnaute Barbatruc
Bonsoir goube,
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.
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
XLDnaute Accro
Bonsoir job75,
Au temps pour moi, j'ai testé avec un excel 2021, d'où la confusion.
Cordialement.
Au temps pour moi, j'ai testé avec un excel 2021, d'où la confusion.
Cordialement.
job75
XLDnaute Barbatruc
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+
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
XLDnaute Barbatruc
J'en profite pour simplifier ma fonction FiltreVBA :
Application.Caller et la variable resu() étaient inutiles.
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 Functiondu 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
XLDnaute Barbatruc
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.
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.
effectivement je n'avais pas bien compris. Cela marche, encore merci.
Bonjour pouvez vous me dire comment agrandir la zone matrice H3:L9 ?
job75
XLDnaute Barbatruc
Bonjour Ludo85@, bienvenue sur XLD,
Puis sélectionnez la nouvelle plage et entrez la formule en la validant matriciellement.
A+
Effacez d'abord toute la plage H3:L9.
Puis sélectionnez la nouvelle plage et entrez la formule en la validant matriciellement.
A+
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Discussions similaires
- Question
- Question
- Question
- Résolu(e)