Recopie automatique de feuille contenant plusieurs tableaux

[chappyporfaro]

Bonjour,

Je ne sais pas par où commencer afin de parvenir à mes fins. Probablement un peu rouillé dans Excel 🙂

J'ai une feuille (nommée "01") contenant plusieurs tableaux nommés Tbl.Tableau1_01, Tbl.Tableau2_01, Tbl.Tableau3_01, Tbl.Tableau4_01, Tbl.Tableau5_01 (le "_01" représente le nom de la feuille)

J'aimerais faire une sous-routine qui copie cette feuille 25 fois en leur attribuant un nom incrémenté ("01", "02", etc.) et qui ajuste automatiquement les noms des tableaux en fonction du nom de la nouvelle feuille. Le fait de laisser Excel gérer la copie des tableaux résulte que ces derniers se font assigner un nom suivi d'un nombre aléatoire.

Ci-joint le fichier contenant la feuille et ses tableaux

Merci à tous pour vos lumières

 

[Modeste]

Re : Recopie automatique de feuille contenant plusieurs tableaux

Bonjour Chappy,

Si j'ai bien compris, essaie ce bout de code dans un module standard:

Sub copieRenomme()
Dim tablo As ListObject
For f = 2 To 26
    ThisWorkbook.Sheets(1).Copy after:=Sheets(ThisWorkbook.Sheets.Count)
    With ActiveSheet
        .Name = Format(f, "00")
        For Each tablo In .ListObjects
            tablo.Name = Mid(tablo.Name, 1, Application.Find("_", tablo.Name)) & .Name
        Next tablo
    End With
Next f
End Sub

 

[chappyporfaro]

Re : Recopie automatique de feuille contenant plusieurs tableaux

Merci Modeste,

Je ferai l'essais de ton code ce soir 🙂

 

[chappyporfaro]

Résolu Re : Recopie automatique de feuille contenant plusieurs tableaux

Bonsoir Modeste,

ça fonctionne merveilleusement bien! 🙂


Merci

Bonne soirée