XL 2016 Remplir un tableau avec un userform.

[Joseph Haroun]

Bonjour/Bonsoir Forum !
J'ai une difficulté que je tiens à vous exposer sollicitant votre précieuse aide.
En effet je n'arrive pas à remplir les Tableaux excel à l'aide d'un userform. Il y a toujours une ligne vide entre la ligne d'en-tête et la ligne des premières données enregistrées. Comment peut-on corriger cela ? Merci d'avance pour votre aide.
Yussufa

 

[Staple1600]

Re

Yusufu
Comme je viens de le dire les précédents codes (le mien et celui de Lone-Wolf avaient un problème)
Problème résolu avec la version de la macro que j'ai posté dans le message#12

 

[Lone-wolf]

Re à tous

Voici la correction pour la mienne, il manquait ListObj.ListRows.Add et +1 en trop.

Private Sub CommandButton1_Click()
Dim ListObj As ListObject, Sh As Worksheet, i As Long

    Set Sh = Sheets(1)
    Set ListObj = Sh.ListObjects("TB")
    i = Sh.Cells(Rows.Count, 1).End(xlUp).Row

    With ListObj
        Sh.Cells(i, 1) = TextBox1
        Sh.Cells(i, 2) = TextBox2
        Sh.Cells(i, 3) = TextBox3
        Sh.Cells(i, 4) = Format(TextBox4, "@")
    End With
        ListObj.ListRows.Add
End Sub

 

[Joseph Haroun]

Bonjour/Bonsoir Forum !
J'ai une difficulté que je tiens à vous exposer sollicitant votre précieuse aide.
En effet je n'arrive pas à remplir les Tableaux excel à l'aide d'un userform. Il y a toujours une ligne vide entre la ligne d'en-tête et la ligne des premières données enregistrées. Comment peut-on corriger cela ? Merci d'avance pour votre aide.
Yussufa

Bonjour à tout le forum !
Je tiens à dire merci à tous ceux qui se sont intéressés à ma difficulté et ont essayé de m'aider. Je dis particulièrement un grand merci à Staple1600 dont l'intervention a résolu mon problème au-delà de mes attentes. Salut à tous !