Problème date Inputbox

Fermé

Fitz_Chev - 28 sept. 2015 à 17:01
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 28 sept. 2015 à 18:08

Bonjour,

Je viens vers vous avec un soucis que je ne comprends pas, mais alors pas du tout.

Dans une de mes macros, j'ai inséré une inputbox pour avoir la "date d'effet", en y ajoutant deux conditions me permettant que l'utilisateur lambda me rentre bien une date au format jj/mm/aaaa, et pas n'importe quoi d'autre. Et là, oh surprise, lorsque je rentre une jour compris entre le 01 et le 12 du mois, il m'inverse le jour et le mois, mais lorsque je rentre une date entre le 13 et le 31 du mois, là il me met la date au bon format, c'est à rien n'y comprendre.

Si l'un de vous avais une solution miracle, vous seriez mes sauveurs...
Je vous met mon code:

saisie_date:
Date_CA = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date de l'état de contrôle (format JJ/MM/AAAA)", "Saisie de la date", Format(Date, "dd/mm/yyyy"))
If Date_CA = "" Then
    Exit Sub
End If
If Not IsDate(Date_CA) Then
        MsgBox "Format de date saisie incorrect !"
        GoTo saisie_date
End If
If Date_CA <> Format(Date_CA, "dd/mm/yyyy") Then
        MsgBox "le format doit être jj/mm/aaaa !"
        GoTo saisie_date
End If

A voir également:

Problème date Inputbox
Airpods 3 date de sortie - Guide
Trier par date excel - Guide
Jm date désabonnement - Forum Gmail
Opposition CB pour stopper abonnement JM DATE - Forum Consommation & Internet

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
28 sept. 2015 à 18:08

Bonjour,

Essaie ceci pour ton InputBox:

Dim madate As Date
madate = Application.InputBox("Entrez votre date", "Date", FormatDateTime(Date, vbShortDate), Type:=1)
Range("A1").Value = madate

Discussions similaires

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

bonjour
je cherche la date et le lieu de naissance d une personne

MFG pas encore arrivée

Bonjour, j'ai lu sur le Forum que la MFG est la date de fabrication de l'ordi. J'ai acheté un Lenovo en 2018 et la MFG est datée de 2022. Est-ce normal ? Qui peut me l'expliquer ? Merci.

Problème publipostage date de naissance

Bonjour,

J'ai créé une base de données sur Excel avec différentes informations dont un champ "Date de naissance". Lorsque je suis sur mon fichier Word et que je créais un publipostage en fonction de cette base de données, la date est en format anglais c'est-à-dire que l'ordre des chiffres est inversé. Je suis allé sur des forums pour tenter de trouver une solution, celle que j'ai retrouvé le plus était la modification du champ en ajoutant " \@"dd/MM/yyyy" ". Le seul résultat que j'ai est que cela m'affiche la date du jour, certes en format français mais ce n'est pas ce que je recherche.

Quelqu'un aurait-il une solution ??

Merci d'avance !!

...

trouver une date de naissance

Bonjours pouvez vous m'aidez à trouvez une date de naissance ? Merci

Connaitre la date d'une photo.

Bonjour,

Je me suis disputer avec un ami et le jour exact de notre dispute etait le 23 mai 2009. Et aujourd'hui il se connecte sur msn et me dit qu'apres notre dispute il etait tellement enerver qu'il a eu un accident de voiture le jour meme (le 23 mai). Il m'a envoye une photo datee du 24 mai 2009 avec un homme sur un lit d'hopital dont on ne voit quasiment pas le visage.

Je suis sure et certaine qu'il me ment, que ce n'est pas lui sur la photo et qu'il n'a pas eu d'accident de voiture. Comment savoir la date reele du jour ou a etait prise cette photo ?

J'ai regarder dans proprietes mais il n'y a que le date d'aujourd'hui.

Merci d'...