Modifier le noms des tableaux

bonjour le forum,

j'ai une feuille avec plusieurs tableau (dans l'exemple je n'en ai mis que 3).

J'aimerais pouvoir modifier le nom d'un tableau lors d'une saisie dans une cellule.

Dans le fichier joint, si je tape "TEST" en A1, Tableau_1 deviendrait T_TEST ("T" & "_" & valeur de la cellule).

Idem donc pour A15, A29 et plus selon le nombre de tableau (la structure serait toujours identique).

j'ai essayé un bout de code mais cela n'est pas vraiment concluant et je pense qu'il y a certainement une méthode plus "générique".

Une idée de la façon de procéder?

Cordialement,

Bonjour,
Un exemple à adapter !?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nm As String, lo As ListObject

    On Error GoTo errHandler

    If Not Intersect(Target, Me.Range("A1,A15,A29")) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
        nm = Target.Value
        Set lo = Target.Offset(1).ListObject
        lo.Name = "T_" & nm
    End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub
errHandler:
    MsgBox "Le nom du tableau existe déjà !...", 64, "Information"
    Target.Value = vbNullString
    Resume exitHandler

End Sub

Bonjour Jean-Eric,

Après quelques essais sur le fichier test, c'est parfait!

Reste plus qu'à l'adapter sur le fichier réel.

Merci beaucoup pour ce travail.