Format Date impossible avec inputbox Excel
Résolu
tictac847
Messages postés
26
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tous les membre du forum,
Voici ma question,
J'ai créer un petit planning sous excel qui est sensé afficher la durée entre la réception de la marchandise et le délai d'envoi.
Pour cela J'ai utiliser une mise en forme conditionnelle qui se base sur les cellule contenant la date date de réception et la date d'envoie.
Ces dates sont insérées par inputbox avec la macro suivante
Mon problème est que entré ainsi, la mise en forme ne reconnait que la date de réception.
pour que la date d'export soit reconnu SOUS LE BON FORMAT je dois la rentrer manuellement dans la cellule.
Entrée manuellement le problème disparait
J'ai beau forcer le format de la cellule, rien n'y fait.
Je vous joint un fichier pour plus de clarté.
https://www.cjoint.com/?BAlov5ZCKgG
Merci
<config>Mac OS X / Safari 534.52.7</config>
Voici ma question,
J'ai créer un petit planning sous excel qui est sensé afficher la durée entre la réception de la marchandise et le délai d'envoi.
Pour cela J'ai utiliser une mise en forme conditionnelle qui se base sur les cellule contenant la date date de réception et la date d'envoie.
Ces dates sont insérées par inputbox avec la macro suivante
Sub Nouvelle_Commande_Planning()
Application.ScreenUpdating = False
'Entrer Ref Commande
Dim DateExport, DateReception As Date
daterep:
DateReception = InputBox("Entrez date reception sous format jj/mm/aa !!", "DATE RECEPTION", Date) 'Date Reception
Cell.Offset(0, 1).Value = DateReception
Cell.Offset(0, 1).NumberFormat = "dd/mm/yy"
If Not Cell.Offset(0, 1).NumberFormat = "dd/mm/yy" Then GoTo daterep
'Date export
datexp:
DateExport = InputBox("Selectionner la date d'export !!", "DATE EXPORT", Date) 'Date Export
Cell.Offset(0, 2).NumberFormat = "dd/mm/yy"
Cell.Offset(0, 2).Value = DateExport
If Not Cell.Offset(0, 2).NumberFormat = "dd/mm/yy" Then GoTo datexp
End Sub
Mon problème est que entré ainsi, la mise en forme ne reconnait que la date de réception.
pour que la date d'export soit reconnu SOUS LE BON FORMAT je dois la rentrer manuellement dans la cellule.
Entrée manuellement le problème disparait
J'ai beau forcer le format de la cellule, rien n'y fait.
Je vous joint un fichier pour plus de clarté.
https://www.cjoint.com/?BAlov5ZCKgG
Merci
<config>Mac OS X / Safari 534.52.7</config>
2 réponses
-
Bonjour,
Essaye ce code dans un nouveau classeur et vois la différence.Sub test() Dim DateExport As String Dim Jour As Date DateExport = InputBox("Selectionner la date d'export !!", "DATE EXPORT", Date) Range("A1") = DateExport Jour = CDate(InputBox("Selectionner la date d'export !!", "DATE EXPORT", Date)) Range("A2") = Jour End Sub -
Impecable, ca marche parfaitement
Pour éviter de faire apparaitre 2 fois l'input box j'ai utiliser la méthode suivante
Dim DateExport As String
Dim Jour As Date
DateExport = InputBox("Selectionner la date d'export !!", "DATE EXPORT", Date)
Range("A1") = DateExport
Jour = CDate(DateExport)
Range("A1") = Jours
End Sub
Merci Pijaku ca faisait des heures que je bloquer dessus
