Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel date dans inputbox

date dans inputbox

19 réponses
Avatar
eneric
Bonjour,
comment forcer une date dans un inputbox
j'ai essayé dans le genre
If Not IsDate Then
MsgBox "Saisir une date!"
else blabla

j'ai vu que lorsqu'on utilise "Application.inputbox" on peut definir
des valeurs il y a entre autre la valeur 8 qui correspond a une
reference de cellule donc j'ai ecrit:
date = Application.InputBox("Votre date", Type:=8), ma cellule est bien
au format date, mais ca ne marche pas
si vous avez une proposition je suis preneur
cordialement

--
eneric
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel.C
Oups :
Do
maDate = InputBox("Date ? jj/mm/aaaa")
If IsDate(maDate) And Len(maDate) = 10 Then Exit Do
MsgBox "ceci n'est pas une date valide"
Loop
Range("L2") = CDate(maDate)


Do
maDate = InputBox("Date ? jj/mm/aaaa")
If IsDate(maDate) And Len(maDate) = 10 Then Exit Do
Loop
Range("L2") = CDate(maDate)

Cette syntaxe oblige à saisir le jour sur deux caractères.
Daniel

Ok daniel
est il possible d'avoir un msg du genre
"ceci n'est pas une date valide"
merci
Méfie-toi de "IsDate"; tu peux récupérer une date texte(genre "14 janvier
2010") qui te renverra "true".
Ajoute alors :
maDate = CDate(maDate)
Daniel

Bonjour.
Une autre manière de faire :
Do
maDate = InputBox("Date ?")
If IsDate(maDate) Then Exit Do
Loop
Daniel

Bonjour,
comment forcer une date dans un inputbox
j'ai essayé dans le genre
If Not IsDate Then
MsgBox "Saisir une date!"
else blabla

j'ai vu que lorsqu'on utilise "Application.inputbox" on peut definir
des valeurs il y a entre autre la valeur 8 qui correspond a une
reference de cellule donc j'ai ecrit:
date = Application.InputBox("Votre date", Type:=8), ma cellule est bien
au format date, mais ca ne marche pas
si vous avez une proposition je suis preneur
cordialement










Avatar
eneric
> Rebonjours à toi

dans la partie du code :

Do While Donnée <> "" And Not IsDate(Donnée)
Donnée = InputBox("Saisissez une date", "Date")
Loop

Modifies à ta convenance la ligne :

Donnée = InputBox("Saisissez une date", "Date")

comme par exemple :

Donnée = InputBox(Donnée & " n'est pas une date valide, Saisissez une date",
"Date")


Celà devrait convenir

Dis moi !!!!!!



non desolé j'ai modifié selon tes criteres
ca ne marchait plus
je reviens tard a+
merci

--
eneric
Avatar
FFO
Rebonjour à toi

Sur ce lien un exemple tel que je te l'ai proposé

Aprés l'avoir récupéré et ouvert active le bouton "Date"
Si une date es saisie dans la boîte de dialogue une nouvelle boîte n'est pas
proposée sinon celle-ci sera représentée tant que la saisie n'est pas une
date avec comme information la dernière saisie associée à la mention "n'est
pas une date"

Fais des essais et dis moi !!!!

http://www.cijoint.fr/cjlink.php?file=cj201001/cijpKyWzew.xls
Avatar
michdenis
Bonjour,

Voici un fichier exemple qui pourrait servir de base
quant à la manière de renseigner un textbox ou une
cellule avec une date.

http://cjoint.com/?botWd33EPR



"eneric" a écrit dans le message de groupe de discussion :

Bonjour,
comment forcer une date dans un inputbox
j'ai essayé dans le genre
If Not IsDate Then
MsgBox "Saisir une date!"
else blabla

j'ai vu que lorsqu'on utilise "Application.inputbox" on peut definir
des valeurs il y a entre autre la valeur 8 qui correspond a une
reference de cellule donc j'ai ecrit:
date = Application.InputBox("Votre date", Type:=8), ma cellule est bien
au format date, mais ca ne marche pas
si vous avez une proposition je suis preneur
cordialement

--
eneric
Avatar
eneric
merci je viens de voir ton code
c'est super
bonne soirée
a+
Rebonjour à toi

Sur ce lien un exemple tel que je te l'ai proposé

Aprés l'avoir récupéré et ouvert active le bouton "Date"
Si une date es saisie dans la boîte de dialogue une nouvelle boîte n'est pas
proposée sinon celle-ci sera représentée tant que la saisie n'est pas une
date avec comme information la dernière saisie associée à la mention "n'est
pas une date"

Fais des essais et dis moi !!!!

http://www.cijoint.fr/cjlink.php?file=cj201001/cijpKyWzew.xls



--
eneric
Avatar
Jacky
Re..
Si Access est installé sur la machine il y aussi ceci:
http://www.cijoint.fr/cjlink.php?file=cj201001/cijccMV0SD.xls

--
Salutations
JJ


"eneric" a écrit dans le message de news:

Bonjour,
comment forcer une date dans un inputbox
j'ai essayé dans le genre
If Not IsDate Then
MsgBox "Saisir une date!"
else blabla

j'ai vu que lorsqu'on utilise "Application.inputbox" on peut definir des
valeurs il y a entre autre la valeur 8 qui correspond a une reference de
cellule donc j'ai ecrit:
date = Application.InputBox("Votre date", Type:=8), ma cellule est bien au
format date, mais ca ne marche pas
si vous avez une proposition je suis preneur
cordialement

--
eneric




Avatar
michdenis
| merci je viens de voir ton code
| c'est super

Tu me permettras un commentaire...

Quand tu utilises un textbox ou un inputbox pour saisir une date,
le résultat obtenu est une chaîne de caractère texte.

Si tu devais avoir une entente contractuelle avec une autre partie,
je suppose que tu voudrais savoir comment elle interprète la date
apparaissant sur le contrat.

Soit la chaîne de caractères : 12/10/15 sur le contrat... si tu n'as pas
d'autre référence, est-ce que cette date est au format :
JJ/MM/AA, AA/MM/JJ , MM/JJ/AA .... etc.

Tu aurais de la difficulté à le dire ! Excel se retrouve dans la même position.
Pour ce faire, sa référence par défaut est basée sur le format "Date" défini dans le
panneau de configuration de l'ordinateur qui exécute le programme.

Le problème, comment t'assurer que tous les ordinateurs qui exécuteront
ton programme auront la même configuration au sujet des dates que le
tien au moment de la conception du programme ?

La tâche n'est pas si simple lorsqu'il s'agit de résoudre les ambiguïtés.

Même en utilisant, la fonction "DateSerial()", ça ne résout pas tout !

Exemple : x = Dateserial(2010,1,45)
Est-ce que tu crois que le 45 janvier 2010 est une date ?
Fais ce test : Msgbox Isdate(Dateserial(2010,1,45))
Excel retourne vrai, car pour Excel
Dateserial(2010,1,45) = 14 février 2010 si le format date
dans ton panneau de configuration est JJ/MM/AA

Je crois que cela devrait être suffisant pour piquer ta curiosité
et susciter quelques moments de réflexion.
Avatar
eneric
oui effectivement ton raisonnement tient la route
comme quoi il faut toujours voir plus loin
merci
bonne nuit

--
eneric
Avatar
eneric
bien vu aussi jacky
je retiens egalement cette proposition
bonne nuit
Re..
Si Access est installé sur la machine il y aussi ceci:
http://www.cijoint.fr/cjlink.php?file=cj201001/cijccMV0SD.xls

--
Salutations
JJ


"eneric" a écrit dans le message de news:

Bonjour,
comment forcer une date dans un inputbox
j'ai essayé dans le genre
If Not IsDate Then
MsgBox "Saisir une date!"
else blabla

j'ai vu que lorsqu'on utilise "Application.inputbox" on peut definir des
valeurs il y a entre autre la valeur 8 qui correspond a une reference de
cellule donc j'ai ecrit:
date = Application.InputBox("Votre date", Type:=8), ma cellule est bien au
format date, mais ca ne marche pas
si vous avez une proposition je suis preneur
cordialement

-- eneric







--
eneric
1 2