XL 2019 Extraire lignes suivant critère

[vincentbzh]

Bonjour,
Je cherche à extraire des informations d'un onglet vers un autre onglet suivant 1 critère.
Le problème c'est qu'il y a plusieurs infos à récupérer et en plus par date, donc il peut y avoir plusieurs lignes (jamais le même nombre).
Je joint un fichier pour être plus clair.
Merci d'avance pour vos retours.
Vincentbzh

 

[BOISGONTIER]

Bonjour,

Sub extrait()
    Sheets("Tableau").Range("A2:N10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("A1:D1"), Unique:=False
End Sub

Dans la feuille Récup

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then extrait
End Sub

Saisir le No en G2

On peut ajouter des colonnes dans Récup (Adapter la macro)

Boisgontier

 

[vincentbzh]

Merci Boisgontier,
Comment as tu fais afin que je l'adapte à mon tableau réel ?

 

[BOISGONTIER]

Fait avec Filtre avancé et enregistrement automatique de macro.
Il faut que les titres des colonnes soient les mêmes.

Le filtre élaboré

Boisgontier

 

[vincentbzh]

Ok,
je vais essayer de l'adapter.
Merci pour ta réponse.
Bonne journée
Vincentbzh

 

[pierrejean]

Bonjour vincentbzh

Un essai

 

[vincentbzh]

Merci pierrejean,
Je présume que tu as utilisé aussi le filtre avancé... ????
Je vais voir pour comprendre et l'adapter.
Bonne journée
Vincentbzh

 

[pierrejean]

Re

Non je n'ai pas utilisé le filtre avancé mais une petite Sub adaptée

 

[vincentbzh]

?????
C'est à dire....

 

[pierrejean]

Re
pour les 2 fichiers (Boisgontier et moi) : ouvrir l'onglet Developpeur et regarder les modules (de la feuille Récup et module1)

 

[vincentbzh]

Alors là.... pierrejean, les formules je comprends un peut mais ça.... ???
j'ai l'impression de comprendre et je vais essayer de l'adapter à mon fichier...
Grace à toi et boisgontier je vais découvrir et apprendre quelque chose aujourd'hui
Merci à toi

 

[mdo100]

Bonjour le forum,

@vincentbzh,

J'aime bien les versions VBA de Boisgontier et pierrejean j'en ais pris note pour un fichier perso.

Mais si tu préfère une version par formule voici une proposition dans le fichier joint:
Voir aussi dans le "Gestionnaire de noms"

Cordialement.

 

[BOISGONTIER]

Autre version avec fonction perso

-Sélectionner A225
=filtrebd(Tableau!A2:N1000;2;Récup!G2;{1;3;8;5})
-valider avec maj+ctrl+entrée

Cette fonnction perso permet de filtrer suivant un ou 2 critères et de trier le résultat.

FiltreBD(BD As Range, colCrit1, critere1, ColResult, Optional colcrit2, Optional critere2, Optional ColTri)

Pour trier par rubrique:
=filtrebd(Tableau!A2:N1000;2;Récup!G2;{1;3;8;5};;;4)

Boisgontier

 

[vincentbzh]

Merci pour toutes vos réponses
Bon week-end à vous