Transfert données UserForm vers feuille

bonjour tout le monde,

J'essaie de transférer les données que je rentre dans mon UserForm "U_NonMembre" dans la feuille "Inscrition" et je voudrais en plus

comptabiliser le nombre d'enregistrement fait par ce UserForm et l'afficher en cellule "I2" de cette m^me feuille.

Et pour ça, j'ai besoin de vous...

Merci à ceux qui voudrons bien m'aider...!

Mon classeur joint:

Bonjour Atlonia, bonjour le forum,

Une version à tester si elle convient :

Private Sub CommandButton1_Click()
Dim LastRw As Long
With Sheets("Inscriptions")
    LastRw = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    .Cells(LastRw, "A").Value = LastRw - 1
    .Cells(2, "i").Value = .Cells(2, "i").Value + 1
    .Cells(LastRw, "B").Value = Me.TextBox1.Value
    .Cells(LastRw, "C").Value = Me.TextBox2.Value
    If Me.CheckBox1 = True Then .Cells(LastRw, "D") = "X"
    If Me.CheckBox2 = True Then .Cells(LastRw, "E") = "X"
    If Me.CheckBox3 = True Then .Cells(LastRw, "F") = "X"
    If Me.OptionButton1 = True Then
        .Cells(LastRw, "G").Value = "H"
    Else
        .Cells(LastRw, "G").Value = "F"
    End If
End With
End Sub

Joseph

Bonjour retraite8,

ravis de te revoir,

ton code est clair et rempli parfaitement son rôle...!

Peut-être as-tu une idée pour le comptage des entrées faites par ce UserForm et d'afficher le résultat en "I2" de la feuille "Inscription"...!

Merci encore pour ta participation très active à mon projet...

Bonjour atlonia, bonjour le forum,

Euuhhh! c'est déjà inclus : .Cells(2, "i").Value = .Cells(2, "i").Value + 1

Joseph

Ho pardon,

J'avais pas vu...!

Merci encore pour ton indulgence...!