1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| For I = 2 To F_Resultat.Range("A65536").End(-4162).Row
.AddNew
.Fields("mb_mag") = F_Resultat.Cells(I, 2)
.Fields("mb_nofour") = F_Resultat.Cells(I, 5)
.Fields("mb_lig1four") = F_Resultat.Cells(I, 9)
.Fields("mb_lig2four") = ""
.Fields("mb_lig3four") = ""
.Fields("mb_lig4four") = ""
.Fields("mb_lig5four") = ""
.Fields("mb_lig1mag") = ""
.Fields("mb_lig2mag") = ""
.Fields("mb_lig3mag") = ""
.Fields("mb_lig4mag") = ""
.Fields("mb_lig5mag") = ""
.Fields("mb_datliv") = F_Resultat.Cells(I, 8)
.Fields("mb_mhtpub") = 0
.Update |
Partager