Comment créer automatiquement des tableaux sur des feuilles Excel

Bonjour Excel World

J'ai une inquiétude, quelqu'un pourrait-il m'aider si vous le pouviez.

J'ai plusieurs feuilles de calcul qui ont les mêmes tableaux uniques sur chaque feuille.

Le problème est:

[list =] Comment puis-je créer automatiquement les mêmes tableaux sur les différentes feuilles de calcul et [/ list]

[list =] Comment puis-je renommer automatiquement les tables [/ list]

Exemple:

Chaque feuille de calcul porte le nom d'un pays et chaque feuille de calcul a deux tableaux. "Vert bleu". Veuillez consulter le fichier ci-dessous.

Voudrait le nom de la feuille de calcul. Exemple: [b] [u] Albanie [/ u] [/ b] soit le même nom du tableau "vert" sur la même feuille de calcul et [b] [u] Albaniaroll [/ u] [/ b] sur le bleu feuille de travail.

Comment puis-je créer cela automatiquement pour chaque feuille de calcul de pays?

J'ai démarré et arrêté manuellement au nom de la feuille de calcul "[u] [b] Philippines [/ b] [/ u]"

Merci d'avance

Bonjour,

Un début de réponse à adapter.

Il faudrait intégrer ta formule 12 Mth Rolling Avg. !...

Cdlt.

Public Sub Create_Tables()
Dim ws As Worksheet, wsTemplate As Worksheet
Dim TD As Range, Cell As Range
Dim SheetName As String, TableName As String, TableName2 As String
    Application.ScreenUpdating = False
    Set wsTemplate = ActiveWorkbook.Worksheets("Templates")
    Set TD = Range("Retail_Sales")
    If Not TD.ListObject.DataBodyRange Is Nothing Then
        For Each Cell In TD.Columns(1).Cells
            SheetName = Left$(Cell.Value, 31)
            TableName = Replace(Replace(Cell.Value, " ", "_"), "-", "_")
            TableName2 = TableName & "_roll"
            wsTemplate.Copy after:=Worksheets(Worksheets.Count)
            With ActiveSheet
                .Name = SheetName
                    With .ListObjects(1)
                        .Name = TableName
                        'add Retail_sales values
                        .ListRows(1).Range.Cells(1, 1).Resize(, 3).Value = Cell.Resize(, 3).Value
                    End With
                .ListObjects(2).Name = TableName2
            End With
            ActiveWindow.DisplayGridlines = False
        Next
    End If
End Sub

Bonjour. Je suis désolé pour la réponse tardive.

Au travail toute la journée.

J'ai suivi vos instructions mais je reçois une erreur.

Veuillez voir l'image ci-dessous.

Je ne sais pas si c'est moi ou non.

Vraiment approprié, merci encore

Bonjour,

Dans mon exemple, il y a une feuille "Templates".

Celle-ci comporte 2 tables (tableaux).

As-tu conservé cette feuille dans ton vrai classeur ?

Cdlt.

Oui je l'ai fait. Merci s'il vous plaît voir ci-dessous.

Merci

Merci je le comprends. J'utiliserais le modèle que vous avez créé pour créer un autre classeur.

Ce que j'ai essayé de faire, c'est de copier les macros dans un autre classeur. Cependant, lorsque j'ai copié la liste des pays dans votre classeur de modèle. Cela fonctionne à merveille.

Merci encore pour votre temps et votre considération