XL 2016 filtrer sous condition colonne date trimestriellement en vba

Excellerateur · 15 Septembre 2022

Bonjour chers membres!

je cherche à automatiser le filtrage de la colonne date dans mon code et que cela ne soit pas en dur.

je m'explique:
Au début de ma macro je définis le choix du trimestre que je voudrais prendre en compte (Q1, Q2, Q3 ou Q4) comme défini en début de macro.

Je voudrais qu'une fois qu'on a choisi le trimestre, que le tri correspondant se fasse automatiquement sur le trimestre associé (voir code ci-dessous).

VB:

NomPro = "Gates"
Annee = Sheets("Boutons").Range("B16").Value            'ici j'ai associé la date à une cellule particulière afin qu'elle puisse être modifiée au besoin par l'utilisateur'
Trimestre = "Sheets("Boutons").Range("B16").Value"  'pareil ici j'ai défini une cellule dans laquelle on saisi le trimestre (Q2 par exemple)''


Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Regroupement_" & Trimestre
    Sheets("Bill").Select
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$L$" & DerniereLigne).AutoFilter Field:=3, Criteria1:= _
        ">=04/01/" & Annee, Operator:=xlAnd, Criteria2:="<=06/30/" & Annee

En gros je crois que dans une première étape il y aura une condition "si" qui devra pointer le trimestre sélectionné, puis en fonction de la sélection , faire les filtres.

J'espère que ma description est assez claire.
Comme j'aime bien le préciser, je ne connais pas le vba, je suis en plein apprentissage dans le tas.

Merci d'avance à tous les contributeurs.

Compte Supprimé 979 · 15 Septembre 2022

Bonjour Excellerateur

Tu peux utiliser un truc du style

VB:

Sub Test()
  Dim MoisDeb As Integer, MoisFin As Integer, jFin As Integer
  Dim NomPro As String, Annee As Integer, sTrim As String
  NomPro = "Gates"
  Annee = Sheets("Boutons").Range("B16").Value       'ici j'ai associé la date à une cellule particulière afin qu'elle puisse être modifiée au besoin par l'utilisateur'
  sTrim = Sheets("Boutons").Range("B17").Value   ' pareil ici j'ai défini une cellule dans laquelle on saisi le trimestre (Q2 par exemple)''
  Select Case sTrim
    Case "Q1": MoisDeb = 1: MoisFin = 3: jFin = 31
    Case "Q2": MoisDeb = 4: MoisFin = 6: jFin = 30
    Case "Q3": MoisDeb = 7: MoisFin = 9: jFin = 30
    Case "Q4": MoisDeb = 10: MoisFin = 12: jFin = 31...

Compte Supprimé 979 · 15 Septembre 2022

Bonjour Excellerateur

Tu peux utiliser un truc du style

VB:

Sub Test()
  Dim MoisDeb As Integer, MoisFin As Integer, jFin As Integer
  Dim NomPro As String, Annee As Integer, sTrim As String
  NomPro = "Gates"
  Annee = Sheets("Boutons").Range("B16").Value       'ici j'ai associé la date à une cellule particulière afin qu'elle puisse être modifiée au besoin par l'utilisateur'
  sTrim = Sheets("Boutons").Range("B17").Value   ' pareil ici j'ai défini une cellule dans laquelle on saisi le trimestre (Q2 par exemple)''
  Select Case sTrim
    Case "Q1": MoisDeb = 1: MoisFin = 3: jFin = 31
    Case "Q2": MoisDeb = 4: MoisFin = 6: jFin = 30
    Case "Q3": MoisDeb = 7: MoisFin = 9: jFin = 30
    Case "Q4": MoisDeb = 10: MoisFin = 12: jFin = 31
  End Select
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Regroupement_" & trimestre
    Sheets("Bill").Select
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$L$" & DerniereLigne).AutoFilter Field:=3, Criteria1:= _
        ">=" & MoisDeb & "/01" & "/" & Annee, Operator:=xlAnd, Criteria2:="<=" & MoisFin & "/" & jFin & "/" & Annee
End Sub

A+

Excellerateur · 15 Septembre 2022

Merci infiniment @BrunoM45

J'ai réussi à adapter ton code en une seule fois et ça marche.

grand merci à toi

Excellerateur · 20 Septembre 2022

BrunoM45 à dit:

Bonjour Excellerateur

Tu peux utiliser un truc du style

VB:

Sub Test()
  Dim MoisDeb As Integer, MoisFin As Integer, jFin As Integer
  Dim NomPro As String, Annee As Integer, sTrim As String
  NomPro = "Gates"
  Annee = Sheets("Boutons").Range("B16").Value       'ici j'ai associé la date à une cellule particulière afin qu'elle puisse être modifiée au besoin par l'utilisateur'
  sTrim = Sheets("Boutons").Range("B17").Value   ' pareil ici j'ai défini une cellule dans laquelle on saisi le trimestre (Q2 par exemple)''
  Select Case sTrim
    Case "Q1": MoisDeb = 1: MoisFin = 3: jFin = 31
    Case "Q2": MoisDeb = 4: MoisFin = 6: jFin = 30
    Case "Q3": MoisDeb = 7: MoisFin = 9: jFin = 30
    Case "Q4": MoisDeb = 10: MoisFin = 12: jFin = 31
  End Select
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Regroupement_" & trimestre
    Sheets("Bill").Select
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$L$" & DerniereLigne).AutoFilter Field:=3, Criteria1:= _
        ">=" & MoisDeb & "/01" & "/" & Annee, Operator:=xlAnd, Criteria2:="<=" & MoisFin & "/" & jFin & "/" & Annee
