Ajout d'un choix dans un filtre Résolu/Fermé

Question

Bonjour, 
Dans un filtre automatisé, est-il possible de remplacer la valeur des critères par un choix d'une liste déroulante ou par la valeur d'une cellule préalablement remplie pour chaque critère.
J'ai cherché en vain des exemples, mais sans doute mal cherché !
J'espère être clair, merci pour votre indulgence pour un débutant

Selection.AutoFilter
    ActiveSheet.Range("$A$3:$M$7000").AutoFilter Field:=1, _
         Criteria1:=">=01/01/2021", Operator:=xlAnd, _
         Criteria2:="<=08/01/2021"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=5, _
        Criteria1:="Charge"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=6, _
        Criteria1:="Electricité"
    Range("I7002").Select

Merci pour votre aide

Configuration: Windows / Chrome 87.0.4280.88

yg_be · Answer

bonjour, le code que tu montres fonctionne-t'il?
si oui, veux-tu remplacer, par exemple, "Electricité" par le contenu d'une cellule?
si oui, tu peux faire, par exemple:
Criteria1:= ActiveSheet.[z123]

Ramon1 · Answer

Merci pour ton aide,
Je suis débutant, je pourrais effectivement rentrer les critères dans 4 cellules différentes avant de lancer ma macro qui fonctionne bien .
Dans ta proposition si je comprend bien je dois remplacer :
Criteria1:="Electricité" par Criteria1:= ActiveSheet.[z123]
Désolé mais ActiveSheet.[z123] correspond à quelle cellule ?
En fait je souhaite pouvoir à chaque fois que je lance ma macro pouvoir changer les critères, soit en alimentant avant la macro les 4 cellules correspondantes aux 4 critères, ou mieux en incorporant 4 boîtes de dialogue avec liste déroulante permettant de sélectionner chaque critères...
J'espère être clair !

Ramon1 · Answer

Ci-joint ma macro intégrale :

Sub Tri_date_categ_souscateg()
'
' Tri_date_categ_souscateg Macro
    
    Sheets("Compta").Select
    ActiveSheet.Unprotect
    Columns("H:L").Select
    Selection.EntireColumn.Hidden = False
    Range("A3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$M$7000").AutoFilter Field:=1, _
         Criteria1:=">=01/01/2021", Operator:=xlAnd, _
         Criteria2:="<=08/01/2021"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=5, _
        Criteria1:="Charge"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=6, _
        Criteria1:="Electricité"
    Range("I7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("K7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("A7003").Select
    choix = MsgBox("Confirmer la suppression ?", 36, "Confirmation")
        'Si l'utilisateur a cliqué sur le bouton Oui
    If choix = vbYes Then
        'MsgBox "Vous avez cliqué sur Oui !", 64
    End If
    Selection.AutoFilter
    Range("I:I,K:K").Select
    Range("K1").Activate
    Selection.EntireColumn.Hidden = True
    Sheets("Compta").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A3").Select

End Sub

        EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

Ramon1 · Answer

Re Bonjour,
Je suis bien un débutant, donc je ne suis pas sûr de comprendre toutes tes remarques.
La macro que j'ai posté, ce n'est bien sûr pas moi qui l'ai écrite, je l'ai faite à l'aide de l'enregistreur et j'ai ajouté une MsgBox que j'ai trouvé dans d'autres exemples.
J'ai créé mon tableau avec 11 colonnes dont 4 se référent à une liste de choix.
Je souhaite donc si c'est possible lorsque je lance ma macro que chacun de mes 4 critères :

 - 2 critères dates du ... au ... sur ma 1ère colonne
 - 1 critères pour les catégories (charges ...)
 - 1 critère pour les sous-catégories ( électricité ...)

soit alimenté à partir d'une liste déroulante, correspondant à mes listes de choix, dans une boîte de dialogue.
Est-ce que j'ai répondu à ta question ?
PS : j'ai cherché pour la coloration syntaxique, mais non trouvé, j'ai vraiment bcp de choses à apprendre !!!

Ramon1 · Answer

Je viens de relancer la macro en modifiant les critères de dates et je constate que le résultat n'est pas celui escompté. Les >= et <= ne semblent pas pris en compte !
Par contre j'ai modifié les 2 autres critères en utilisant la valeur de 2 cellules (O6 et O7) comme sur la dernière version de ma macro, ça fonctionne

Ramon1 · Answer

Je viens de lancer le filtre identique à ma macro, les résultats sont corrects, mais si je passe par ma macro enregistrée avec les mêmes critères j'ai un résultat erroné pour les critères de dates !

Ramon1 · Answer

Je n'ai pas modifié pour les dates, je ne sais pas faire, j'ai modifié les 2 autres critères pour qu'il se réfère à une cellule.
Si j'exécute un filtre dans le tableau sur 2 dates du ... au ... avec l'enregistreur de macro, j'ai un résultat correct, mais si je lance la macro enregistrée donc avec les mêmes critères de date, je n'ai pas un bon résultat ?
Ci-joint mon fichier :   grosfi.ch/PEGeiYmKvGP
Voila ma macro enregistrée :

Sub Tri_date_categ_souscateg()
'
' Tri_date_categ_souscateg Macro
    
    Sheets("Compta").Select
    ActiveSheet.Unprotect
    Columns("H:L").Select
    Selection.EntireColumn.Hidden = False
    Range("A3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$M$7000").AutoFilter Field:=1, _
         Criteria1:=">=01/01/2021", Operator:=xlAnd, _
         Criteria2:="<=08/01/2021"
    'ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=5, _
        Criteria1:="Charge"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=5, _
        Criteria1:=Range("O6")
    'ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=6, _
        Criteria1:="Electricité"
    ActiveSheet.Range("$A$2:$M$7000").AutoFilter Field:=6, _
        Criteria1:=Range("O7")
    Range("I7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("K7002").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-6996]C:R[-1]C)"
    Range("A7003").Select
    choix = MsgBox("Confirmer la suppression ?", 36, "Confirmation")
        'Si l'utilisateur a cliqué sur le bouton Oui
    If choix = vbYes Then
        'MsgBox "Vous avez cliqué sur Oui !", 64
    End If
    Selection.AutoFilter
    Range("I:I,K:K").Select
    Range("K1").Activate
    Selection.EntireColumn.Hidden = True
    Sheets("Compta").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A3").Select

End Sub

Ajout d'un choix dans un filtre

7 réponses

Discussions similaires