Extraction et mise en page

Bonjour

dans le doc juin j’aimerai faire une extraction d’ 1 semaine (choix dans USF) de données issues de la feuille 1 vers une mise en page spécifique en feuille 2.

L’extraction se fait sur 6 jours (du lundi au samedi).

Un exemple du résultat souhaité se trouve en feuille 3 pour une extraction de la semaine 23.

Si aucune donnée sur un jour, laisser 2 ligne vides sur le dit-jour manquant. Sinon inscrire autant de données trouvées dans feuille 1 pour chaque jour de la semaine.

Le nombre de données à récolter pour chaque jour est variable (entre 4 et 15 en général actuellement mais sait-on jamais, il peut y en avoir plus à l’avenir)

Merci d’avance et bon courage

Bonjour,

Une façon très simple d'extraire les données est d'utiliser les filtres avancés

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:B2")) Is Nothing Then Exit Sub
    On Error Resume Next
    Sheets("BD").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A4:B5"), CopyToRange:=Range("A7:B7"), Unique:=False
End Sub

Reste ensuite la mise en forme ...

Bonjour

Oui, le gros du problème c'est bien la mise en forme