Controle enregistrer dans classeur

houssineSamu

XLDnaute Junior
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 :confused::mad:
un truc cloche mais je ne sais pas le quel.
j'ai besoin d'un coup de main svp
Merci
 

Pièces jointes

  • Copie de test.zip
    33.4 KB · Affichages: 23
  • Copie de test.zip
    33.4 KB · Affichages: 19
  • Copie de test.zip
    33.4 KB · Affichages: 22

houssineSamu

XLDnaute Junior
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

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
299 702
Messages
1 978 588
Membres
206 297
dernier inscrit
ousssama