Format Date impossible avec inputbox Excel

Résolu/Fermé

tictac847 Messages postés 26 Date d'inscription mercredi 5 octobre 2011 Statut Membre Dernière intervention 24 décembre 2013 - 11 janv. 2012 à 14:34
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 11 janv. 2012 à 16:43

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:

Excel vba inputbox date format
Liste déroulante excel - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 janv. 2012 à 14:44

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

Réponse 2 / 2

tictac847 Messages postés 26 Date d'inscription mercredi 5 octobre 2011 Statut Membre Dernière intervention 24 décembre 2013
11 janv. 2012 à 15:45

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 janv. 2012 à 16:43

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...

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Si une date est supérieure à une autre

Problème Whatsapp - "La date est incorrecte"

Discussions similaires

Newsletters