Compléter un tableau dans une feuille Excel avec un Userform

Bonjour,

j'essaie de remplir un tableau, par ligne, grâce aux infos mises dans le user form.

Le but est qu'à chaque fois que l'on appuie sur "valider " l'ensemble des infos soient mises sur la ligne suivante de la feuille excel. Pour l'instant sur ce code je démarre à la ligne 487 car les précédentes sont déjà complétées directement dans le tableau. Et je voudrai continuer, grâce au UserForm, pour les lignes 488, 489,...

Merci.

Voici le code :

Private Sub CommandButton1_Click()
        Worksheets(1).Cells(487, 1).Value = TextBox1
        Worksheets(1).Cells(487, 2).Value = TextBox2
        Worksheets(1).Cells(487, 3).Value = TextBox3
        Worksheets(1).Cells(487, 4).Value = TextBox4
        Worksheets(1).Cells(487, 5).Value = ComboBox1
        Worksheets(1).Cells(487, 6).Value = ComboBox2
        Worksheets(1).Cells(487, 7).Value = ComboBox3
        Worksheets(1).Cells(487, 8).Value = TextBox5
End Sub

Bonjour thomasdu40,

Essaie comme ça :

    Private Sub CommandButton1_Click()
With Worksheets(1)
derlign = .range("a65536").end(xlUp).row + 1
            .Cells(derlign, 1).Value = TextBox1
            .Cells(derlign, 2).Value = TextBox2
            .Cells(derlign, 3).Value = TextBox3
            .Cells(derlign, 4).Value = TextBox4
            .Cells(derlign, 5).Value = ComboBox1
            .Cells(derlign, 6).Value = ComboBox2
            .Cells(derlign, 7).Value = ComboBox3
            .Cells(derlign, 8).Value = TextBox5
End With
    End Sub

Super çà fonctionne.

Merci VBA-new.

Si ton problème est résolu, indique-le en cliquant sur le petit V vert qui se trouve pas loin de "Citer" lorsque tu répond à un message.

ok problème résolu.