[RESOLU] No mois à partir mois en lettres

cathodique · 22 Février 2018

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 · 22 Février 2018

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 · 22 Février 2018

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

ci-dessus erreur.

Merci pour ton aide.

Bonne journée

cathodique · 22 Février 2018

Désolé, un grosse bêtise matinale, j'avais oublié le Set avant d.

bonne journée!

[RESOLU] No mois à partir mois en lettres

cathodique

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires