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

le___destin · 10 Avril 2022

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

cp4 · 11 Avril 2022

le___destin à dit:
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

VB:

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 · 11 Avril 2022

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

chris · 12 Avril 2022

Bonjour à tous

cp4 à dit:
j'ai testé ton code il ne renvoie pas le bon résultat

Ma phrase

chris à dit:
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 · 12 Avril 2022

chris à dit:
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 · 12 Avril 2022

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 · 12 Avril 2022

chris à dit:
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 · 12 Avril 2022

RE

cp4 à dit:
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 · 13 Avril 2022

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

VB:

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 · 13 Avril 2022

Bonjour

Dans mon cas, remplacer la formule en G4 par

VB:

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

le___destin · 13 Avril 2022

chris à dit:
Bonjour

Dans mon cas, remplacer la formule en G4 par

VB:

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

Bonjour merci mai ça marche plus

chris · 13 Avril 2022

Décidément

VB:

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

le___destin · 15 Avril 2022

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

chris · 15 Avril 2022

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 · 15 Avril 2022

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

VB:

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.

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

le___destin

XLDnaute Occasionnel

Pièces jointes

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

le___destin

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

le___destin

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

le___destin

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency