Discussion :

[chouchou60]

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

[gFZT82]

Bonjour,

Si personne ne te propose de solution, c’est peut-être pour te laisser le temps de chercher par toi-même. Comme tu ne proposes aucun début de code pour montrer que tu as fait cet effort, je vais le faire à ta place .

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
Option Explicit
Sub Test()
Dim DerLig As Long, AjoutLigWs As Long
Dim T As Double
Dim Cel As Range
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    With Worksheets("Données")
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        For Each Cel In .Range("A2:A" & DerLig)
            T = TimeValue(Cel) * 24
            Select Case T
            Case 5 To 13
                Set Ws = Worksheets("5h-13h")
            Case 13 To 21
                Set Ws = Worksheets("13h-21h")
            Case 21 To 24, 0 To 5
                Set Ws = Worksheets("21h-5h")
            End Select
            AjoutLigWs = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row + 1
            Cel.Resize(1, 3).Copy Ws.Range("A" & AjoutLigWs)
            Set Ws = Nothing
        Next Cel
    End With
    Application.ScreenUpdating = True
End Sub

Cordialement.