Format Date impossible avec inputbox Excel Résolu/Fermé

Question

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 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 Mac OS X / Safari 534.52.7

pijaku · Answer

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

tictac847 · Answer

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

Format Date impossible avec inputbox Excel

2 réponses

Discussions similaires