Dates, mois... [Résolu/Fermé]

Signaler
Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
-
michel_m
Messages postés
16036
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 janvier 2020
-
Bonjour et bonne année!

Je cherche à changer la langue pour les mois dans excel. Un truc tout bête: lorsque j'écris "01-13" dans une case, ça s'affiche "janvier-13"... C'est ça que je veux, mais dans une autre langue (régionale). Pour ce faire, j'ai créé une liste avec les mois dans cette langue, mais je ne sais pas comment la faire s'afficher... Si quelqu'un peut m'aider, ce serait sympa!


7 réponses

Messages postés
16036
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 janvier 2020
2851
Bonjour,

une proposition à adapter
http://cjoint.com/?3AwlIHSi0h7
Messages postés
24778
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
17 janvier 2020
4973
Bonjour
exact Michel.
Aller, un tout petit peu plus court sans le champ des N° de mois:
=SI(A1<>"";INDEX(D4:D15;MOIS(A1))&"-"&DROITE(ANNEE(A1);2))

Mais je pense que le demandeur voudrait peut être utiliser une seule cellule en utilisant VBA;
Tu dois avoir ça dans tes tiroirs?
je dis ça parce que je ne sais pas faire et ça m'intéresse :-))
crdlmnt (et bonne année si je ne l'ai pas encore fait)
Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
22
Oui, j'avoue que si je pouvais utiliser une seule cellule, cela m'arrangerait...
Mais au cas ce ne serait aps possible, la solution de michel est très satisfaisante!! :-)
Messages postés
16036
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 janvier 2020
2851
après le café et avant la sieste

à installer dans le module feuille concerné, zone d'action A2:A100 à adapter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
     mois = Month(Target)
     an_0 = Year(Target) Mod 1000
     mois_region = Choose(mois, "jan", "fev", "ma", "avr", "mai", "jun", "jul", "aou", "sep", "oct", "nov", "dec")
     'OU et seulement OU, liste des mois sur la feuille
    'mois région = Application.Match(mois, Range("Z1:Z12"), 0)
     Application.EnableEvents = False
          Target = mois_region & "-" & an_0
     Application.EnableEvents = True
End If
End Sub

Sub sos_macros()
'si sortie macro accidentelle macro avec enableevents désactivé
Application.EnableEvents = True
End Sub



Messages postés
495
Date d'inscription
mardi 5 février 2008
Statut
Membre
Dernière intervention
28 janvier 2016
22
Yes! Super! Merci!
Bon, finalement, je dois utiliser la première version, parce que j'avais oublié que j'avais utilisé cette cellule pour une autre formule utilisant les dates...

Mais je garde ça de côté, parce que ça me servira dans le futur!!

Encore merci!! et bravo!!
Messages postés
24778
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
17 janvier 2020
4973
Ben tiens moi aussi je garde ça,merci Michel
Crdlmnt
Messages postés
16036
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 janvier 2020
2851
C'est de bon coeur, ce sera pour vos étrennes !

Cordialement