Discussion :

[cchampion2fr]

Ma cellule contient une date mais je veux forcer son format. Cela m'affiche des numeros à la place correspondant au nombre de jours!

Code :

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

Cells(k, 1) = Cells(3, 2)

Format de la date souhaitée : AAAAMMJJ

Dans une autre cellule je rentre la formule suivante :

Code :

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

Cells(k, 3).Value = "=TODAY()"

Il me faudrait forcé la date au format suivant : AAAAMMJJHHMM

[Invité]

Regardez dans l'aide de VBA : fonction "Format", Class "Strings" , vous avez tous les exemples.

[cchampion2fr]

Je ne vois pas ...!!
dans l'aide à chaque fois j'ai jste aammjj mais rien qui m'aide vraiment comment forcer la valeur du champs à un format de date souhaité!

[Godzestla]

Bonjour,

quand je ne sais pas, je fais comme ceci.

teste, cela fonctionne.

Outil -> Macro -> Enregistrer nouvelle macro

Tu formattes alors ta cellule à ta guise.

Outil -> MAcro -> Arrêter enregistrement

Résultat dans modulen

Pour ta demande j'ai obtenu

Code :

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

1
2
 
    Selection.NumberFormat = "yyyymmdd""T""hhmmss;@"

que tu peux aisément transformer en

Code :

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

1
2
 
    Selection.NumberFormat = "yyyymmddhhmmss;@"

C'est en trouvant soi-même qu'on apprend le plus.

[cchampion2fr]

Code :

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

Cells(k, 3).Value = "=TODAY()".Selection.NumberFormat = "yyyymmddhhmmss;@"

Ne fnctionne pas!je ne connais pas la syntaxe.

Je sais bien qu'en passant par l'enregistreur macro je peux trouver le bon format mais c'est dans la redaction du code que j'ai un probleme...
Comment indiquer qu'on veut que notre cellule reference(cells(i,2) soit de tel format.

Merci.

[Godzestla]

En faisant 2 instructions :

Code :

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

1
2
3
 
Cells(k, 3).Value = "=TODAY()"
cells(k,3).NumberFormat = "yyyymmddhhmmss;@"

[cchampion2fr]

merci..j'aurai pu chercher longtemps..

[Godzestla]

merci..j'aurai pu chercher longtemps..

C'est logique, car quand manuellement tu saisis =Today() et que tu forces le format, tu le fais en 2 étapes distinctes.