Formule pour remplacer filtre

Bonjour,

Je travaille actuellement en utilisant des filtres + copier - coller, mais ça devient lourd... c'est pourquoi j'aimerais récupérer le résultat de mon filtre grâce à une formule, mais je crois qu'il me faudra une matricielle, et là j'ai du mal...

Pour tous ceux à qui les fêtes laissent un peu de temps, les données de base (un tout petit extrait, le tableau réel est d'au moins 300 x 300), et le résultat souhaité sont ICI.

Merci d'avance !

Bonjour V_Elbie et à tous,

En restant sur la solution filtre :

https://www.excel-pratique.com/~files/doc/ateliers_Vero1.xls

Bonne journée

Claude.

Merci Claude... Et quelle rapidité !

Il s'agit d'un filtre élaboré il me semble... j'avais pensé à cette solution, mais je l'avais laissé de côté pour des raisons pratiques. En effet, dans ce cas le résultat du filtre doit être obligatoirement sur la même feuille, or pour diverses raisons j'aurais aimé qu'il soit sur une autre feuille.

Mon tableau est extensible, aussi bien à l'horizontale qu'à la verticale. Mes zones de validations se feront avec la fonction Decaler... (ça c'est prévu, je sais faire...) c'est pour ça que j'aurais aimé que le résultat soit "à part". D'autant plus qu'il faut prévoir la mise en page des impressions qui en découlent.

Bon, si je ne trouve pas mieux, je peux toujours m'en sortir avec des zones nommées, mais je suis toujours preneur si quelqu'un trouve une formule.

Donc pas Résolu encore pour l'instant...

Amicalement,

Bonjour

Regarde ce fichier que tu dois pouvoir adapter facilement,( realisé pour un autre forum)

https://www.excel-pratique.com/~files/doc/Filtre_tableau1.xls

Re-,

un autre essai, avec extraction sur la feuille 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("B2:D" & [B65000].End(xlUp).Row).Interior.ColorIndex = xlNone
    Sheets("Feuil1").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:A2"), CopyToRange:=Range("B1:D1"), Unique:=False
End If
End Sub

la zone base définie ainsi :

=DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A);NBVAL(Feuil1!$1:$1))

https://www.excel-pratique.com/~files/doc/vlb_v1.xls

Félix tu es un génie !

Un filtre traité par VBA, c'était LA solution...

Merci pour le code et le fichier qui va avec, qui va me permettre de comprendre tout ça et de le reproduire sur ma feuille de calcul originale.

Il ne me reste plus qu'à souhaiter de ne pas avoir de problème à exécuter les macros au boulot (sécurité, réseau, et tout et tout...). Rien que pour ça, si ça tente quelqu'un, une petite formule...

Il n'y a plus qu'à attendre le 5 janvier voir si ça marche. En attendant je marque le fil en Résolu.

Amicalement,

Bj V Elbie

Je te joins le fichier avec un essai de formules.

Il me semble qu'elles marchent , mais a vérifier tout de même avec des données plus nombreuses .

https://www.excel-pratique.com/~files/doc/Copie_de_ateliers.xls

A te relire

Bj a tous

Petit correctif au fichier joint précédemment sur celui-ci :

https://www.excel-pratique.com/~files/doc/clZsWCopie_de_ateliers.xls

La formule matricielle de la colonne A sur la feuille 2 ne devait pas couvrir pas assez de cellules .

Je ne suis pas arrivé à incorporer cette derniere dans les formules matricielles des colonnes D;E;F. Si quelqu'un pouvait me donner la solution ?

Merci

A vous relire

Merci haonv pour ta formule, elle fonctionne très bien sur l'exemple fourni.

Je vais devoir me pencher sérieusement dessus pour la reproduire sur mon fichier original, (cela au cas où les macros ne fonctionneraient pas au boulot, je n'ai pas eu le temps de vérifier aujourd'hui) je connais bien toutes les fonctions que tu as utilisées, c'est juste l'imbrication qui a l'air un peu costaud...

Amicalement,