[RESOLU] No mois à partir mois en lettres

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cathodique

XLDnaute Barbatruc
Bonjour🙂,
Avec le code ci-dessous, j'arrive à avoir le mois en lettres à partir de son numéro.
Je voudrais effectuer l'opération inverse. C'est à dire avoir le numéro du mois à partir de nom nom.
Soit soit d'une combobox ou d'une cellule.
exemple: en A1 il y a Janvier -----> résultat souhaité en B1: 1
Code:
Option Explicit   'Dans module standard
Public sMois(1 To 12)

Sub CodeMois()
   sMois(1) = "Janvier": sMois(2) = "Février": sMois(3) = "Mars": sMois(4) = "Avril"
   sMois(5) = "Mai": sMois(6) = "Juin": sMois(7) = "juillet": sMois(8) = "Août"
   sMois(9) = "Septembre": sMois(10) = "Octobre": sMois(11) = "Novembre": sMois(12) = "Décembre"
End Sub

J'avoue être un peu perdu, j'ai essayé avec un tableau comme ci-dessus en inversant les données. Echec!

Merci.
 
Bonjour cathodique
bonjour le Fil ,le Forum
peux tu mettre un fichier ?
car pas évident , Cellule , ComboBox
tu pourrais récupérer l'index du ComboBox(si ComboBox???)
Valeur = ComboBox.ListIndex+1 , si Janvier sélectionnée donne 1 ,etc etc
Bonne journée
Amicalement
jean marie
 
Bonjour Jean Maire🙂,

Aussi matinal que moi. Pour un fichier ça va me prendre un peu de temps.
On laisse tomber la combobox. et on travaille avec les cellules.

Supposant qu'en A1= Janvier, je voudrais en B1=1

Entre temps je m'inspirais du site de Boisgontier en utilisant un dictionnaire.
Mais échec cuisant, je ne comprends pas pourquoi?
VB:
'Option Explicit   'Dans module standard
Public d As Object
Sub CodeNoMois()
d = CreateObject("Scripting.Dictionary") '***plante ici
   d.Item("Janvier") = 1:  d.Item("Février") = 2:  d.Item("Mars") = 3
   d.Item("Avril") = 4:  d("Mai") = 5:  d.Item("Juin") = 6
   d.Item("juillet") = 7:  d.Item("Août") = 8:   d.Item("Septembre") = 9
   d.Item("Octobre") = 10:  d.Item("Novembre") = 11:  d.Item("Décembre") = 12
End Sub
Sub test()
CodeNoMois
MsgBox d.Item("Janvier")
End Sub

Capture.JPG

ci-dessus erreur.

Merci pour ton aide.

Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
498
Retour