Ajout d'une ligne au début d'un tableau et non à la fin

Bonjour,

J'aimerais que la ligne qui s'ajoute dans mon tableau se mette au début et non à la fin du tableau.

Sheets(1).ListObject.ListRow.Add

Voici ma formule, je suppose qu'elle doit être adaptée.

Merci d'avance!

Bonjour,

Ceci devrait suffire si la première ligne est la 2

    Rows("2:2").Insert Shift:=xlDown

ou sur un tableau délimité (colonnes de A à J:

Range("A2:J2").ListObject.ListRows.Add (1)

Cdlt

Bonjour à tous,

essayer :

Worksheets(1).ListObjects("Tableau1").ListRows.Add 1 ' adapter le nom du tableau

A+

Bonjour,

J'ai essayé vos deux méthodes et il me crée bien la ligne au-dessus mais il ne met pas les données que je veux indiquer.

Je vous envoie mon code complet! ^^

Private Sub CommandButton1_Click()
Dim DL As Integer

If Me.Txt_nom <> "" And Me.Txt_prénom <> "" And Me.Txt_date <> "" Then

    Sheets(1).ListObjects(1).ListRows.Add
    DL = Sheets(1).Range("b9999").End(xlUp).Row

    'ajouter dns le tableau
    Sheets(1).Range("A" & DL) = Me.Txt_nom
    Sheets(1).Range("B" & DL) = Me.Txt_prénom
    Sheets(1).Range("C" & DL) = Me.Txt_date

    ThisWorkbook.Save

    Unload Add_protocole

End If
End Sub

Merci à vous :)

C'est sûr que si vous ne donnez pas tous les éléments, on ne peux pas deviner.

Le fichier sans données confidentielles serait souhaitable, ce qui éviterait de répondre à côté.

Kenny Nicolas a écrit :

.../...
    Sheets(1).ListObjects(1).ListRows.Add
    DL = Sheets(1).Range("b9999").End(xlUp).Row

.../...

Bah ....? La nouvelle ligne doit être au début ou à la fin du tableau ??? Comme c'est codé là, ce sera plutôt à la fin ....

Pour remplir la nouvelle ligne d'un tableau structuré, une solution possible :

Dim NL As ListRow 
Set NL = Worksheets(2).ListObjects("Tableau1").ListRows.Add(1) 'création d'une nouvelle ligne en tête de tableau (après les titres)
NL.Range.Cells(1) = "donnée1" 'insertion d'une donnée en première cellule de la nouvelle ligne 
NL.Range.Cells(2) = "donnée" 'insertion d'une donnée en deuxième cellule de la nouvelle ligne
...

Sujet passé en résolu ?????

Mauvaise manipulation!

Je regarde la solution demain au boulot et je vous dis quoi!

Bonjour à tous,

Je viens de tester la dernière méthode et ça fonctionne.

Merci à vous pour l'aide! Je suis novice en la matiére et j'essaie de m'inspirer de ce que je vois à gauche et à droite, du coup merci pour le temps que vous prenez pour me répondre ^^