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

Signaler
Messages postés
26
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
24 décembre 2013
-
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
-
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



<config>Mac OS X / Safari 534.52.7</config>

2 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620
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
Messages postés
26
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
24 décembre 2013

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
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620
Non! Là j'ai mis deux InputBox différentes pour que tu comprennes bien la différence.
La bonne syntaxe est :
Dim Jour As Date

Jour = CDate(InputBox("Selectionner la date d'export !!", "DATE EXPORT", Date))
Range("A2") = Jour

Mais attention si on saisit autre chose qu'une date dans l'InputBox...