[RESOLU] No mois à partir mois en lettres

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.
 

ChTi160

XLDnaute Barbatruc
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
 

cathodique

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
5
Affichages
512
Réponses
13
Affichages
501

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390