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

CB60

XLDnaute Barbatruc

• 15 Mai 2021

• #2

Bonsoir
Normalement (j'ai Excel 2016 aussi), dans le bandeau en haut tu as un onglet données, en cliquant dessus des sous menus s'ouvre, et tu peux avoir " trier et filtrer"

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 15 Mai 2021

• #3

non ce n'ai pas cela que je veus c'est la formule FILTRE , CB 60

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 15 Mai 2021

• #4

Desolé, je ne connais pas, mais dans les fonctions il y a
" FILTRE.XML", mais jamais utilisé!
bonne recherche

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 15 Mai 2021

• #5

non ce n'ai pas cela

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Mai 2021

• #6

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: 15 Mai 2021

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 16 Mai 2021

• #7

Bonjour Dranreb je fais comment pour le copier dans excel ce que vous m'avais envoyer hier ? la marche a suivre merci beaucoup !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2021

• #8

Bonjour.
Alt+F11 pour aller dans VBE, clic droit dans l'explorateur de projets, Insersion… , Module, collez ça dans la fenêtre de code.

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 16 Mai 2021

• #9

ca ne marche pas !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2021

• #10

Joignez le classeur où vous avez essayé, que je puisse vous dire pourquoi.

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 16 Mai 2021

• #11

je joint un fichier pour DRANREB

 

Pièces jointes

• FIL.xlsm

  19.2 KB · Affichages: 157

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2021

• #12

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 16 Mai 2021

• #13

je ni comprend rien en vba la marche a suivre pas a pas je suis perdu merci de votre aide !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2021

• #14

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.

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 16 Mai 2021

• #15

et bien encore chou blanc decidement ce n'ai pas gagner

 

Vote positif 0 Vote négatif