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

Question

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!


Configuration: Système d'exploitation Windows 7
Carte mère:  SMBios version 2.3
Processeur:  AMD Athlon(tm) XP 1600+ (1400Mhz) (L1: 128ko L2: 256ko )
Mémoire:  1023Mo
Lecteurs CD/DVD:  HL-DT-STDVD-RAM GSA-H55N1.03 (DVD-RAM Recorder)
AXV CD/DVD-ROM 2.2a (DVD-ROM)

Disque dur:  HDT722516DLAT80 (153.38Go)

Affichage: 
ATI Technologies Inc:Radeon RV250 If [Radeon 9000]
Périphérique USB FreeBox SA Carte réseau virtuelle FreeBox USB (FreeBox 4)

michel_m · Answer

Bonjour,

une proposition à adapter
https://www.cjoint.com/?3AwlIHSi0h7

Vaucluse · Answer

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)

beru002 · Answer

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!! :-)

michel_m · Answer

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

beru002 · Answer

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

Vaucluse · Answer

Ben tiens moi aussi je garde ça,merci Michel
Crdlmnt

michel_m · Answer

C'est de bon coeur, ce sera pour vos étrennes ! 

Cordialement

Dates, mois...

7 réponses

Discussions similaires