Insérer une ligne après l'entête d'un tableau pour y mettre une valeur

Bonjour à tous,

Je ne trouve pas de solution adaptée à mon problème :

Sur une des feuilles de mon classeur excel, j'ai plusieurs tableaux, et je cherche à ajouter une ligne sous l'entête du Tableau18 de ma feuille11, afin d'y ajouter une valeur située en B18 de ma feuille1.

J'ai trouvé comment ajouter une ligne sous l'entête. Je précise que ce tableau ne possède qu'une colonne, mais qu'il "descend" au fur et à mesure des entrées sur l'autre tableau (j'ai une macro qui m'insère des lignes entières). Donc la première ligne de mon tableau18 change, je ne peux donc pas utiliser Range.

J'ai une erreur sur la dernière ligne "propriété ou méthode non gérée par cet objet". Je me doute que je formule mal mon code... Quelqu'un pourrait-il m'aider ?

Merci d'avance !

Sub AjoutLigne()

Dim tblListe As ListObject
Set tblListe = Range("Tableau18").ListObject
tblListe.ListRows.Add (1)
tblListe.Rows(1).Value = Feuil1.Range("B18").Value

End Sub

Bonjour

Bonjour François !

J'ai un peu honte... J'ai trouvé finalement une réponse en 2 lignes de code, sur ce même forum :

[Tableau18].Rows(1).Insert
[Tableau18].Rows(1).Value = Feuil1.Range("B18").Value

J'avais essayé avec ("Tableau18"), mais avec [Tableau18], ça marche mieux !

Mais je note ton code pour le tester !

Merci beaucoup pour ta réponse, c'est très aimable !

Anaïs

Testé et approuvé !

Merci encore François ! Sujet Résolu !