Excel date/mois
Vanene
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,
//J'ai un dossier excel ds lequel la colonne A par ex contient des dates sur plusieurs lignes (format: 03/07/2012). A partir de ces dates, dans une deuxième colonne, j'inscris uniquement le mois. J'ai réussi à changer le format en lettre. Ainsi au lieu d'avoir 07, j'ai inscrit juil (pour juillet). Cependant j'aimerais avoir le mois inscrit en anglais.
Avez-vous une idée de comment faire.
Merci par avance!!!!
Vanessa
//J'ai un dossier excel ds lequel la colonne A par ex contient des dates sur plusieurs lignes (format: 03/07/2012). A partir de ces dates, dans une deuxième colonne, j'inscris uniquement le mois. J'ai réussi à changer le format en lettre. Ainsi au lieu d'avoir 07, j'ai inscrit juil (pour juillet). Cependant j'aimerais avoir le mois inscrit en anglais.
Avez-vous une idée de comment faire.
Merci par avance!!!!
Vanessa
1 réponse
-
Bonjour,
comme je ne sais pas ce que vous avez "bricolé" ....
La petite phrase
J'ai réussi à changer le format en lettre. Ainsi au lieu d'avoir 07, j'ai inscrit juil (pour juillet
me laisse interrogatif....
normalement dans une ceullule en écrivant =MOIS(A5) renvoie 7 si dans A5 il y 03/07/2012. pour avoir le nom du mois on peux écrire toujours dans une cellule
=texte(A5;"mmmm") te donnera le mois en français donc juillet .
pour l'avoir en anglais ou autre il faut changer cela dans les paramètres regionnaux ( pas toujours cool)
ou tu peux recopier ce code et le mettre dans un module.
et dans une cellule =MoisEnglish(A5) renvoie july
il y a peut-être une autre solution....mais je ne la connais pas.Function MoisEnglish(LaDate As Date) As String Application.Volatile Dim numMois As Integer numMois = Month(LaDate) Select Case numMois Case 1 MoisEnglish = "january" Case 2 MoisEnglish = "february" Case 3 MoisEnglish = "march" Case 4 MoisEnglish = "april" Case 5 MoisEnglish = "may" Case 6 MoisEnglish = "june" Case 7 MoisEnglish = "july" Case 8 MoisEnglish = "august" Case 9 MoisEnglish = "september" Case 10 MoisEnglish = "october" Case 11 MoisEnglish = "november" Case 12 MoisEnglish = "december" Case Else Exit Function End Select End Function