incrémenter les lignes au fur à mesure

[patrick141078]

Bonjour,
je viens de débuter en vba, je cherche le code pour incrémenter la première ligne vide d'une base avec un userforme que j'ai créer , un textbox col A nommée ordre (afin de mettre le n°), un textbox col B nommée nom. J'ai recherché sur la toile mais bon cela parait moins simple à mettre en oeuvre .. Si quelqu'un peut me donner un coup de main, je joins le doc pour mieux me faire comprendre

merci

 

[Staple1600]

Re : incrémenter les lignes au fur à mesure

Re

Une petite modification si tu commences avec une feuille vide (avec juste les entêtes en ligne 1)

Private Sub Bt_Valider_Click()
 ' On teste la saisie du nom
    If Me.noms.Text = "" Then
        MsgBox "Vous devez entrer un nom."
        Me.noms.SetFocus
        Exit Sub
    End If
    ' Conversion du nom et prénom en NOMPRPRE'
    noms = Application.WorksheetFunction.Proper(Me.noms.Text)
 
    ' Mise en place des valeurs saisies
    With Range("A65536").End(xlUp)(2)
        .Value = ordre
        .Offset(, 1) = noms
    End With
    noms = "": ordre = ""
    ' On décharge le formulaire
    Unload Me
End Sub

Private Sub UserForm_Initialize()
ordre = ActiveSheet.Range("A65536").End(xlUp).Row
End Sub

 

[patrick141078]

Re : incrémenter les lignes au fur à mesure

Merci
cela fonctionne