XL 2013 Extraction

[candido57]

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.

 

[candido57]

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

 

[Staple1600]

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

 

[candido57]

L7 = F2
M7 = H2

 

[candido57]

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

 

[Staple1600]

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

 

[Staple1600]

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.

 

[candido57]

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

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

 

[candido57]

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

 

[Staple1600]

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 ?

 

[Staple1600]

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.

 

[candido57]

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

 

[candido57]

En N7 , j'ai mis =B2

 

[candido57]

En N7 , j'ai mis =B2

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

 

[Staple1600]

Re

J'ai modifié pour ajouter le critère Semaine

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

 

[candido57]

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