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.http://www.excel-downloads.com/compo...icons/sick.png
: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

Bonsoir Loumilie et le Forum,

Je te propose un exemple de tri entre dates.

Cordialement

Bernard

Re,

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

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]

Autrement plus complet
Cette macro de F. SIGONNEAU
'http://frederic.sigonneau.free.fr/code/Calendriers/RechercheDeDates.txt
Sub TrouveDatesDUnMoisDonné()
Dim Mois, CellsTrouvées As Range
Dim i&, PlageDates As Range

Mois = InputBox('Mois des dates à chercher (1 à 12) :')
If Mois = '' Or Mois 12 Then Exit Sub
Set PlageDates = Range('A1:A' & Cells(Rows.Count, 'A').End(xlUp).Row)
i = PlageDates.Row
Do
If Month(PlageDates.Cells(i, 1).Value2) = Mois Then
If CellsTrouvées Is Nothing Then
Set CellsTrouvées = PlageDates.Cells(i, 1)
Else: Set CellsTrouvées = Union(CellsTrouvées, PlageDates.Cells(i, 1))
End If
End If
i = i + 1
Loop While i < PlageDates.Row + PlageDates.Rows.Count

If CellsTrouvees Is Nothing Then
MsgBox 'Aucune date en ' & Format(Mois & '/00', 'mmmm')
Else
CellsTrouvées.EntireRow.Select
End If

End Sub

[Staple1600]

Rebonjour


Voilà un exemple


en espérant t'avoir aidé.

Joyeuses fêtes à tous [file name=filtre_20051224140624.zip size=13164]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/filtre_20051224140624.zip[/file]

Merci de ton aide, tout fonctionne maintenant tres bien

Merci de ton aide, tout fonctionne maintenant tres bien