End Sub

A+

Bonjour cher fil, bonjour forum,

@BrunoM45 je crois qu je me suis précipité dans mes conclusions.
lorsque j'essaye de faire le filtre ça me fait une sélection vide.

Voici en image le code que j'ai adapté sur mon fichier

Je ne sais pas si il y une erreur en fait

Excellerateur · 21 Septembre 2022

BrunoM45 à dit:

Bonjour Excellerateur

Tu peux utiliser un truc du style

VB:

Sub Test()
  Dim MoisDeb As Integer, MoisFin As Integer, jFin As Integer
  Dim NomPro As String, Annee As Integer, sTrim As String
  NomPro = "Gates"
  Annee = Sheets("Boutons").Range("B16").Value       'ici j'ai associé la date à une cellule particulière afin qu'elle puisse être modifiée au besoin par l'utilisateur'
  sTrim = Sheets("Boutons").Range("B17").Value   ' pareil ici j'ai défini une cellule dans laquelle on saisi le trimestre (Q2 par exemple)''
  Select Case sTrim
    Case "Q1": MoisDeb = 1: MoisFin = 3: jFin = 31
    Case "Q2": MoisDeb = 4: MoisFin = 6: jFin = 30
    Case "Q3": MoisDeb = 7: MoisFin = 9: jFin = 30
    Case "Q4": MoisDeb = 10: MoisFin = 12: jFin = 31
  End Select
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Regroupement_" & trimestre
    Sheets("Bill").Select
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$L$" & DerniereLigne).AutoFilter Field:=3, Criteria1:= _
        ">=" & MoisDeb & "/01" & "/" & Annee, Operator:=xlAnd, Criteria2:="<=" & MoisFin & "/" & jFin & "/" & Annee
End Sub

A+

Bonjour cher fil, bonjour @BrunoM45,

En effet @BrunoM45 (sans prétention aucune), j'ai comme l'impression que le code ne prend pas en compte la sélection du trimestre tel que défini en amont (Q1, Q2, Q3, Q4).

Merci d'avance

Compte Supprimé 979 · 21 Septembre 2022

Salut Excellerateur

Sans fichier... comment dire

Excellerateur · 21 Septembre 2022

BrunoM45 à dit:
Salut Excellerateur

Sans fichier... comment dire

Salut,

En effet je suis en stage dans une entreprise et je ne peux pas transmettre les fichiers originaux (si non fin de stage et autres risques), c'est pourquoi j'ai fais une réplique du fichier mais qui n'aura pas le code correspondant.

Je me réexplique:
J'ai deux tableaux avec les mêmes intitulés de colonnes (Onglets "Bill" et "Gates Q2") que je souhaite associer dans un seul (onglet "consolide").
Le souci c'est que mon tableau "bill" lui il est sur un an alors que le tableau "Gates Q2" lui il est bien trimestriel à chaque fois (dans cet exemple il est sur le trimestre 2).

Je voudrais donc pouvoir automatiser le filtrage de "Bill" sur le trimestre correspondant (bien entendu celui qui correspondra à "Gates Q2") avant de fusionner les deux dans un seul tableaux dans "Consolide" (Confère fichier).

Je ne sais pas si c'est compris cette fois.

merci d'avance encore une fois

Compte Supprimé 979 · 22 Septembre 2022

Re,

Je suis navré, mais chez moi cela fonctionne n'avez-vous pas un Excel version US !?

Pour finaliser le code par la copie des données, voici

VB:

Sub Test()
  Dim dLig As Long
  Dim MoisDeb As Integer, MoisFin As Integer, jFin As Integer
  Dim NomPro As String, Annee As Integer, sTrim As String
  NomPro = "Gates"
  ' Récupérer l'année indiquée par l'utilisateur
  Annee = Sheets("Boutons").Range("B16").Value
  ' Récupérer le trimestre indiqué par l'utilisateur
  sTrim = Sheets("Boutons").Range("B17").Value
  ' Selon le trimestre choisi, définir les variables
  Select Case sTrim
    Case "Q1": MoisDeb = 1: MoisFin = 3: jFin = 31
    Case "Q2": MoisDeb = 4: MoisFin = 6: jFin = 30
    Case "Q3": MoisDeb = 7: MoisFin = 9: jFin = 30
    Case "Q4": MoisDeb = 10: MoisFin = 12: jFin = 31
  End Select
  Worksheets.Add After:=ActiveSheet
  ActiveSheet.Name = "Regroupement_" & sTrim
  With Sheets("Bill")
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("$A$1:$L$" & dLig).AutoFilter Field:=3, Criteria1:= _
      ">=" & MoisDeb & "/01" & "/" & Annee, Operator:=xlAnd, Criteria2:="<=" & MoisFin & "/" & jFin & "/" & Annee
    .Range("A1").CurrentRegion.Copy
  End With
  Sheets("Regroupement_" & sTrim).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
End Sub

Pensez à utiliser l'enregistreur de macros

Voici le fichier avec le résultat via la macro, vous ne pourrez que constater que cela fonctionne (en tout cas chez moi)

XL 2016 filtrer sous condition colonne date trimestriellement en vba

Excellerateur

XLDnaute Occasionnel

Compte Supprimé 979

Compte Supprimé 979

Guest

Excellerateur

XLDnaute Occasionnel

Excellerateur

XLDnaute Occasionnel

Pièces jointes

Excellerateur

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Excellerateur

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Pièces jointes

Discussions similaires