J
Jonathan
Guest
Bonjour à tous,
Lorsque que je rentre une date dans ma txtbox sous le format suivant :180506 et que je valide ma saisie, je vois apparaître la suivant dans ma cellule execl : 16/03/2394
Et comment mettre un format heur dans une txtbox
Cordialement
Voici mon code de validation :
' Mise en place des données dans la feuille de calcul'
Sheets('EVCarteSPC').Range('B65536').End(xlUp).Offset(1, 0).Value = TxtEquipe
Sheets('EVCarteSPC').Range('C65536').End(xlUp).Offset(1, 0).Value = Format(TxtHeure, 'hh:mm')
Sheets('EVCarteSPC').Range('D65536').End(xlUp).Offset(1, 0).Value = CDate(Txtdate)
Sheets('EVCarteSPC').Range('E65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN1)
Sheets('EVCarteSPC').Range('F65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN2)
Sheets('EVCarteSPC').Range('G65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN3)
Sheets('EVCarteSPC').Range('H65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN4)
Sheets('EVCarteSPC').Range('I65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN5)
Lorsque que je rentre une date dans ma txtbox sous le format suivant :180506 et que je valide ma saisie, je vois apparaître la suivant dans ma cellule execl : 16/03/2394
Et comment mettre un format heur dans une txtbox
Cordialement
Voici mon code de validation :
' Mise en place des données dans la feuille de calcul'
Sheets('EVCarteSPC').Range('B65536').End(xlUp).Offset(1, 0).Value = TxtEquipe
Sheets('EVCarteSPC').Range('C65536').End(xlUp).Offset(1, 0).Value = Format(TxtHeure, 'hh:mm')
Sheets('EVCarteSPC').Range('D65536').End(xlUp).Offset(1, 0).Value = CDate(Txtdate)
Sheets('EVCarteSPC').Range('E65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN1)
Sheets('EVCarteSPC').Range('F65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN2)
Sheets('EVCarteSPC').Range('G65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN3)
Sheets('EVCarteSPC').Range('H65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN4)
Sheets('EVCarteSPC').Range('I65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN5)