Controle enregistrer dans classeur

[BLS77]

Bonjour le forum

J'ai un code qui marche bien mais par contre il y une erreur que je ne comprend pas pourquoi il ne m'enregistre pas les informations dans les cellules vides
un truc cloche mais je ne sais pas le quel.
j'ai besoin d'un coup de main svp
Merci

 

[BLS77]

Re : Controle enregistrer dans classeur

re j'ai changé mon code initial et maintenant ca marche vu que ca dure si peu interessé quelqu'un voila bon soirée a tous peut être

Public Sub emp_Sauve()
Dim ws As Worksheet
Dim lRow As Long
Set ws = Worksheets("employés")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = emp.empTitre.Value
.Cells(lRow, 2).Value = emp.empNom.Value
.Cells(lRow, 3).Value = emp.empPrénom
.Cells(lRow, 8).Value = emp.empNée.Value
.Cells(lRow, 9).Value = emp.empAge.Caption
.Cells(lRow, 10).Value = emp.empLieu.Value
.Cells(lRow, 11).Value = emp.empPays.Value
.Cells(lRow, 12).Value = emp.empNationalité.Value
.Cells(lRow, 13).Value = emp.empIdentité.Value
.Cells(lRow, 14).Value = emp.empSécurité.Value
.Cells(lRow, 15).Value = emp.empSCode.Value
.Cells(lRow, 17).Value = emp.NumRue.Value
.Cells(lRow, 18).Value = emp.empAdresse.Value
.Cells(lRow, 19).Value = emp.empCC.Value
.Cells(lRow, 21).Value = emp.Cp.Value
.Cells(lRow, 22).Value = emp.Ville.Value
.Cells(lRow, 23).Value = emp.Dépt.Value
.Cells(lRow, 24).Value = emp.empDépt.Value
.Cells(lRow, 25).Value = emp.empService.Value
.Cells(lRow, 26).Value = emp.empTéléphone.Value
.Cells(lRow, 27).Value = emp.empCellulaire.Value
.Cells(lRow, 28).Value = emp.empPoste.Value
.Cells(lRow, 29).Value = emp.empEmail.Value
.Cells(lRow, 30).Value = emp.empEmploi.Value
.Cells(lRow, 31).Value = emp.empDate.Value
.Cells(lRow, 32).Value = emp.empContrat.Value
.Cells(lRow, 33).Value = emp.empdébut.Value
.Cells(lRow, 34).Value = emp.empFin.Value
End With

End Sub