XL 2013 Extraction

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #16

Est ce que ça fonctionne avec un seul critère, si je saisie en F2 >> 19

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #17

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

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #18

L7 = F2
M7 = H2

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #19

Envoie mon fichier modifier comme ça je pourrais mieux voir mon erreur

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #20

Re

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #21

Re

@candido57
Je ne poste plus aucun fichier Excel sur le forum
Ma philosophie c'est d'encourager le demandeur à mettre les mains dans le cambouis.
C'est plus gratifiant et formateur.

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #22

Staple1600 à dit:

Re

je crains que tu ais mal interprété le message#10
Il fallait comprendre ceci
Regarde la pièce jointe 1170492
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

Cliquez pour agrandir...

C'est ce que j'ai fait, dans la cellule L7 j'ai =F2 et dans la cellule M7 j'ai fait = H2

 

Pièces jointes

• Capture d’écran 2023-05-19 à 19.34.18.png

  16.3 KB · Affichages: 6

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #23

Ok j'ai réussi à le faire marcher. Mais si j'ai un seul critère, par exemple en F2 >> je saisie 19 pour extraire tous les ligne 19 de feuille base tout confondu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #24

Re

@candido57
Tu utilises le code du message#14 ?

Si non, fais le test avec celui-ci

PS: Tu as bien =F2 et =H2 sur la feuille Extraction ?
Et tu fais tes tests sur le fichier exemple de cette discussion ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #25

Re

@candido57
Pour changer de critères, tu te sers des listes déroulantes déjà présentes
(en F2 et H2)
et tu ne touches pas aux cellules L7 et M7.

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #26

oui c'est ce que je fais, mais si en H2 je ne veux rien mettre pour avoir les saisis du critère par exemple 19.
Et il faut aussi que je rajoute le critère semaine en B2. C'est une extraction de 3 critères

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #27

En N7 , j'ai mis =B2

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #28

candido57 à dit:

En N7 , j'ai mis =B2

Cliquez pour agrandir...

Il faudrais que je puis choisir un seul critère, les 2 ou bien les 3 à la fois

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2023

• #29

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

 

Vote positif 0 Vote négatif

C

candido57

XLDnaute Occasionnel

• 19 Mai 2023

• #30

Lorsque je choisie les critère 19 et Huile, il me manque la ligne 34.
Et lorsque je choisi une seul critère , ça ne fonctionne pas

 

Vote positif 0 Vote négatif