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))

[gedeon555]

Not working (vous pouvez pas comprendre, c'est de l'anglais)
J'ai encore besoin de vous les gars.
C'est si hardu que ca de datifier un nombre ?

J'ai meme essayer Range("A1") = "07/07/2008" et ca donne encore un nombre. JE VEUX UNE DATE SALOPERIE D'ORDI (a tous les coups, c'est une blonde mon ordi)

[fring]

C'est si hardu que ca de datifier un nombre ?

non mais c'est hardu de trouver le problème à ta place !

ta cellule de destination est probablement préformatée

Code :

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

1
2
3
4
With TasksSheet.Range("A" & j)
    .NumberFormat = "General"
    .Value = CDate(Worksheets("Action").Range("C" & i))
End With

[ilcocodrillo]

il y a ça que j'utilise souvent c'ets du testé garantie jusqu'au procahin clic !

Code :

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

1
2
3
 
 
Cells(1, 1) = Format(MaDate, "dd/mm/yyyy")

du moment que Madate est numérique et positive ça marche

Je pense que tu devrait trouver ou metrte ça dans ton code

[gedeon555]

Non en fait le probleme n'avait absolument rien a voir, je viens de tout resoudre. Je faisais un :

Worksheets("Tasks").Range("A" & j & ":G" & j).Style = "Data"

Et meme si je ne touche pas du tout au NumberFormat de la cellule, l'application du style me faisait foirer le formatage.

Merci a tous, desole de vous avoir fait perdre du temps