Inputbox: nommer une colonne créée

Bonjour à tous,

Je débute tout juste en vba et me voici devant le souci suivant :

J’aimerai quand je clique sur un bouton commande rajouter une colonne à la fin de mon tableau et avoir une InputBox qui donne un titre a la colonne fraichement créée. (Application très simple sans grand intérêt je le conçoit).

J’arrive à créer une nouvelle colonne mais pas a attribuer mon titre à ma colonne créer car la cellule ou mettre le nom n'est jamais la meme.

Voici mon code très basique :

Private Sub CommandButton1_Click()

Dim myValue As Variant

myValue = InputBox("Enter the training name")

Set myNewColumn = ActiveWorkbook.Worksheets(1).ListObjects(1).ListColumns.Add

Range("A1").Value = myValue

j'espère que le problème est clair et merci à ceux qui se pencheront sur la questions

Bonjour et bienvenue sur le forum,

remplacer

Range("A1").Value = myValue

par

Range("A" & Cells(1, Columns.Count).End(xlToLeft).Column).Value = myValue

Bonjour,

Pour le principe :

Dim myValue As Variant
Dim LC As ListColumn
    myValue = InputBox("Enter the training name")
    Set LC = ActiveWorkbook.Worksheets(1).ListObjects(1).ListColumns.Add
    LC.Name = myValue

Ca marche super ! Merci pour votre efficacité et votre rapidité messieurs !