Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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.
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.
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.
- 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