XL 2016 la fonction FILTRE que je n'ai pas !

  • Initiateur de la discussion Initiateur de la discussion LEPATOCHE
  • Date de début Date de début

LEPATOCHE

XLDnaute Occasionnel
Bonsoir a tous dans excel je n'ai pas la fonction FILTRE puis je l'avoir et comment ont fait pour l'avoir merci de votre aide ! la marche a suivre exactement dans la mesure du possible moi j'ai excel 2016 que j'ai acheter !
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
D'après ce que j'en ai vu, elle n'est guère compliquée à écrire en VBA. Mais il n'accepte pas que je l'appelle FILTRE. Alors j'ai enlevé le 'E' à la fin :
VB:
Function FILTR(ByVal TDonn, ByVal TCond)
   Dim LE&, LS&, C&
   If TypeOf TDonn Is Range Then TDonn = TDonn.Value
   If TypeOf TCond Is Range Then TCond = TCond.Value
   For LE = 1 To UBound(TDonn, 1)
      If TCond(LE, 1) Then
         LS = LS + 1
         For C = 1 To UBound(TDonn, 2)
            TDonn(LS, C) = TDonn(LE, C)
            Next C: End If: Next LE
   Do While LS < UBound(TDonn, 1)
      LS = LS + 1
      For C = 1 To UBound(TDonn, 2)
         TDonn(LS, C) = ""
         Next C: Loop
   FILTR = TDonn
   End Function
À valider en matriciel, en principe …
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
La Function n'a rien à faire dans le module objet Feuil1 (Feuil1)
Mettez la dans le module standard Module1.
Cela fait, En D1:E10 validé par Ctrl+Maj+Entrée :
Code:
=FILTR($A$1:$B$10;$A$1:$A$10=$C$2)
Affiche les lignes A1:B10 contenant en colonne A la valeur spécifiée en C2
 

Dranreb

XLDnaute Barbatruc
Refaites la manip que j'ai indiquée au poste #8
Il y bien eu un module inséré s'appelant Module1, mais il contient des Sub qui n'ont pas de sens, et c'est dans le module Feuil1 que vous avez mis le code de ma Function FILTR. Double-cliquez sur un nom de module dans l'explorateur de projet pour le sélectionner.
 

Discussions similaires

Réponses
5
Affichages
606
Réponses
3
Affichages
964
Réponses
8
Affichages
403
Réponses
16
Affichages
769
Réponses
18
Affichages
679
Réponses
16
Affichages
1 K
  • Question Question
Microsoft 365 Listbox
Réponses
3
Affichages
444
  • Question Question
Microsoft 365 Filtres avec multi ligne
Réponses
5
Affichages
277

Membres actuellement en ligne

Statistiques des forums

Discussions
315 283
Messages
2 118 013
Membres
113 408
dernier inscrit
lausablk