Discussion :

[gedeon555]

Bonjour,

Je recopie une date d'une feuille vers une autre et J'obtiens ceci :
Sur la feuille initiale : 02/07/08
Sur la nouvelle feuille : 39631

Voici comment je m'y prend pour copier :

Code :

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

TasksSheet.Range("A" & j) = Worksheets("Action").Range("C" & i)

J'ai essaye de jouer sur plusieurs proprietes pour forcer le formatage de la date mais j'ai pas trouver ce que je voulais.

[ilcocodrillo]

Mouai... tu t'es pas trop foulé sur s'coup là....

tu aurai fais F1 et tapé date tu aurais eu ça :

Code :

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

1
2
3
4
5
6
 
Afficher des nombres sous forme de dates ou d'heures
Sélectionnez les cellules à mettre en forme. 
Dans le menu Format, cliquez sur Cellule, puis sur l'onglet Nombre. 
Dans la liste Catégorie, cliquez sur Date ou sur Heure, puis sur le format que vous voulez utiliser. 
Remarque   Si vous ne trouvez pas ce que vous cherchez, vous pouvez créer un format de nombre personnalisé à l'aide de codes de format pour les dates et les heures.

C'est bien de chercher un peu avant de venir poser des questions aussi basique sur un forum...

[gedeon555]

Desole c'est entierement ma faute, je me suis mal fait comprendre.
Je voudrais proceder au formatage uniquement en VBA. Sans utiliser la souris et sans interaction avec l'utilisateur. un truc du genre :

Range("A1").format = xlDate

[fring]

Bonjour,

Essaye ceci :

Code :

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

TasksSheet.Range("A" & j) = Format(Worksheets("Action").Range("C" & i), "dd:mm:yy")

[gedeon555]

Mon 2 Juillet 2008 (02/07/2008) devient 0.088287037037037

[fring]

c'est que tu as loupé une virgule, un guillemet, une parenthèse, ... parce que la mise au format fonctionne de cette manière

tu peux également essayer ceci :

Code :

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

TasksSheet.Range("A" & j) = CDate(Worksheets("Action").Range("C" & i))