Format Date impossible avec inputbox Excel

Résolu
tictac847 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 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 


 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>
A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
Réponse 2 / 2
tictac847 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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...
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Formate
2015 -
MPMP10 -

1 réponse
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses