• Initiateur de la discussion Initiateur de la discussion dst17
  • Date de début 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 !

dst17

XLDnaute Nouveau
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.
 
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

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
 
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.
 
- 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

Discussions similaires

Retour