critère calculé pour filtre élaboré

[Loumilie]

Bonsoir,
J'essaye d'automatiser l'utilisation du filtre élaboré avec VBA mais j'ai un problème.
J'essaye d'utiiser un critère calculé pour trier des dates du type jj/mm/aa par leur mois, mais je n'y arrive pas.Lien supprimé
:x

Voilà mon petit code de rien :

Sub Macro1()


Worksheets('Critéres').Select

[A5] = '=MOIS(Dépenses!A2) = 10'

Worksheets('Résultats').Select
Sheets('Dépenses').Columns('A:J').AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets('Critéres').Range('A4:B5'), CopyToRange:=Range('A:J'), Unique:=False


D'avance merci de votre aide, et bonnes fêtes de fin d'année.
End Sub

 

[CBernardT]

Bonsoir Loumilie et le Forum,

Je te propose un exemple de tri entre dates.

Cordialement

Bernard

 

[CBernardT]

Re,

Exemple pas pris ? [file name=FiltreEntreDates.zip size=10147]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FiltreEntreDates.zip[/file]

 

[Loumilie]

Bonjour bernard

Merci pour ta réponse et ton fichier exemple, mais je souhaite réaliser la fonction trie dans une macro pour pouvoir ensuite réaliser un projet plus important de trie et de calcul de donnée.

Joyeux noël

Loumilie

 

[Staple1600]

Bonjour

Peut être cela pourra t'aider

En nommant une cellule 'critere'
contenanant un chiffre de 1 à 12

Sub TRI()
With ActiveSheet.Range('A1').CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range('critere'), Unique:=False
Worksheets.Add after:=Sheets(Sheets.Count)
.Copy ActiveSheet.Range('A1')
End With
End Sub

Message édité par: staple1600, à: 24/12/2005 11:56

 

[Staple1600]

Rebonjour


Voilà un exemple

Sub TRI()
Application.ScreenUpdating = False
With Sheets("Resultats").Range("A1").CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("critere"), Unique:=False
.Copy Sheets("Depenses").Range("A1")
End With
'Sheets("Resultats").Activate
'ActiveSheet.ShowAllData
Sheets("Resultats").ShowAllData
End Sub

 

[loumilie]

Merci de ton aide, tout fonctionne maintenant tres bien

 

[loumilie]

Merci de ton aide, tout fonctionne maintenant tres bien