OVH Cloud OVH Cloud

Conversion "mm/aa" en valeur 1/mm/aa

1 réponse
Avatar
LANIMAL
Bonjour
Le mois et la date sont saisis en texte dans une InputBox :
Date = InputBox...
La saisie est faite en format texte de la forme mm/aa
(ex. : 5/05 pour mai 2005 ou 11/98 pour novembre 1998)
Je fais ensuite :
Date = "1/" & Date
pour recaler le texte date au 1er du mois
La cellule A1 est formatée en nombre date au format jj/mm/aa .
J'espérais qu'avec le code suivant je retrouverais en A1
la date en valeur au format jj/mm/aa
Worksheets("Feuil1").Range("A1") = "1/" & Date
Mais je retrouve en A1 du texte :-(((
Comment retrouver en A1 la date en valeur ?
Merci.

1 réponse

Avatar
SL
Bonjour

Essaie :
Worksheets("Feuil1").Range("A1") = CDate("1/" & InputBox("Entrer le mois
sous la forme mm/aa"))

Stéphane

"LANIMAL" a écrit dans le message de news:
eFB6UP$
Bonjour
Le mois et la date sont saisis en texte dans une InputBox :
Date = InputBox...
La saisie est faite en format texte de la forme mm/aa
(ex. : 5/05 pour mai 2005 ou 11/98 pour novembre 1998)
Je fais ensuite :
Date = "1/" & Date
pour recaler le texte date au 1er du mois
La cellule A1 est formatée en nombre date au format jj/mm/aa .
J'espérais qu'avec le code suivant je retrouverais en A1
la date en valeur au format jj/mm/aa
Worksheets("Feuil1").Range("A1") = "1/" & Date
Mais je retrouve en A1 du texte :-(((
Comment retrouver en A1 la date en valeur ?
Merci.