Maccro évènementiel avec création automatique de tableaux

Bonjour le forum,

Je souhaite avoir un code capable de sélectionner les lignes d'un tableau et de les coller à la suite en modifiant la date inscrite dans le tableau.

A noter que ce code doit s'enclancher chaque Jeudis à l'ouverture du fichier.

Ci,joint un exemple qui je l'espère sera assez explicite.

D'avance merci pour votre aide

bonjour

à quoi ça sert?

il suffit de faire la saisie dans la zone des données, dans l'ordre de saisie (la date servira pour faire des tris chronologiques)

on saisit les nouvelles données SOUS les anciennes, toujours

méthode prévue par Microsoft

sans VBA, sans formule

toujours à jour

ne pas laisser de lignes totalement vides

les synthèses (additions, sommes, moyennes... ) se font dans de simmples TCD et des graphiques, avec tris et filtres faciles

conseil : mettre sous forme de Liste

amitiés

Bonjour,

Une proposition à étudier.

La procédure s'exécutera chaque jeudi.

Pour tester, lancer manuellement la procédure CreateTables

Cdlt.

Private Sub Workbook_Open()
    If VBA.Weekday(Date) = 5 Then
        Call CreateTables
    End With
End Sub

Public Sub CreateTables()
Dim ws As Worksheet, ws2 As Worksheet
Dim rng As Range
Dim n As Long, i As Long, lRow As Long
Dim dt As Date, dt2 As Date
    Set ws = Worksheets("Donn?es")
    Set ws2 = Worksheets("Tableaux")
    ws2.Cells.Clear
    Set rng = ws.Cells(1).CurrentRegion.Resize(, 6)
    n = rng.Rows.Count
    dt = Date
    lRow = 1
    For i = 1 To 6
        dt2 = WorksheetFunction.WorkDay(dt, i)
        rng.Copy Destination:=ws2.Cells(lRow, 2)
        With ws2.Cells(lRow, 1).Resize(n)
            .Value = dt2
            .Borders.Weight = xlThin
        End With
        lRow = lRow + n + 1
    Next i
    ws2.Cells(1).Resize(, 6).EntireColumn.AutoFit
End Sub