XL 2019 Extraire lignes suivant critère

vincentbzh

XLDnaute Occasionnel
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
 

Pièces jointes

  • Tableau retour.xlsx
    42 KB · Affichages: 9

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

VB:
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

VB:
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
 

Pièces jointes

  • Copie de Tableau retour.xlsm
    49.2 KB · Affichages: 7
Dernière édition:

vincentbzh

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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.
 

Pièces jointes

  • vincentbzh.xlsx
    45.2 KB · Affichages: 3

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Autre version avec fonction perso

-Sélectionner A2:D25
=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
 

Pièces jointes

  • Copie de Tableau retour2.xlsm
    53.7 KB · Affichages: 8
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal