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.

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

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

[SfJ5Rpw8]

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

[go4music]

=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 :

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

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