Erreur Format Date VBA

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:
Pièce jointe 209133

AsOf vaut ici 42489

Cependant voici ce qui est affiché dans la cellule:
Pièce jointe 209134

Au lieu de:
Pièce jointe 209135

Merci par avance de votre aide,
Rainmax

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

Code:

---

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

---

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.

met :

Code:

---

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.

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.

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:

---

str(Asof)

---

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

Bonjour,

Code:

---

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

---

Bonjour.

Code:

---

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

---