VBA / Inputbox et format date ............. Aiiiiie !!
6 réponses
pat rednef
Bonjour =E0 toutes & =E0 tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa =3D InputBox("Saisie de la date du jour", "Format=20
jour/mois/ann=E9e")
If aa =3D "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value =3D aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,=20
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend=20
parfaitement le 12 Novembre, je suis en param=EAtres=20
r=E9gional France, le format de la cellule est OK que=20
manque t'il pour qu'il interprete la saisie dans=20
l'InputBox comme dd/mm/yyyy ? (12/11/2004 =3D 12 Novembre=20
2004)
Il se passe forcement qq chose entre la saisie InputBox=20
et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci =E0 vous tous, bravo pour cet outil
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
Pounet95
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
Rebonjour,
Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35)
Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage.
Bonne recherche
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"pat rednef" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$a301280a@phx.gbl...
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
Pierre CFI [mvp]
bonjour c'est encore un coup des américains :o) en code vb il faut travailler la date en format us, pour qu'elle soit en format fr Format(aa,"mm/dd/yyyy")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "pat rednef" a écrit dans le message de news:65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
bonjour
c'est encore un coup des américains :o)
en code vb il faut travailler la date en format us, pour qu'elle soit en format fr
Format(aa,"mm/dd/yyyy")
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"pat rednef" <anonymous@discussions.microsoft.com> a écrit dans le message de news:65fe01c4c96e$ccbe36e0$a301280a@phx.gbl...
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
bonjour c'est encore un coup des américains :o) en code vb il faut travailler la date en format us, pour qu'elle soit en format fr Format(aa,"mm/dd/yyyy")
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "pat rednef" a écrit dans le message de news:65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
Jacky
Ou encore aa = Format(InputBox("Saisie de la date du jour", "Format jour/mois/année"), "mm/dd/yyyy")
JJ
"Pounet95" a écrit dans le message de news:
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
Ou encore
aa = Format(InputBox("Saisie de la date du jour", "Format jour/mois/année"),
"mm/dd/yyyy")
JJ
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de
news:e7s5EDXyEHA.3096@tk2msftngp13.phx.gbl...
Rebonjour,
Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35)
Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage.
Bonne recherche
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"pat rednef" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$a301280a@phx.gbl...
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
Ou encore aa = Format(InputBox("Saisie de la date du jour", "Format jour/mois/année"), "mm/dd/yyyy")
JJ
"Pounet95" a écrit dans le message de news:
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
pat rednef
Merci Pounet95
Impossible detrouver une réponse de Clement Marcotte le 10/11, pas de message le 10/11 après 20H ?? Peux tu me donner le titre de la question afin de trouver Je suis sur community et je connais aussi par google mais impossible à trouver
Merci d'avance pour ton aide précieuse
Bien à toi
Pat
-----Message d'origine----- Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
.
Merci Pounet95
Impossible detrouver une réponse de Clement Marcotte le
10/11, pas de message le 10/11 après 20H ??
Peux tu me donner le titre de la question afin de trouver
Je suis sur community et je connais aussi par google mais
impossible à trouver
Merci d'avance pour ton aide précieuse
Bien à toi
Pat
-----Message d'origine-----
Rebonjour,
Regardes bien sur le forum, notamment les réponses de
Clément Marcotte sur
ce sujet (10/11 à 20:35)
Et que vois-je dans ton code, un GOTO !!! C'est un
truc à s'y perdre en
cas de déboggage.
Bonne recherche
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"pat rednef" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$a301280a@phx.gbl...
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
Impossible detrouver une réponse de Clement Marcotte le 10/11, pas de message le 10/11 après 20H ?? Peux tu me donner le titre de la question afin de trouver Je suis sur community et je connais aussi par google mais impossible à trouver
Merci d'avance pour ton aide précieuse
Bien à toi
Pat
-----Message d'origine----- Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
.
PAT REDNEF
Merci Jacky
C'est top!! cela fonctionne parfaitement
Merci à toi et aux autres pour votre temps
A bientôt
Bien cordialement
Pat
-----Message d'origine----- Ou encore aa = Format(InputBox("Saisie de la date du jour", "Format jour/mois/année"),
"mm/dd/yyyy")
JJ
"Pounet95" a écrit dans le message de
news:
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
.
Merci Jacky
C'est top!! cela fonctionne parfaitement
Merci à toi et aux autres pour votre temps
A bientôt
Bien cordialement
Pat
-----Message d'origine-----
Ou encore
aa = Format(InputBox("Saisie de la date du
jour", "Format jour/mois/année"),
"mm/dd/yyyy")
JJ
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message
de
news:e7s5EDXyEHA.3096@tk2msftngp13.phx.gbl...
Rebonjour,
Regardes bien sur le forum, notamment les réponses de
Clément Marcotte sur
ce sujet (10/11 à 20:35)
Et que vois-je dans ton code, un GOTO !!! C'est un
truc à s'y perdre en
cas de déboggage.
Bonne recherche
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"pat rednef" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$a301280a@phx.gbl...
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
-----Message d'origine----- Ou encore aa = Format(InputBox("Saisie de la date du jour", "Format jour/mois/année"),
"mm/dd/yyyy")
JJ
"Pounet95" a écrit dans le message de
news:
Rebonjour, Regardes bien sur le forum, notamment les réponses de Clément Marcotte sur
ce sujet (10/11 à 20:35) Et que vois-je dans ton code, un GOTO !!! C'est un truc à s'y perdre en
cas de déboggage. Bonne recherche
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ "pat rednef" a écrit dans le message
de news: 65fe01c4c96e$ccbe36e0$ Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
.
Frédéric Sigonneau
Bonjour,
Une façon de faire parmi d'autres :
'=========== Sub MacroTotoDate() Dim aa aa = InputBox("Saisie de la date du jour", _ "Format jour/mois/année") If aa = "" Then Exit Sub If IsDate(aa) Then Range("E8").Value = CDate(aa) End Sub '========== FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
Quelqu'un a t'il la solution miracle
D'avance merci à vous tous, bravo pour cet outil
Bien sincèrement à ce magnifique Forum !
Pat
Bonjour,
Une façon de faire parmi d'autres :
'=========== Sub MacroTotoDate()
Dim aa
aa = InputBox("Saisie de la date du jour", _
"Format jour/mois/année")
If aa = "" Then Exit Sub
If IsDate(aa) Then Range("E8").Value = CDate(aa)
End Sub
'==========
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format
jour/mois/année")
If aa = "" Then exit Sub
If Not IsDate(aa) Then Goto 1
Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004,
si je saisi 21/10/2004 c'est OK il comprend 21 Oct.
J'ai saisi directement en E8 le 12/11/2004 il comprend
parfaitement le 12 Novembre, je suis en paramêtres
régional France, le format de la cellule est OK que
manque t'il pour qu'il interprete la saisie dans
l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre
2004)
Il se passe forcement qq chose entre la saisie InputBox
et la copie dans la case E8
'=========== Sub MacroTotoDate() Dim aa aa = InputBox("Saisie de la date du jour", _ "Format jour/mois/année") If aa = "" Then Exit Sub If IsDate(aa) Then Range("E8").Value = CDate(aa) End Sub '========== FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à toutes & à tous,
J'ai un bug dans mon code:(et je ne comprends pas !!!!)
Sub MacroTotoDate()
Dim aa
1 aa = InputBox("Saisie de la date du jour", "Format jour/mois/année")
If aa = "" Then exit Sub If Not IsDate(aa) Then Goto 1 Range("E8").value = aa
End Sub
Si je saisi 12/11/2004 (12 NOv) il comprend 11/12/2004, si je saisi 21/10/2004 c'est OK il comprend 21 Oct. J'ai saisi directement en E8 le 12/11/2004 il comprend parfaitement le 12 Novembre, je suis en paramêtres régional France, le format de la cellule est OK que manque t'il pour qu'il interprete la saisie dans l'InputBox comme dd/mm/yyyy ? (12/11/2004 = 12 Novembre 2004)
Il se passe forcement qq chose entre la saisie InputBox et la copie dans la case E8
