XL 2016 problème de filtre

[jean marc1234]

bonjour tous le monde,
je revient vers vous pour un problème de filtrage de données.
J'ai une page dans mon classeur qui devrais me servir à filtre des données d'un tableau se trouvant sur une autre feuille du même classeur.
Mon problème est que mon filtre ne marche pas.
J'ai vérifier pas de ligne vide dans mon tableau source, écriture exact des champs de critères.
Le pire c'est que je l'ai déjà fait sur un autre classeur et que cela fonctionne très bien.
Je comprend pas pourquoi, donc si quelqu'un pouvait me donner un ptit coup de main.
Merci d'avance.

 

[Staple1600]

Re

@jean marc1234
Oui j'avais noté que c'était ton adresse mail*
(Mais tu as bien lu ce que dit DavidXLD (webmaster du site) en cliquant sur le lien que j'avais mis dans le message#11 ?)

Donc l'idéal, autant que possible si toutes les données sont fictives dans les fichiers joint sur le forum, alors plus de casse-tête pour David.

PS: *: Et cela ne dérange pas qu'elle se promène sur le net ?
Tu ne crains pas les spams ?

EDITION: Bonjour Youky(BJ)

 

[youky(BJ)]

Salut bien,
Dans l'onglet Source1!E2 remplace le zéro par un O
BR B1V HOV tu as mis BR B1V H0V
Attention à tout cela car une macro ne fait pas de cadeau.
Bon dimanche

 

[jean marc1234]

Salut bien,
Dans l'onglet Source1!E2 remplace le zéro par un O
BR B1V HOV tu as mis BR B1V H0V
Attention à tout cela car une macro ne fait pas de cadeau.
Bon dimanche

Re bonjour à toi,
j'ai rectifier tous cela et j'ai même repris ma liste et repasser tous les enregistrements pour vérifier.
et j'ai également fait un copier collé pour etre sur de la même écriture.
Mais toujours Même problème.

 

[Staple1600]

Re

Une autre possibilité pour filtrer (en utilisant le filtre élaboré)
(apparemment test OK)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig&
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C7:E7")) Is Nothing Then Exit Sub
If Not IsDate([C7]) And Not IsDate([D7]) Then Exit Sub
If [E7] = "" Then Exit Sub
[B11:E1000].ClearContents
Dim p As Range, crit As Range
Set p = Range("filtre!$B$10:$E$10")
Set crit = Feuil4.Range("source2!$F$1:$H$2")
Sheets("source2").Range("TableauSource[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=crit, CopyToRange:=p, Unique:=False
End Sub

 

[jean marc1234]

Re

Une autre possibilité pour filtrer (en utilisant le filtre élaboré)
(apparemment test OK)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig&
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C7:E7")) Is Nothing Then Exit Sub
If Not IsDate([C7]) And Not IsDate([D7]) Then Exit Sub
If [E7] = "" Then Exit Sub
[B11:E1000].ClearContents
Dim p As Range, crit As Range
Set p = Range("filtre!$B$10:$E$10")
Set crit = Feuil4.Range("source2!$F$1:$H$2")
Sheets("source2").Range("TableauSource[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=crit, CopyToRange:=p, Unique:=False
End Sub

re bonjour,
merci de te pencher sur mon classeur.
Mais sa fonctionne pas non plus. Je commence à penser que mon ordit a un problème la.
Maintenant sa me ressort la liste complète.
J'ai essayer en mettent le code dans l'onglé filtre et visualise le code.
Et fait un autre essai en créant un nouveau module.
Haaaaaaaaaaa!!! doit pas etre doué dans ce domaine de trie.
ci-joint mon classeur avec aucune données perso normalement.

 

[Staple1600]

Re

@jean marc1234
Excuses-moi, j'ai oublie de préciser un élément essentiel.
Il faut mettre les critères du filtre sur la feuille source2
(voir ci-dessous)

 

[youky(BJ)]

Alors dit nous bien ce que tu souhaite dans les critères...
Il y a un truc qui me chagrine la date de validité. il suffirait plutôt de contrôler la date d'expiration.
Les critères demandent plus d'explications d'ou tes PB.
Rassure toi ton PC est bon.
Ce fichier fait ce que je lui demande
Bruno

EDIT bonjour Staple désolé pas rafraichis

 

[jean marc1234]

Alors dit nous bien ce que tu souhaite dans les critères...
Il y a un truc qui me chagrine la date de validité. il suffirait plutôt de contrôler la date d'expiration.
Les critères demandent plus d'explications d'ou tes PB.
Rassure toi ton PC est bon.
Ce fichier fait ce que je lui demande
Bruno

EDIT bonjour Staple désolé pas rafraichis

Merci à tous les deux.
je que je souhaite c'est que sa me ressort uniquement les personnes pour qui l'habilitation tombe à échéance dans l'année sélectionnée avec la possibilité de choisir également le niveau.
je vient de réessayer le classeur formation 1 (1). Si je rajoute des données sa fonction pas comme je le souhaite.
Non seulement sur l'année mais également sur l'habilitation. et sa m'alimente toujours ma zone de liste.
J'aurais d'autres feuilles comme celle-ci à faire suivant les métiers.
Désolé.

 

[jean marc1234]

Re

@jean marc1234
Excuses-moi, j'ai oublie de préciser un élément essentiel.
Il faut mettre les critères du filtre sur la feuille source2
(voir ci-dessous)
Regarde la pièce jointe 1015303

Re, pas de problème, suis le premier à oublier des choses.
Alors j'ai donc essayer ce que tu m'a indiquer. Ben devine ,sa fonctionne pas.
Jai une petite question subsidiaire, qu 'elle est la différence entre installer un code dans un module et un onglet de classeur (visualiser le code)

 

[Staple1600]

Re

@jean marc1234
Pour ce qui me concerne
Avant d'avant plus loin tu optes pour quelle option?
Tu restes sur le code proposé par Youk(BJ) ou la piste Filtre élaboré t'intéresse?

NB:
J'ai retesté sur mon PC cela fonctionne, le filtrage se fait bien.
Tu as fait les ajouts (cf message#21) pour faire un second test?)

 

[youky(BJ)]

Le fichier que tu viens de joindre n'ai pas celui du poste #22
Tu accumules les boulettes, attention au soleil...
Bruno

 

[jean marc1234]

Re

@jean marc1234
Pour ce qui me concerne
Avant d'avant plus loin tu optes pour quelle option?
Tu restes sur le code proposé par Youk(BJ) ou la piste Filtre élaboré t'intéresse?

NB:
J'ai retesté sur mon PC cela fonctionne, le filtrage se fait bien.
Tu as fait les ajouts (cf message#21) pour faire un second test?)

@jean marc1234
Pour ce qui me concerne
Avant d'avant plus loin tu optes pour quelle option?
Tu restes sur le code proposé par Youk(BJ) ou la piste Filtre élaboré t'intéresse?

NB:
J'ai retesté sur mon PC cela fonctionne, le filtrage se fait bien.
Tu as fait les ajouts (cf message#21) pour faire un second test?)

les deux m'intéresse, je pense qu'il peuvent avoir des utilités différentes.

Le fichier que tu viens de joindre n'ai pas celui du poste #22
Tu accumules les boulettes, attention au soleil...
Bruno

Désolé bruno, je me mélange un peux à force d'essayer différentes choses
La devrait etre le bon.

 

[jean marc1234]

Re

@jean marc1234
Pour ce qui me concerne
Avant d'avant plus loin tu optes pour quelle option?
Tu restes sur le code proposé par Youk(BJ) ou la piste Filtre élaboré t'intéresse?

NB:
J'ai retesté sur mon PC cela fonctionne, le filtrage se fait bien.
Tu as fait les ajouts (cf message#21) pour faire un second test?)

Re, oui j'ai refait des ajouts.
J'essayer normalement et en copiant des données. Mais pareil.
Alors suis sure que c'est ma faute , ais pourquoi; je cherche pourtant.
Et pour le choix, vous avez tous les deux des idées différentes, et je ne veut pas vous faire perdre votre temps non plus.
Mais les deux m'intéresse.

 

[Staple1600]

Re,

@jean marc1234
Tu as bien mis ces formules sur la feuille source2 ?
En F2: =">="&filtre!C7
En G2: ="<="&filtre!D7
En H2: =filtre!E7

PS: En F1:H1, on doit strictement avoir les mêmes intitulés que sur la feuille filtre

(revoir la copie d'écran du message#21)

 

[Lone-wolf]

Re à tous

@youky(BJ) : il y a toujours un disfonctionnement. Pourquoi si l'année de départ est 2017, il y a bidule ines (année 2016) - BR B1V HOV qui s'inscrit dans la liste??

Edit: il faut ajouter cette ligne après end with : If Cells(11, 3) <= [C7] Then Rows(11).EntireRow.Delete