Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Extraction

candido57

XLDnaute Occasionnel
Bonjour,
J'ai récupéré un fichier avec une macro extraction, j'ai modifier par rapport à ceux que je voulais, ça fonctionne, mais je n'arrive pas à extraire lorsque je mets une seul condition feuille "Extraction" cellule F2.
Merci pour votre aide.
 

Pièces jointes

  • Produit complémentaire 1.xls
    471.5 KB · Affichages: 4

Staple1600

XLDnaute Barbatruc
Re

On peut aussi utiliser un critère formulé, avec cette formule (*)
=ET(Base!G3=Extraction!B2;Base!C3=Extraction!F2;Base!H3=Extraction!H2)
ou celle-ci
=OU(Base!G3=Extraction!B2;Base!C3=Extraction!F2;Base!H3=Extraction!H2)

Mais le problème reste plus au moins le même.
Car les critères du filtre s'excluent mutuellement
Exemple
Si tu choisis N°19, tu ne pourras jamais choisir 12 / S22

Personnellement, plus j'y pense, et pour un confort d'utilisation, plus j'oublierai le VBA
Pour opter pour les filtres (pilotés manuellement) ou mieux utiliser un TCD
Exemple de TCD

Tout se pilote à la souris et pas besoin de maitriser le langage VBA
De plus, on n'altère pas la base de données.

(*) Pour tester le critère formulé, c'est cette version de la macro
Code:
Sub Extraction_Staple_QUATRO()
Dim CRITERES As Range, RECOPIE As Range
'ici on définit la plage des critères du filtre
Set CRITERES = Sheets("Extraction").Range("L6:L7")
'ici on définit où la recopie du filtre se fera
Set RECOPIE = Sheets("Extraction").Range("A6:J6")
'ici on applique le filtre avancé
Sheets("Base").Range("A2:J40").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=CRITERES, _
    CopyToRange:=RECOPIE, Unique:=False
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

@candido57
TCD= Tableau Croisé Dynamique
Voir ici par exemple
ou à la maison
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…