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.
Et dans la colonne validité de source 2, ou est-ce que tu vois une date avec 2020???
Prend ce fichier, j'ai modifié la source de la liste qui est source1. Si tu as d'autres niveaux à ajouter c'est dans cette feuille qu'il faudra le faire.
@jean marc1234
Voir la copie d'écran
(j'ai masqué des colonnes jute pour que l'image soit moins grande) Regarde la pièce jointe 1015319
Donc si tu mets bien les formules et les intitulés (et ce dans les bonnes cellules)
Que tu mettes le code de macro dans le code de la feuille filtre
( je la remets ci-dessous)
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim p As Range, crit As Range
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
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
Alors cela doit fonctionner
PS: Evidemment c'est à tester tel quel sur le même fichier que j'ai utilisé
(à savoir comme je l'ai déjà précisé le fichier du post de youky(BJ) => message#4 )
@jean marc1234 : oui mais c'est gentil. Et alors, ça marche chez toi?[
pas de problème
oui c'est bon ton fichier fonctionne
merci beaucoup
la je vais essayer aussi ce que ma donner staple