Etendre automatiquement un tableau

Bonjour le forum,

J'ai un problème que j'aimerais simplifier. je voudrais savoir s'il est possible d'étendre un tableau automatiquement.

Ce que je veux dire c'est que j'ai deux tableaux qui sont liés et j'aimerais que lorsque j'en complète un l'autre grandisse en même temps.

Actuellement a chaque fois je fais des exécutions de macro mais je suis presque sur qu'il y a un moyen plus simple.

Au besoin voici un exemple :

16exemple.xlsx (11.38 Ko)

Si par exemple j'ajoute le jour suivant dans le tableau de la feuille 1 j'aimerais que le tableau de la feuille 2 grandisse en même temps sans que je n'ai besoin de faire qqch

Merci d'avance !

Bonjour,

Une première proposition.

Cdlt.

Private Sub Worksheet_Activate()
Dim ws As Worksheet
Dim lo As ListObject, lo2 As ListObject
Dim rng As Range

    Set ws = ActiveWorkbook.Worksheets("Feuil1")
    Set lo = ws.ListObjects(1)

    With Me
        Set lo2 = .ListObjects(1)
        With lo2
            Set rng = lo.Range.Resize(lo.Range.Rows.Count, lo.Range.Columns.Count - 1)
            .DataBodyRange.Delete
            .Resize rng
            .ListColumns(1).DataBodyRange.FormulaR1C1 = _
            "=CONCATENATE(Tableau1[@Colonne2],Tableau1[@Colonne3])"
        End With
    End With

    Set rng = Nothing
    Set lo2 = Nothing: Set lo = Nothing
    Set ws = Nothing

End Sub

Merci beaucoup !

Je ne pensais pas qu'il fallait faire une macro pour ca !

Je cloture ce sujet a bientôt !

Rechercher des sujets similaires à "etendre automatiquement tableau"