Incrémenter numéro de ligne via userform

Bonjour à toutes et à tous,

J'ai un petit problème qui je pense est tout bête

Je m'explique:

J'ai un userform où il y a plusieurs textbox et combobox qui renseigne un tableau

j'ai réussi à alimenter ce tableau en insérant les valeurs des combobox et textbox sur la dernière ligne vide

Mais je voudrais que la première colonne ("A") incrémente +1 le numéro qui se trouve sur la ligne du dessus (dernière ligne remplie)

Je joins un petit exemple pour mieux comprendre

Merci d'avance

Bonjour,

Tu n'étais pas très loin. Ce n'est que du syntaxe. Vois le code suivant :

Private Sub CommandButton1_Click()
    Dim DernLig As Long
    With Sheets("Feuil1")
        DernLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & DernLig).Value = DernLig
        .Range("B" & DernLig).Value = TextBox1.Value
    End With
End Sub

Edit : finalement, la solution est simple, car tu calculais déjà le numéro dans la variable "DernLig" à la 3ème ligne

Private Sub CommandButton1_Click()
Dim DernLig As Long
Dim num As Integer

With Sheets("Feuil1")
    DernLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    num = .Range("A" & Rows.Count).End(xlUp)
    .Range("A" & DernLig).Value = num + 1
    .Range("B" & DernLig).Value = TextBox1.Value
End With
End Sub

Code de ton bouton modifier et fonctionnel :

J'ai intégré num en variable entier et il prend la dernière ligne de la colonne A en valeur. ensuite il intègre à ton tableau dans la colonne vide (comme tu fais pour B) en ajoutant +1 à la variable (si en A3 c'était 2, en A4 ça sera 2+1 soit 3)

EDIT : J'étais plus lent , au moins j'arrive à comprendre comment améliorer mon codage

Merci beaucoup pour les réponses

Ça fonctionne à la perfection