Discussion :

[go4music]

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.

[SfJ5Rpw8]

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

Code :

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

=Gauche(A1;4)="2010"

[go4music]

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

Code :

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

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...

[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.