XL 2019 filtre avancée avec plusieurs critère "avec macro"

[le___destin]

bonsoir,
j'aimerai faire un filtre d'un tableau suivant plusieurs critère
merci de m'aider a réaliser ce travail

 

[cp4]

bonsoir
le problème que le filtre entre deux date ne marche plus

Il faut respecter le nom des entêtes c'est pour cela que ça ne fonctionne pas.
Il mettre date pour les 2 cellules (A3 et B3) au lieu de jusqu'à date et à partir date.
Je t'ai envoyé ton fichier en retour, il faut faire un effort de compréhension.
Il faut insérer une ligne en ligne5, ensuite tu fais un clic-droit sur l'onglet "statistique" et colle le code ci-dessous

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A5")) Is Nothing Then
        Target.Offset(-1, 0) = ">=" & Target.Value2
    End If
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        Target.Offset(-1, 0) = "<=" & Target.Value2
    End If
End Sub

Les dates doivent être saisies dans les cellules A5 et B5 (en A4 e B4 il y aura une formule)

A+

 

[cp4]

ton fichier en retour. J'ai corrigé la macro du post 16, il fallait mettre Target.Value2

 

[chris]

Bonjour à tous

j'ai testé ton code il ne renvoie pas le bon résultat

Ma phrase

J'ai ajouté les champs nécessaires sous le bouton (à replacer)

aurait du vous aiguiller : avec cette inversion des colonnes j'ai mal précisé la zone de critères

Il suffit de remplacer A3:E4 par C3:G4

 

[cp4]

Bonjour à tous


Ma phrase

aurait du vous aiguiller : avec cette inversion des colonnes j'ai mal précisé la zone de critères

Il suffit de remplacer A3:E4 par C3:G4

Bonjour Chris,
Je t'avoue que je n'ai pas compris, la zone de critères est bien A3:E4. Pourrais-tu être plus clair? Merci.

 

[chris]

RE

Non comme je l'ai dit j'ai ajouté 2 formules en F et G, à masquer par le bouton, pour remplacer A et B non utilisables en l'état

Si tu testes mon code, il fonctionne

 

[cp4]

RE

Non comme je l'ai dit j'ai ajouté 2 formules en F et G, à masquer par le bouton, pour remplacer A et B non utilisables en l'état

Si tu testes mon code, il fonctionne

Re, merci de m'avoir orienté.
Ce qui m'a induit en erreur, c'est le '#NOM?', je croyais les formules y étaient dans le fichier initial de @le___destin.
Merci c'est plus clair.

 

[chris]

RE

Ce qui m'a induit en erreur, c'est le '#NOM

Chaque fois qu'on met des formules dans les filtres avances, Excel ne comprend pas que c'est l'en-tête de colonnes et affiche cela. On s'y habitue car le filtre lui comprend et agit. C'est le principal...

Merci d'avoir signalé l'erreur dans mon code, au fait

 

[le___destin]

bonsoir les amis
avant tout, je vous remercie beaucoup pour vos aide
le code marche bien

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A5")) Is Nothing Then
    Sheets("statistique").Unprotect Password:="Destin0931"
        Target.Offset(-1, 0) = ">=" & Target.Value2
    End If
    If Not Intersect(Target, Range("B5")) Is Nothing Then
    Sheets("statistique").Unprotect Password:="Destin0931"
        Target.Offset(-1, 0) = "<=" & Target.Value2
        Sheets("statistique").Protect Password:="Destin0931"
    End If
End Sub

juste une petite chose, je veux que si j'efface les date du cellules A5 et B5 les cellule A4 et B4 sois vide qui ce n'est pas le cas
et merci

 

[chris]

Bonjour

Dans mon cas, remplacer la formule en G4 par

=@Date<=SI($B$4="";9^9)

 

[le___destin]

Bonjour

Dans mon cas, remplacer la formule en G4 par

=@Date<=SI($B$4="";9^9)

Bonjour merci mai ça marche plus

 

[chris]

Décidément

=@Date<=SI($B$4="";9^9;$B$4)

 

[le___destin]

bonsoir,
merci pour ton coup de main mai toujours même problème

 

[chris]

Bonjour

Ma réponse concernant la formule à modifier correspond à la solution que j'ai donnée au #18 et au fichier que j'y ai joint, pas à un mélange avec celle de cp4.

Elle ne nécessite pas de code au changement du choix des dates car ce sont les formules associées au filtre qui agissent.

 

[cp4]

Bonjour Chris, @le___destin ,

Je suis absolument d'accord avec Chris. D'ailleurs, je pense que tu ne sais pas vraiment ce que tu veux.
Mon dernier code à tester

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A5")) Is Nothing Then
        If Target.Value <> "" Then
            Target.Offset(-1, 0) = ">=" & Target.Value2
        Else
            Target.Offset(-1, 0) = ""
        End If
    End If
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        If Target.Value <> "" Then
            Target.Offset(-1, 0) = "<=" & Target.Value2
        Else
            Target.Offset(-1, 0) = ""
        End If
    End If
End Sub

Bonne journée.