Discussion :

[NCBLA]

Bonjour,

J'ai une base de données en format Excel dans un onglet qui contient 3 colonnes: ID = idenfiant, DEBUT = Date de début de la période observée, FIN = Date de fin de la période observée

J'aimerai généré dans un autre onglet, ces données sous forme de 2 colonnes: ID = identifiant, DATE = chaque date contenue dans l'intervalle mentionné ci-dessus.
C'est-à-dire que chaque date contenue dans l'intervalle sera affichée sur une ligne à côté de l'identifiant. Ensuite une fois que toutes les dates pour le premier idenfiant sont affichées, l'intervalle de dates pour le deuxième idenifiant s'affiche et ainsi de suite...

J'imagine qu'une macro est nécessaire pour ce faire mais je n'ai aucune connaissances par rapport à ça.

Pourriez-vous m'aider?

Merci d'avance pour votre réponse!

NCBLA

[78chris]

Bonjour

Si c'est one shot tu peux utiliser un filtre avancé https://philippetulliez.developpez.c...dvancedfilter/

Si l'extraction n'est que pour afficher mais doit être dynamique, tu peux utiliser PowerQuery intégré à 2016

Si l'extraction est à modifier : automatiser le filtre avancé

[NCBLA]

Salut,
Merci pour ta réponse.

Ce processus est à faire une fois, donc un filtre avancé pourrait être une option. Seulement je ne comprends pas comment un filtre avancé pourra me lister les dates comprises dans l'intervalle?

Mes critères de filtre seront les identifiants et les intervalles des dates mais comment créer la plage de données ?

Merci

NCBLA

[78chris]

RE

Oui j'avais mal lu donc PowerQuery ou VBA

Dans le module VBA de la feuille concernée, code basé sur une source sous forme de tableau structuré (adapter sinon) et nom Feuil2 à adapter

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
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Sub liste()
Dim Mini As Date, Maxi As Date, D As Date
Dim lig As Long, Id As Long
 
Mini = WorksheetFunction.Min(ListObjects(1).DataBodyRange.Columns(2), ListObjects(1).DataBodyRange.Columns(3))
Maxi = WorksheetFunction.Max(ListObjects(1).DataBodyRange.Columns(2), ListObjects(1).DataBodyRange.Columns(3))
lig = 1
With Worksheets("Feuil2")
    .Range("A:B").ClearContents
    .Range("A1") = "ID"
    .Range("B1") = "Date"
 
    For D = Mini To Maxi
        For Id = 1 To ListObjects(1).DataBodyRange.Rows.Count
            If D >= ListObjects(1).DataBodyRange.Columns(2).Cells(Id, 1) And D <= ListObjects(1).DataBodyRange.Columns(3).Cells(Id, 1) Then
                .Range("A1").Offset(lig, 0) = ListObjects(1).DataBodyRange.Columns(1).Cells(Id, 1)
                .Range("A1").Offset(lig, 1) = D
                lig = lig + 1
            End If
        Next Id
    Next D
 
    'Tri
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("A:A") _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=Range("B:B") _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                .SetRange Range("A:B")
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .Apply
        End With
        .Columns("B:B").NumberFormat = "m/d/yyyy"
    End With
End Sub