Impossible de formater date et heure

[gds35]

Bjr mes Amis du forums, et bonne journée,

J'ai un input box ds la quelle je saisie une date puis une autre une heure le résulat de la saisie est ecrit ds 2 cellules . je desire que lorsque je saisie 12082008 ds l'IB ma cellule me donne 12/08/2008 et l'heure si saisie 16 me donne 16:00 et si 1630 me donne 16:30 , j'ai manipuler tous les formats des exemples du forums et ne peux obtenir mon résultat . Merci , si une âme charitable avec ses compétences peut m'aider . Cordialement GDS35

 

[PascalXLD]

Re : Impossible de formatter date et heure

Bonjour

tu as bien regarder le dernier code que je t'avais donné sur l'ancien fil car il le faisait

mon post du 15/08/2008, 20h45

 

[PascalXLD]

Re : Impossible de formatter date et heure

Re

tiens je te le remets avec quelques modifs pour l'heure et la date si tu tapes par exemple 120808

Sub Test2()
'
Dim X As String
Dim y As Long

For y = 1 To 65536 'à toi de mettre ta première et ta dernière ligne
X = InputBox("Quelle date ?")
X = Left(X, 2) & "/" & Mid(X, 3, 2) & "/" & Right(X, Len(X) - 4)
Range("D" & y) = CDate(X)
X = InputBox("Quel heure ?")
If Len(X) = 4 Then
    X = Left(X, 2) & ":" & Right(X, 2)
Else
    X = Left(X, 2) & ":00"
End If

Range("E" & y) = CDate(X)
If MsgBox("Voulez-vous continuer ?", vbYesNo, "Suite") = vbNo Then Exit For
Next y


'
End Sub

 

[Catrice]

Re : Impossible de formatter date et heure

Bonjour,

Une alternative dans le fichier joint.

Reste à gérer les erreurs de saisies du genre 24312008 pour les dates ou 2521 pour les heures

 

[Pierrot93]

Re : Impossible de formatter date et heure

Bonjour à tous,

un peu en retard, mais bon... une autre solution :

Dim d As Variant, t As Variant
d = InputBox("date ?")
Range("A1").Value = DateSerial(Right(d, 4), Mid(d, 3, 2), Left(d, 2))
t = InputBox("heure ?")
Range("B1").Value = TimeSerial(Left(t, 2), IIf(Len(t) > 2, Mid(t, 3, 2), "00"), _
    IIf(Len(t) > 4, Right(t, 2), "00"))

bon après midi
@+

 

[gds35]

Re : Impossible de formatter date et heure

Re Salut mes Amis , merci a tous ceux qui mon apporté de l'aide , si avec tous vos précieux conseils ni arrive pas , considérez moi comme le nul de chez nul . Encore Merci Cordialement de GDS35