Discussion :

[bakman]

Bonjour a tous!
je souhaite formater une date de facon à la rendre comme ceci "Dec-10"
Quand je fait ceci la date me reviens en francais

Code :

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

1
2
 
 ReportingDate = Format(Date, "mmm-yy")

Or j'ai besoin qu'elle s'affiche en anglais je souhaiterais si possible éviter un truc
très moche comme ceci

Code :

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

1
2
3
4
5
6
7
8
 
If Month(Date) = 1 Then
                                              ReportingDate = "Jan-" & Right(Year(Date), 2)
       ElseIf Month(Date) = 2 Then ReportingDate = "Feb-" & Right(Year(Date), 2)
        ElseIf Month(Date) = 3 Then ReportingDate = "Mar-" & Right(Year(Date), 2)
        ElseIf Month(Date) = 4 Then ReportingDate = "Apr-" & Right(Year(Date), 2)
        ElseIf Month(Date) = 5 Then ReportingDate = "May-" & Right(Year(Date), 2)
Etc Etc

une petite idée ????

[Didier Gonard]

une petite idée ????

oui, une idée du contexte précis nous permettrai de répondre précisémment :

Il s'agit de la formater pour un affichage à quel endroit ?

cordialement,

Didier

[bakman]

Merci pour vos réponses
ALors oui je vais precisé

Et bien j'ai un classeur excel avec dans des colonnes des mois en anglais
de Jan-10 à Jan-11. lorsque je fait

Code :

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

1
2
3
4
5
6
 
Dim Currentmonth As Range
With Range("K23:V23")
 
         Set Currentmonth = .Find(Left(ReportingDate, 3), LookIn:=xlValues, lookat:=xlPart)      
    End With

ReportingDate est bien égale à "Jan-11"
mais une fois passé dans le Set Currentmonth = "01/01/2010"

Pourquoi les Mois en anglais car si ReportingDate est à un format comme celui-ci "déc-10" Currentmonth = nothing.
Donc je vais géré avec le tableau mais par contre sauriez vous pourquoi
Currentmonth n'est pas = à "01/01/2011"?

merci

[bakman]

Bon je retire ma question
la colonne était pas dans le range ^^

Merci a vous tous bonne journée et à bientôt!!!
ALex

[marot_r]

Difficile de passer à côté mais tu peux aussi faire comme cela

Code :

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

1
2
Dim tNomMois as variant:tNomMois=Array("Jan", "Feb", ..., "Dec")'remplacer les ... par les mois manquant :-).
ReportingDate=tnomMois(month(Date())-1) & "-" & format$(Date(),"yy")

A+

[jfontaine]

Bonjour

La langue des dates dépend e la langue des paramètres régionnaux.

Il va donc falloir transcrire les mois en anglais si tu veux utiliser sur des postes en francais

[mayekeul]

bonjour,

chez moi, je fait ça par exemple

Code :

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

1
2
 
application.WorksheetFunction.Text("01/01/2010","mmmm")

[jfontaine]

Ca je vais le noter

[mercatog]

Code :

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

Range("B1").Value = "'" & Application.Text(Range("A1").Value, "mmm-yy")

Edit: Désolé pas rafarichi, bonjour à tous