Discussion :

[apt]

Bonjour à tous,

J'ai trois cas de figure pour extraire une durée avec JourDépart et JourFin, limité par le 01/01/2012 comme borne inférieure et par le 31/12/2012 comme borne supérieure :

1) Un étendu qui commence le mois passé et prend fin le mois en cours.

Exp : du 25/11/2012 au 24/12/2012

Alors : JourDépart = 01/01/2012, JourFin = 24/12/2012

Durée = 24 j dans le mois de décembre.

2) Un étendu qui commence le mois en cours et prend fin le mois même.

Exp : du 02/12/2012 au 17/12/2012

Alors : JourDépart = 02/12/2012, JourFin = 17/12/2012

Durée = 16 j dans le mois de décembre.

3) Un étendu qui commence le mois en cours et prend fin le mois suivant.

Exp : du 28/12/2012 au 17/12/2012

Alors : JourDépart = 28/12/2012, JourFin = 31/12/2012
Durée = 4 j dans le mois de décembre.

En résumé, je ne définirais les extrémités de ma durée, depuis les étendus de dates, qu'avec les jours communs du mois de décembre et ceux des jours des étendus (les intersections des jours).

J’aimerais ajouter une condition dans le critère du champ 3 pour m’extraire les dates en colonne C qui ont le mois égal ou inférieur au mois en cours (<=12), et dans le critère du champ 4 pour m’extraire les dates en colonne D qui ont le mois égal ou supérieur au mois en cours (>=12).

Dans la colonne C, j’aurais des dates avec le mois de novembre (??/11/2012) et décembre (??/12/2012).

Dans la colonne D, j’aurais des dates avec le mois de décembre (??/12/2012) et janvier 2013 (??/01/2013).

Mais avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Filtre()
    Dim NbLg As Long
    Dim Plg As Range
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
 
    NbLg = Range("A2").End(xlDown).Row
 
    Set Plg = Range("A1:E" & NbLg)
    With Plg
        .AutoFilter field:=3, Criteria1:=">=" & CSng(CDate("01/12/2012"))
        .AutoFilter field:=4, Criteria1:="<=" & CSng(CDate("31/12/2012"))
    End With
End Sub

Le filtre est toujours nul

Alors, comment résoudre cette problématique ?

Merci d’avance.

[Philippe Tulliez]

Bonjour,
A la lecture du code donc sans avoir testé, il semblerait qu'il manque la fonction AND

[apt]

Bonjour Philippe,

Le AND pour les deux colonnes ?

et on ajoutera quoi comme condition après ?

Bonsoir,

En PJ, un exemple avec le résultat voulu.

Le filtre automatique est appliqué en deux fois sur deux colonnes C ensuite D, pour permettre d'extraire les dates de chaque colonne est de remplir un deuxième tableau qui me servira dans un autre traitement.

Seulement j’ai du mal à avoir mon 2ème tableau !

J’espère que l’exemple sera plus explicite

Merci de votre aide.

[Philippe Tulliez]

Bonjour,
Je te suggère l'utilisation des filtres avancés appelé aussi élaborés.
La zone Data contenant au moins les deux colonnes dates y compris leurs étiquettes nommée db et commencant en A1
En E1 la date (1er jour du mois)
La zone des critères (exemple H1:H2 et nommé dbCriteria
En H1, étiquette Formule, en H2, la formule ci-dessous

Code :

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

=ET(($B4>=E$1)*($A4<=FIN.MOIS(E$1;0)) )

Le code VBA à placer dans l'objet de la feuille où se trouve la zone à filtrer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Function Filter(lst As Range, criteria As Range)
 lst.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteria ', Unique:=False
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$1" Then
   Debug.Print Filter(Range("db"), Range("dbCriteria"))
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$E$1" And ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

[apt]

Bonjour Philippe,

En essayant d'adapter ton code, sur mes données, je n'ai pas réussi à avoir le troisième tableau en bas dans l'exemple en pièce jointe ?

Merci.

[Philippe Tulliez]

Bonsoir,
Dans la zone de critères je vois déjà un problème dans la formule se trouvant en C2

Code :

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

=ET(($B2>=G$1)*($A2<=FIN.MOIS(G$1;0)) )

La zone data couvre la plage A2:F10. Les étiquettes Date Début & Fin sont en $C$2:$D$2 et la première ligne de données est en ligne 3 donc la formule devrait faire référence à C2 et D2
La formule pour la date devrait être

Code :

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

=ET($D3>=H$1;$C3<=FIN.MOIS(H$1;0))

De plus dans le code tu vérifies si la cellule E1 est modifiée comme je l'avais initialement prévue mais comme tu as déplacé la liste de choix à G2 il faut changer l'adresse Target aussi.
Comme il y a deux choix, Date et Type je préfère pour ma part une autre approche.
Dès que j'aurai l'occasion je mettrai un autre classeur avec ma suggestion.
En résumé quand il y a une formule comme critère, la formule doit renvoyer VRAI ou FAUX et doit faire référence à la première ligne data de la liste des données, ici ligne 3 (Etiquettes en ligne 2).