Probleme application du filtre avancé sur les dates en format texte

Version imprimable

16/06/2013, 19h36
go4music

Probleme application du filtre avancé sur les dates en format texte

Bonjour,

J'ai reussi non sans mal à créer un code pour filtrer ma base de donnée en fonction du nom de mon patient.

Je cherche maintenant à séparer les données en fonction de l'année sachant que la collone reprenant cette donnée respecte la structure:

2013-01-31 en format texte

je me dit que le plus simple serait d'appliquer un filtre qui recherche 2012,2013, ect dans la cellule au lieu d'essayer de convertir le format imposé par ma base de donnée.
16/06/2013, 19h49
SfJ5Rpw8

Ben tu utilise la même méthode filtre avancé ... avec comme critère si ta colonne A est la date :

Code:

=Gauche(A1;4)="2010"

C'est exactement ce que j'ai fait :'(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub infPatient()
 
Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Cells.ClearContents
Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("2012").Cells.ClearContents
Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("2013").Cells.ClearContents
 
Workbooks.Open Filename:="Macintosh HD:Users:Olivier:Documents:PROFESSIONNELS:BASE DE DONNEE BENTO:EXPORTATION:SPIROMETRIE.xlsx"
 
Workbooks("SPIROMETRIE.xlsx").Worksheets("Sheet1").Cells.Copy _
Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Range("A:S")
 
Workbooks("SPIROMETRIE.xlsx").Close False
 
Dim wkSource As Workbook
 
'filtre Nom
 
Set wkSource = Workbooks("DOSSIER-SPIROMETRIE.xlsm")
 With wkSource.Sheets("DATA")
        .Range("$A:$S").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=wkSource.Sheets("CRIT").Range("A1:A2"), _
                Copytorange:=wkSource.Sheets("2012").Range("A1"), _
                Unique:=False
 End With
 
'Filtre date
 
Set wkSource = Workbooks("DOSSIER-SPIROMETRIE.xlsm")
 With wkSource.Sheets("2012")
        .Range("$A:$S").AdvancedFilter _
                Action:=xlFilterInPlace, _
                CriteriaRange:=wkSource.Sheets("CRIT").Range("B1:B2"), _
                Unique:=False
 End With
 
 
Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Cells.ClearContents
 
End Sub

Normalement selon le Tuto de Mr Tulliez, je peux rentrer toute mes condition sur la même ligne pour obtenir un filtre multiple, mais le format des dates semble problématique. J'obtiens un tableau vide...

16/06/2013, 20h21
Philippe Tulliez

Bonjour,
Si les dates sont vraiment en format texte la proposition de Bbil devrait fonctionner sauf que j'imagine que l'on fait certainement référence à A2 puisque la première ligne doit contenir les étiquettes de colonnes.
Si elles sont au format numérique mais avec un format personnalisé AAAA-MM-JJ alors la formule doit être =ANNEE(A2)=2010.
Attention que l'étiquette de la zone de critère doit être d'une orthographe différente de celle de l'étiquette de colonne dans le cas des critères calculés.
16/06/2013, 20h57
SfJ5Rpw8

Tu est sur que ta colonne date est bien au format texte ?? ( essai de changer le format d'affichage sous excel ...)

qu'as tu mis dans tes colonnes critères ...
16/06/2013, 21h05
go4music

Oui il est au format texte, j'ai deja essayé de le changer manuellement...rien ne se passe...pas moyen de le formater en JJ/MM/AAAA par exemple...
16/06/2013, 21h52
SfJ5Rpw8

Citation:

Envoyé par bbil

qu'as tu mis dans tes colonnes critères ...

=ANNEE(R2)=2012

J'ai trouvé une solution qui fonctionne en manuel et j'ai donc essayé de la coder

j'applique une formule ANNEE sur mes dates et je filtre en fonction de ces résultat. J'ai encodé une macro pour ce faire en voulant que la colonne T prennent ces valeur: T1= ANNEE ; T2= YEAR(R2) ; T3= YEAR(R3) ect ect
Code:

1 2 3 4 5 6 7 8 9 Dim LastRow As Long LastRow = Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row + 1 With Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA") .Range("T1").Value = "Annee" .Range("T2").FormulaR1C1 = "= year(RC18)" Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & LastRow), Type:=xlFillDefault End With
Le plus souvent (pas tout le temps lol) le calcul s'arrete en T3....pourquoi ???