Discussion :

[retraite83]

Bonjour,

encore un pb de format de date…

j'ai une cellule Excel au format date jj/mm/aaa qui peut être saisie par l'utilisateur sous cette forme. Pas de problème de saisie

Cette même cellule peut être renseignée par une macro, dans ce cas malgré la date sous cette forme en String, elle s'affiche en mm/jj/aaaa par une fonction Range

J'ai beau essayé toutes les formes (sauf la bonne) de Format ou NumberFormat et toutes mes lectures, rien à faire ma cellule est toujours en mm/jj/aaaa après la fonction Range

Il existe de nombreux articles sur les formats date, mais avez vous une piste pour la transformation au format voulu pendant le Range ou juste après ?

[unparia]

Bonjour
Il manque assurément l'essentiel :

Cette même cellule peut être renseignée par une macro

cette macro.

[retraite83]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range("C8") = dateFact     
Range("C8).HorizontalAlignment = xlCenter

DateFact à pour valeur la date du jour : "08/01/2019"

après Range("C8") la valeur de la cellule est : "01/08/2019"

[Patrice740]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range("C8") = dateFact     
Range("C8).HorizontalAlignment = xlCenter

DateFact à pour valeur la date du jour : "08/01/2019"

après Range("C8") la valeur de la cellule est : "01/08/2019"

Si ta variable est typée correctement ça fonctionne toujours :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim dateFact As Date
 
  dateFact = Date
  Range("C8") = dateFact
  Range("C8").HorizontalAlignment = xlCenter

[retraite83]

Oui merci c'est bon ainsi

J'avais effectivement typée la cellule comme string et j'essayai de jouer sur le format date excel, 1ere fois que j'utilise le format date (tellement de possibilités en VBA....)

[BENNASR]

bonsoir
j'ai vu des amis du site recommandent ce-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("C8").Value = DateSerial(Year(Now()), Month(Now()), Day(Now()))
 Range("C8").HorizontalAlignment = xlCenter