mettre une date dans une cellule avec le bon format

Version imprimable

04/02/2009, 20h57
wrm8787

mettre une date dans une cellule avec le bon format

Bonjour, je cherche à mettre une date dans une cellule avec le format suivant : 04/JA/2009.

J'ai tenté avec la fonction date, cdate, format, j'ai cherché sur le net, mais il n'y a rien qui fonctionne avec le format que je désire.

mon code :

Code:

Cells(1, 6) = Format(Date, "dd/mm/yyyy")

merci de m'aider ;)

Bonjour,

Tu veux réellement 04/JA/2009 pour le 4 janvier 2009. Et non 04/01/2009?

Dans ce cas, je ne crois pas qu'il existe un format déjà prévu.
Tu peux toujours obtenir le jour, le mois et l'année séparément et les concaténé avec quelque chose comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function ObtenirDate()
    Dim Jour
    Dim Mois
    Dim Annee
    Dim MaDate
 
    Jour = Day(Date)
    Select Case Month(Date)
        Case 1: Mois = "JA"
        Case 2: Mois = "JF"
        Case 3: Mois = "MR"
        Case 4: Mois = "AV"
        Case 5: Mois = "MA"
        Case 6: Mois = "JN"
        Case 7: Mois = "JU"
        Case 8: Mois = "AU"
        Case 9: Mois = "SE"
        Case 10: Mois = "OC"
        Case 11: Mois = "NO"
        Case 12: Mois = "DE"
    End Select
    Annee = Year(Date)
 
    MaDate = Jour & "/" & Mois & "/" & Annee
    ObtenirDate = MaDate
 
End Function

Bonsoir,

Pour une date bizarre, elle l'est !

Bon ... (je m'en lave les mains)...

Code:

1
2
3
4
5
6
Private Function datebizarre(D As Date) As String
  Dim mois As String
  mois = Format(D, "mmm")
  mois = IIf(Month(D) <> 3 And Month(D) <> 6, Left(mois, 2), Left(mois, 1) & Mid(mois, 3, 1))
  datebizarre = Format(Day(D), "00") & "/" & UCase(mois) & "/" & Year(D)
End Function

EDIT :
Je n'aime pas le "JI" pour juin et préfère le "JN" proposé...
Alors on change :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Function datebizarre(D As Date) As String
  Select Case Month(D)
    Case 3
      mois = "MR"
    Case 6
      mois = "JN"
    Case Else
      mois = UCase(Left(Format(D, "mmm"), 2))
  End Select
  datebizarre = Format(Day(D), "00") & "/" & mois & "/" & Year(D)
End Function

RE-EDIT :
et comme les goûts et les couleurs ne se discutent pas, voilà ce qui est à la fois court et laisse toute liberté de baptème :

Code:

1
2
3
4
Private Function datebizarre(D As Date) As String
  mois = Array("", "JA", "FV", "MR", "AV", "MA", "JN", "JL", "AU", "SP", "OT", "NV", "DC")
  datebizarre = Format(Day(D), "00") & "/" & mois(Month(D)) & "/" & Year(D)
End Function

Il ne reste qu'à faire un choix, sans préjudice de la facilité d'utilisation de telles "dates" ...

04/02/2009, 23h05
pgz

Salut à tous.

Le pb c'est que si le demandeur voulait un format d'affichage, il a maintenant un changement de type : date --> Texte.

PGZ

ça marche!! Merci à tous, j'ai retenu la solution de ucfoutu, l'idée d'un vecteur est géniale!

@ pgz, je dois inscrire la date dans une cellule, alors même si c'est une chaine de caractère, c'est correct.

voici le code retenu :
Code:

1 2 3 4 Dim datebizarre As String mois = Array("", "JA", "FÉV", "MAR", "AVL", "MAI", "JN", "JL", "AU", "SEP", "OCT", "NOV", "DEC") datebizarre = Day(Date) & "/" & mois(Month(Date)) & "/" & Year(Date)

05/02/2009, 17h54
Loki83

super en effet!