Filtre données

Salut,

je te le dis tout de suite, comme ça pas de surprise : je suis pas un pro des macros. je m'y suis mis il y a peu. mais j'arrive à me débrouiller pour ce que je fais. ^^

pour ta demande, ce que je te conseille c'est d'enregistrer une macro avec les manips que tu fais pour trier les données puis les copier dans une autre feuille.
tu vas voir le code que ça t'a généré et tu le testes, tu le modifies, ... pour qu'il te convienne.

pour enregistrer une macro (sous Excel 2007), dans la partie "Développeur" du ruban, sélectionnes "Enregistrer une macro".
tu fais les manips qui te permettent de trier les données puis de les copier sur une autre feuille. une fois terminé, tu arrêtes la macro en cliquant sur le carré bleu en bas à gauche.
pour voir le code, tu fais Alt+F11. il se trouvera dans Module1 de VBAProject.

si tu as un problème ou des questions, n'hésite pas. je verrais si je peux t'aider. ^^

re,

essaie ce code :
Range("$A$1:$I$452").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$452").AutoFilter Field:=3, Criteria1:="=EMTN", _
Operator:=xlOr, Criteria2:="=Oblig"
Selection.Copy
Sheets("Synthèse").Select
Range("A5").Select
ActiveSheet.Paste

bonjour merci du conseil j'ai fait comme tu as dit
puis je l'ai testé directement mais j'ai une erreur du type "x 400"
puis plus rien ne se passe ..
de ce qui est d'aranger le code je laisse ça au pro ..
peu tu m'expliquer pourquoi mon code ne fonctionne pas

Sub Macro8()
'
' Macro8 Macro
' Macro enregistrée le 12/05/2010 par H008369
'
' Touche de raccourci du clavier: Ctrl+l
'
    Range("A1:I452").Select
    ActiveWindow.SmallScroll Down:=-6
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="=EMTN", Operator:=xlOr, _
        Criteria2:="=Oblig"
    Selection.Copy
    Sheets("Synthèse").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

merci

j'ai oublié une precision ce n'est pas un tri que je fais mais un filtre

ça marche
mais voila comment je l'ai fait aussi
:

Sub macro()
Worksheets("Nlle Dispo").Range("A1:I451").Copy Worksheets("Synthèse").Range("A5")
    Range("A5:I455").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="=Oblig", Operator:=xlOr, _
        Criteria2:="=EMTN"
    ActiveWindow.SmallScroll Down:=216
End sub

merci encore