Discussion :

[wrm8787]

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 :

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

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

merci de m'aider

[drakkar_agfa]

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 :

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

[ucfoutu]

Bonsoir,

Pour une date bizarre, elle l'est !

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

Code :

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

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 :

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

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 :

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

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

[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

[wrm8787]

ç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 :

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

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)

[Loki83]

super en effet!