Discussion :

[Lambersart59]

Bonjour

Je cherche la solution pour faire un filtre sur ma colonne B avec plusieurs critères.soit en "MACRO" soit en code Excel.

1er critère : Le mois et Année à choisir.
2éme critère : Texte 1
3éme critère : Texte 2
4éme critère : Texte 3



Pourriez-vous m'aider.
Vous remerciant par avance.

[patricktoulon]

re
c'est toujours pareil ,question récurente
se sont les vraies valeurs que l'on voit ou c'est un format de cellule ????????????????

[Lambersart59]

re
c'est toujours pareil ,question récurente
se sont les vraies valeurs que l'on voit ou c'est un format de cellule ????????????????

Bonjour

Merci de votre aide, ci joint fichier pour test.
Je voudrais faire un filtre sur le mois choisi, les sous lignes Année/Mois et le TOTAL.


Merci de votre retour.

[boisgontierjacques]

Bonjour,

Exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub FiltreMois()
    mois = [B2]: an = [B1]
    dateFin = mois & "/" & Day(DateSerial(an, mois + 1, 1) - 1) & "/" & an
    ActiveSheet.Range("$A$10:$C$10000").AutoFilter Field:=2, _
       Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)
End Sub
 
Sub SansFiltre()
    ActiveSheet.Range("$A$10:$C10000").AutoFilter Field:=2
End Sub

Sur votre fichier, vous pouvez filtrer un mois avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub FiltreMois()
    mois = 2: an = 2018
    moisLib = Format(DateSerial(an, mois, 1), "yyyy/mmmm")
    dateFin = mois & "/" & Day((DateSerial(an, mois + 1, 1) - 1)) & "/" & an
    ActiveSheet.Range("$A$19:$V$10000").AutoFilter Field:=2, Criteria1:=Array(moisLib), _
       Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)
End Sub

Boisgontier

[Lambersart59]

Bonjour et Merci de votre retour,

Pourriez-vous me dire comment faire les autres filtres, ok pour la date et mois, mais je dois aussi filtre : Année/Mois et Ligne Total .

Merci de votre aide et de votre indulgence.

[boisgontierjacques]

Je ne comprends pas

cf PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub FiltreMois()
    mois = 2: an = 2018
    moisLib = Format(DateSerial(an, mois, 1), "yyyy/mmmm")
    dateFin = mois & "/" & Day((DateSerial(an, mois + 1, 1) - 1)) & "/" & an
    ActiveSheet.Range("$A$19:$V$10000").AutoFilter Field:=2, Criteria1:=Array(moisLib, "Total"), _
       Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)
End Sub

Boisgontier

[Lambersart59]

Je ne comprends pas

cf PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub FiltreMois()
    mois = 2: an = 2018
    moisLib = Format(DateSerial(an, mois, 1), "yyyy/mmmm")
    dateFin = mois & "/" & Day((DateSerial(an, mois + 1, 1) - 1)) & "/" & an
    ActiveSheet.Range("$A$19:$V$10000").AutoFilter Field:=2, Criteria1:=Array(moisLib, "Total"), _
       Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)
End Sub

Boisgontier

Bonjour et merci de votre retour aussi rapide.

Super vous m'avez sortie de la "panade".

Merci encore.