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 controler la saisie dans une message box

controler la saisie dans une message box

7 réponses
Avatar
Fredo \(67\)
Bonjour j'utilise cette msg box pour demander à l'utilisateur la date :
Application.InputBox(Chr(13) & "Veuillez taper la date de la nouvelle
situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg
Signaler un problème avec ce contenu

7 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
Avatar
papou
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ", Type:=2)
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la date :
Application.InputBox(Chr(13) & "Veuillez taper la date de la nouvelle
situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg




Avatar
Fredo \(67\)
Merci Papou,

mais

si on tape 23/09-2004
ou 23 09 2004 c'est accepté.
il me faudrait ce format là obligatoirement 23/09/2004 (avec les "/")

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ", Type:=2)
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la date :
Application.InputBox(Chr(13) & "Veuillez taper la date de la nouvelle
situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg








Avatar
papou
Re
Do
ladate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ", Type:=2)
If IsDate(ladate) And ladate Like "??/??/????" Then Exit Do
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Merci Papou,

mais

si on tape 23/09-2004
ou 23 09 2004 c'est accepté.
il me faudrait ce format là obligatoirement 23/09/2004 (avec les "/")

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la date
:



Application.InputBox(Chr(13) & "Veuillez taper la date de la nouvelle
situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg












Avatar
Fredo \(67\)
C'est parfait
Merci beaucoup Papou..
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Do
ladate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ", Type:=2)
If IsDate(ladate) And ladate Like "??/??/????" Then Exit Do
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Merci Papou,

mais

si on tape 23/09-2004
ou 23 09 2004 c'est accepté.
il me faudrait ce format là obligatoirement 23/09/2004 (avec les "/")

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la
date




:
Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle




situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS
:




Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg
















Avatar
Fred. P
Bonjour Fredo
Un exemple infaillible même si l'on tape 8/5
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Range("A1").NumberFormat = "dd/mm/yy"
Ladate = InputBox(Chr(13) & "Tapez la date de la nouvelle situation")
Ladate = CDbl(CDate(Ladate))
[A1] = Ladate
Range("A1").NumberFormat = "dd/mm/yy"
End Sub

"Fredo (67)" a écrit dans le message de news:

C'est parfait
Merci beaucoup Papou..
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Do
ladate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


If IsDate(ladate) And ladate Like "??/??/????" Then Exit Do
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Merci Papou,

mais

si on tape 23/09-2004
ou 23 09 2004 c'est accepté.
il me faudrait ce format là obligatoirement 23/09/2004 (avec les "/")

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de
la




nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la
date




:
Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle




situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE
SITUATIONS





:
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg




















Avatar
papou
Bonjour
Un exemple infaillible même si l'on tape 8/5
Heu permet-moi de douter ;-)

Il n'y a pas de contrôle "exhaustif" de la saisie effectuée donc même si
effectivement avec ton exemple une date sera forcément renseignée, on peut
avoir des résultats plus que fantaisistes en fonction de ce qui sera saisi.
Cordialement
Pascal

"Fred. P" a écrit dans le message de
news:
Bonjour Fredo

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Range("A1").NumberFormat = "dd/mm/yy"
Ladate = InputBox(Chr(13) & "Tapez la date de la nouvelle situation")
Ladate = CDbl(CDate(Ladate))
[A1] = Ladate
Range("A1").NumberFormat = "dd/mm/yy"
End Sub

"Fredo (67)" a écrit dans le message de news:

C'est parfait
Merci beaucoup Papou..
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Do
ladate = Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


If IsDate(ladate) And ladate Like "??/??/????" Then Exit Do
Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Merci Papou,

mais

si on tape 23/09-2004
ou 23 09 2004 c'est accepté.
il me faudrait ce format là obligatoirement 23/09/2004 (avec les
"/")





"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Do While Not IsDate(LaDate)
LaDate = Application.InputBox(Chr(13) & "Veuillez taper la date de
la




nouvelle situation." _
& Chr(13) & "au format jj/mm/aaaa", "NOUVELLE SITUATIONS :Date ",
Type:=2)


Loop

Cordialement
Pascal

"Fredo (67)" a écrit dans le message de
news:
Bonjour j'utilise cette msg box pour demander à l'utilisateur la
date




:
Application.InputBox(Chr(13) & "Veuillez taper la date de la
nouvelle




situation." & Chr(13) & "au format jj/mm/aaaa", "NOUVELLE
SITUATIONS





:
Date", Type:=2)
je colle la saisie dans une variable

Mais comment obliger mes utilisateurs à rentrer une date
23/09/2004
le jour sur 2 chiffres
le mois sur 2 chiffres
l'année sur 4 chiffres ?

Est-ce possible par ce biais ou dois-je changer de méthode ?

--
**********************
Fredo
Strasbourg
























Avatar
AV
Un exemple infaillible même si l'on tape 8/5
Heu permet-moi de douter ;-)



Permets moi de m'associer au doute !
;-)
AV