Dans une cellule, j'ai l'instruction suivante:
With ActiveSheet()
Range("I4").Value = Date
etc.....
Je souhaiterais que la date s'inscrive de la façon suivante dans la cellule
I4:
au lieu de 12 07 2005
avoir 1 2 0 7 2 0 0 5 donc un espace entre chaque chiffre...
merci infiniment.... C'est parfait d'autant plus qu'il n'y a effectivement pas de calculs à effectuer...
Bonne journée
Denys
au lieu de 12 07 2005 avoir 1 2 0 7 2 0 0 5 donc un espace entre chaque chiffre...
Une seule ligne de code : Range("I4").Value = Format(Day(Date), "0"" ""0") & " " & Format(Month(Date), "0"" ""0") & " " & Format(Year(Date), "0"" ""0"" ""0"" ""0")
Attention : le résultat n'est pas une date mais du texte donc pas de calculs directs possibles ! AV
Modeste
Bonsour AV ;o))) ...fffffp deux lignes de code : Range("I4").Value = 1 * Format(Date, "ddmmyyyy") Range("I4").NumberFormat = "0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"
Attention : le résultat n'est pas une date ni un texte mais un nombre !!!! les calculs ultérieurs ne sont cependant pas plus aisés ;o)))) -- http://viadresse.com/?94912042
Bonsour AV
;o)))
...fffffp
deux lignes de code :
Range("I4").Value = 1 * Format(Date, "ddmmyyyy")
Range("I4").NumberFormat = "0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"
Attention : le résultat n'est pas une date ni un texte mais un nombre !!!!
les calculs ultérieurs ne sont cependant pas plus aisés
;o))))
--
http://viadresse.com/?94912042
Bonsour AV ;o))) ...fffffp deux lignes de code : Range("I4").Value = 1 * Format(Date, "ddmmyyyy") Range("I4").NumberFormat = "0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"" ""0"
Attention : le résultat n'est pas une date ni un texte mais un nombre !!!! les calculs ultérieurs ne sont cependant pas plus aisés ;o)))) -- http://viadresse.com/?94912042
