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

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

Statistiques des forums

Discussions
314 745
Messages
2 112 401
Membres
111 535
dernier inscrit
MJS1