Discussion :

[Rainmax]

Bonjour à tous,

J'ai un soucis d'affichage de format pour une date dans ma macro et je ne comprend pas pourquoi.

Voisi le code que j'utilise:


AsOf vaut ici 42489

Cependant voici ce qui est affiché dans la cellule:


Au lieu de:


Merci par avance de votre aide,
Rainmax

[Kiouane]

Tu peux utiliser ce code mais y'a mieux, ou tout simplement modifier le format de la cellule.

Code :

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

Range("O2").NumberFormat = "[$-40C]mmmm-yy;@"

[Promethee25]

Bonjour,

Pourquoi modifies-tu le format en VBA plutôt que d'utiliser le format de cellules sous Excel?
Comment est configuré le format de cellule de ta case de sortie?

=> Si tu veux que ça marche tel que tu l'as fait, il faut probablement appliquer un format de cellule "texte" mais la bonne solution serait plutôt de ne pas toucher au format sous VBA et d'appliquer le bon format de date sous Excel.

[tamtam64]

met :

Code :

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

cdate(Asof)

et change le format directement dans la cellule ou applique le directement à la colonne en question c'est mieux car effectivement , j'ai eu le même probleme que toi dans un projet , sinon tu met en string mais c'est pas propre du tout .

tout autre solution serait du bidouillage, la fonction format a ses limites.

[Rainmax]

Le soucis c'est que nous faisons des reportings mensuel de manière automatique et nous souhaitons qu'il n'y ait aucun retraitement manuel aprés le déroulement de la macro.

@Kiouane: Merci pour ta proposition mais cela m'affiche: "avr.-16" dans la cellule au lieu de "Avr-16"

Merci pour vos retours et vos conseils mais le problème persiste :/

Rainmax.

[tamtam64]

Ca ne demande pas de retraitement manuel, ca te demande de le faire une fois pour toute tu prend ta colonne et tu change le format de date c'est tt apres c'est fait

Ou dans ta macro tu mets en format string

Code :

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

str(Asof)

[Promethee25]

Effectivement, pas besoin de traitement manuel répétitif: tu configures manuellement ton template Excel une bonne fois pour toutes au début et tu le sauvegardes ou bien tu modifies à chaud le format de cellule par macro (le premier cas étant le plus simple et le plus facile à maintenir).

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
MyDate Date, Range("A1")
End Sub
Sub MyDate( D, ByRef C)
Asof = Format(CDate(D), "mmm-yy")
C.NumberFormat = "general"
C.Value = UCase(Left(Asof, 1)) & LCase(Right(Asof, Len(Asof) - 1))
End Sub

[Docmarti]

Bonjour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Ecrire_date()
 
asof = 42469
 
'Ecrire une valeur numerique pour éviter les problèmes d'inversion Jour/Mois
Range("O2").Value = CDbl(asof)
 
'La cellule contient une valeur de type  numérique (Double)
Range("O3") = TypeName(Range("O2").Value)
 
'Mettre la cellule au format date désiré
Range("O2").NumberFormat = "mmm-yy"
 
'La cellule contient une valeur de type Date
Range("O3") = TypeName(Range("O2").Value)
 
End Sub