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
-
Messages postés
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
-
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
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
3 111
Bonjour,

une proposition à adapter
https://www.cjoint.com/?3AwlIHSi0h7
Messages postés
25755
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
19 janvier 2021
5 716
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
25
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
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
3 111
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
25
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
25755
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
19 janvier 2021
5 716
Ben tiens moi aussi je garde ça,merci Michel
Crdlmnt
Messages postés
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
3 111
C'est de bon coeur, ce sera pour vos étrennes !

Cordialement