1 2 3 4 5 6 7 8
| Private Sub copy_exp_date(ligne_exp As Integer, colonne_exp As Integer, ligne_calc As Integer, colonne_calc As Integer, colonne_calc2 As Integer)
'calcul.Cells(ligne_calc, colonne_calc).Value = DateSerial(Year(expor.Cells(ligne_exp, colonne_exp)), Month(expor.Cells(ligne_exp, colonne_exp)), Day(expor.Cells(ligne_exp, colonne_exp)))
calcul.Cells(ligne_calc, colonne_calc).Value = DateValue(expor.Cells(ligne_exp, colonne_exp))
'calcul.Cells(ligne_calc, colonne_calc2).Value = TimeSerial(Hour(expor.Cells(ligne_exp, colonne_exp)), Minute(expor.Cells(ligne_exp, colonne_exp)), 0)
calcul.Cells(ligne_calc, colonne_calc2).Value = Format(TimeValue(expor.Cells(ligne_exp, colonne_exp)), "hh:mm")
' calcul.Cells(ligne_calc, colonne_calc2).Format |
Partager