• Initiateur de la discussion Initiateur de la discussion candido57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Re

@candido57
Cela fonctionne comme le montre ma copie d'écran.
Que tu n'arrives pas à ce que cela fonctionne sur ton PC, c'est autre chose.
Mais on a le temps, puisque c'est le pont de l'Ascension 😉

Que contiennent les cellules L7 et M7 dans ton classeur ?

PS: Commence par strictement suivre le mode opératoire décrit dans le message#10
Ensuite on verra pour la suite
 
Re

je crains que tu ais mal interprété le message#10
Il fallait comprendre ceci
formuleCapture.PNG

C'est à dire
En L7, on a la formule
=F2
Et en M7, on a la formule
=H2

Et non pas
L7 = F2
M7 = H2
 

Pièces jointes

  • Capture d’écran 2023-05-19 à 19.34.18.png
    Capture d’écran 2023-05-19 à 19.34.18.png
    16.3 KB · Affichages: 6
Re

J'ai modifié pour ajouter le critère Semaine
Code:
Sub Extraction_Staple_TER()
Dim CRITERES As Range, RECOPIE As Range
'ici on définit la plage des critères du filtre
Set CRITERES = Sheets("Extraction").Range("L6:N7")
'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
Mais tu vas vite voir le problème

NB: J'ai décalé la plage de critères
FiltreCapture.PNG
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
292
Réponses
6
Affichages
298
Retour