Restituer les données d'un UserForm sur une ExcelSheet

Bonjour,

J'ai écris le code suivant pour essayer de récupérer les données entrées par un utilisateur sur un user form pour les implémenter dans un fichier excel.

Cependant celui-ci ne fonctionne pas, j'ai une erreur sur la ligne KinModule = txtKinModule.Value

Private Sub Enregistrer_Click()

Dim KinModule As Integer
Dim PosModule As Integer
Dim DateNA As Date
Dim EquipeNA As Integer
Dim EquipeRespNA As Integer
Dim MatriculeNA As Integer

KinModule = txtKinModule.Value
PosModule = cboPosModule.Value
DateNA = txtDateNA.Value
EquipeNA = txtEquipeNA.Value
EquipeRespNA = txtEquipeRespNA
MatriculeNA = txtMatriculeNA

Dim rSh As Worksheet
Set rSh = ThisWorkbook.Sheets("Record")

Dim nextRow As Integer
nestRow = rSh.Range("A" & Rows.Count).End(xlUp).Row + 1

rSh.Range("A" & nextRow).Value = KinModule
rSh.Range("B" & nextRow).Value = PosModule
rSh.Range("C" & nextRow).Value = DateNA
rSh.Range("D" & nextRow).Value = EquipeNA
rSh.Range("E" & nextRow).Value = EquipeRespNA
rSh.Range("F" & nextRow).Value = MatriculeNA

End Sub

Connaissez vous la casue du problème et comment le résoudre ?

Merci de votre aide

Bonjour,

Dim nextRow As Integer 
nestRow = rSh.Range("A" & Rows.Count).End(xlUp).Row + 1

next ou nest ? faut choisir

Sinon est-ce bien utile de faire une page de Déclaration de valeur pour une simple copie d'info ?

Ceci devrait fonctionner aussi bien sans déclaration.

Private Sub Enregistrer_Click()

nextRow=Worksheets("Record").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Record").Range("A" & nextRow).Value = txtKinModule.Value
Worksheets("Record").Range("B" & nextRow).Value = cboPosModule.Value
Worksheets("Record").Range("C" & nextRow).Value = cdate(txtDateNA.Value)
Worksheets("Record").Range("D" & nextRow).Value = txtEquipeNA.Value
Worksheets("Record").Range("E" & nextRow).Value = txtEquipeRespNA.value
Worksheets("Record").Range("F" & nextRow).Value = txtMatriculeNA.value

End Sub