Etendre automatiquement un tableau Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
loicd181
Membre habitué
Membre habitué
Messages : 104
Inscrit le : 13 juin 2016
Version d'Excel : 2013 EN / 2016 FR

Message par loicd181 » 3 août 2016, 12:03

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 :
exemple.xlsx
(11.38 Kio) Téléchargé 10 fois
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 ! :D
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 3 août 2016, 13:49

Bonjour,
Une première proposition. :oops:
Cdlt.
xlp - Insérer lignes dans 2 tableaux.xlsm
(24.91 Kio) Téléchargé 10 fois
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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
l
loicd181
Membre habitué
Membre habitué
Messages : 104
Inscrit le : 13 juin 2016
Version d'Excel : 2013 EN / 2016 FR

Message par loicd181 » 3 août 2016, 13:56

Merci beaucoup ! :)

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

Je cloture ce sujet a bientôt ! :D
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message