Range("m3").Select
response1 = Application.InputBox("Date de Début jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("m3").Value)
If response1 <> False Then ActiveCell.Value = response1
Range("n3").Select
response2 = Application.InputBox("Date de Fin de jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("n3").Value)
If response2 <> False Then ActiveCell.Value = response2
End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle
12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai
beau changer le format de cette cellule elle revient au format "anglais" des
que j'excecute cette macro
je comprend pas
merci de votre aide
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
Eddy Maue
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et ajuste à ton gout
a+ eddy PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et
ajuste à ton gout
a+ eddy
PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro
Sub saisie()
Range("m3").Select
response1 = Application.InputBox("Date de Début jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("m3").Value)
If response1 <> False Then ActiveCell.Value = response1
Range("n3").Select
response2 = Application.InputBox("Date de Fin de jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("n3").Value)
If response2 <> False Then ActiveCell.Value = response2
End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle
12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai
beau changer le format de cette cellule elle revient au format "anglais" des
que j'excecute cette macro
je comprend pas
merci de votre aide
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et ajuste à ton gout
a+ eddy PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
PTIFRED DU 62
merci Eddy, mais ca n'a aucun raport avec mon probleme, ce n'est pas la date system qui m'embette c'est la proprieter de certaines cellule d'excel dans ma macro
merci quand meme de ta reponse
pti fred du 62
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et ajuste à ton gout
a+ eddy PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
merci Eddy, mais ca n'a aucun raport avec mon probleme, ce n'est pas la date
system qui m'embette c'est la proprieter de certaines cellule d'excel dans ma
macro
merci quand meme de ta reponse
pti fred du 62
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et
ajuste à ton gout
a+ eddy
PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro
Sub saisie()
Range("m3").Select
response1 = Application.InputBox("Date de Début jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("m3").Value)
If response1 <> False Then ActiveCell.Value = response1
Range("n3").Select
response2 = Application.InputBox("Date de Fin de jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("n3").Value)
If response2 <> False Then ActiveCell.Value = response2
End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle
12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai
beau changer le format de cette cellule elle revient au format "anglais" des
que j'excecute cette macro
je comprend pas
merci de votre aide
merci Eddy, mais ca n'a aucun raport avec mon probleme, ce n'est pas la date system qui m'embette c'est la proprieter de certaines cellule d'excel dans ma macro
merci quand meme de ta reponse
pti fred du 62
Va dans Option Régionnales du panneau de configuration et regarde ce qui est et ajuste à ton gout
a+ eddy PTIFRED DU 62 a pensé très fort :
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Céline Dion
"PTIFRED DU 62" a écrit dans le message de news:
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça : If response2 <> False Then ActiveCell.Value = cdate(response2)
Cordialités Céline D.
"PTIFRED DU 62" <PTIFREDDU62@discussions.microsoft.com> a écrit dans le
message de news: 6CAFB8D9-662B-4BB9-9562-A2137B7773D3@microsoft.com...
Bonjours
gros soucis j'ai ceci dans ma macro
Sub saisie()
Range("m3").Select
response1 = Application.InputBox("Date de Début jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("m3").Value)
If response1 <> False Then ActiveCell.Value = response1
Range("n3").Select
response2 = Application.InputBox("Date de Fin de jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("n3").Value)
If response2 <> False Then ActiveCell.Value = response2
End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle
12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai
beau changer le format de cette cellule elle revient au format "anglais"
des
que j'excecute cette macro
je comprend pas
merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça :
If response2 <> False Then ActiveCell.Value = cdate(response2)
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça : If response2 <> False Then ActiveCell.Value = cdate(response2)
Cordialités Céline D.
PTIFRED DU 62
Impec celine j'ai changer mes 2 (reponses) ca marche comme je veux merci encore bonne journee
"PTIFRED DU 62" a écrit dans le message de news:
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça : If response2 <> False Then ActiveCell.Value = cdate(response2)
Cordialités Céline D.
Impec celine j'ai changer mes 2 (reponses)
ca marche comme je veux merci encore
bonne journee
"PTIFRED DU 62" <PTIFREDDU62@discussions.microsoft.com> a écrit dans le
message de news: 6CAFB8D9-662B-4BB9-9562-A2137B7773D3@microsoft.com...
Bonjours
gros soucis j'ai ceci dans ma macro
Sub saisie()
Range("m3").Select
response1 = Application.InputBox("Date de Début jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("m3").Value)
If response1 <> False Then ActiveCell.Value = response1
Range("n3").Select
response2 = Application.InputBox("Date de Fin de jj/mm/aa", ,
ActiveWorkbook.ActiveSheet.Range("n3").Value)
If response2 <> False Then ActiveCell.Value = response2
End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle
12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai
beau changer le format de cette cellule elle revient au format "anglais"
des
que j'excecute cette macro
je comprend pas
merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça :
If response2 <> False Then ActiveCell.Value = cdate(response2)
Impec celine j'ai changer mes 2 (reponses) ca marche comme je veux merci encore bonne journee
"PTIFRED DU 62" a écrit dans le message de news:
Bonjours
gros soucis j'ai ceci dans ma macro Sub saisie()
Range("m3").Select response1 = Application.InputBox("Date de Début jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("m3").Value) If response1 <> False Then ActiveCell.Value = response1 Range("n3").Select response2 = Application.InputBox("Date de Fin de jj/mm/aa", , ActiveWorkbook.ActiveSheet.Range("n3").Value) If response2 <> False Then ActiveCell.Value = response2 End Sub
le probleme c'est que la date saisie 10/12/06 devient dans la celulle 12/10/06 mais seulement dans la premiere la 2eme passe correctement, j'ai beau changer le format de cette cellule elle revient au format "anglais" des que j'excecute cette macro je comprend pas merci de votre aide
pti fred du 62
Bonjour,
Corrige comme ça : If response2 <> False Then ActiveCell.Value = cdate(response2)
