XL 2019 Extraire lignes suivant critère

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Mars 2020

• #2

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: 10 Mars 2020

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #3

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Mars 2020

• #4

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

Le filtre élaboré

Boisgontier

 

Dernière édition: 10 Mars 2020

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2020

• #6

Bonjour vincentbzh

Un essai

 

Pièces jointes

• Tableau retour.xlsm

  52.5 KB · Affichages: 8

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #7

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2020

• #8

Re

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

 

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #9

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mars 2020

• #10

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

 

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #11

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

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 10 Mars 2020

• #12

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

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Mars 2020

• #13

Autre version avec fonction perso

-Sélectionner A2😀25
=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: 10 Mars 2020

Vote positif 0 Vote négatif

V

vincentbzh

XLDnaute Occasionnel

• 10 Mars 2020

• #14

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

 

Vote positif 0 Vote négatif