Problème de filtre

Bonjour à tous,

Sous Excel 2007, j'ai des données enregistrées sur 1 mois. J'aimerais filtrer ces données et les enregistrer dans des feuilles nommées 5h-13h, 13h-21h, 21h-5h selon les critères différents, soit, toutes les données comprises entre 5h et 13h pour la feuille 5h-13h, les données comprises entre 13h et 21h pour la feuille 13h-21h, etc...

Voir ficher joint.

Merci de vos réponses

JC

Bonjour,

La ventilation peut se faire avec un filtre élaboré. Si tu ne connais pas ces filtres je t'encourage à faire des recherche sur le sujet, ils sont puissants.

Il faut :

une base

une ou plusieurs zones de critère(s)

une zone de destination

Ci-joint un fichier ou j'ai automatisé le filtre pour la ventilation dans les différents onglets

Formidable, merci ouisansdoute

Bonjour à tous;

ouisansdoute,

Attention, tous les critères doivent faire référence à "Données!A2"

ci-joint, mêmes formules de critères écrites différemment

Sub Filtre()
    '--- 5h-13h ---
    Range("k2") = "=and(a2-INT(a2)>=5/24,a2-INT(a2)<13/24)" 'critères
    Range("a1:c" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("k1:k2"), CopyToRange:=Sheets("5h-13h").Range("a1:c1"), Unique:=False

    '--- 13h-21h ---
    Range("k2") = "=and(a2-INT(a2)>=13/24,a2-INT(a2)<21/24)" 'critères
    Range("a1:c" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("k1:k2"), CopyToRange:=Sheets("13h-21h").Range("a1:c1"), Unique:=False

    '--- 21h-5h ---
    Range("k2") = "=or(a2-INT(a2)>=21/24,a2-INT(a2)<5/24)" 'critères
    Range("a1:c" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("k1:k2"), CopyToRange:=Sheets("21h-5h").Range("a1:c1"), Unique:=False
    Range("k2").ClearContents
End Sub

Amicalement

Claude