1 2 3 4 5 6 7 8 9
|
While Feuille.Cells(nbrows, 1).value <> ""
if String.IsNullOrEmpty(feuille.cells(nbrows,21).value then
monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Format(Feuille.Cells(nbrows, 21).value, "dd/MM/yyyy"), Feuille.Cells(nbrows, 22).value)
else
monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Feuille.cells(nbrows,21).value, Feuille.Cells(nbrows, 22).value)
end if
nbrows += 1
End While |
Partager