Discussion :

[ceuce]

Bonjour,

J'aimerai savoir s'il existe une fonction (mais aprés avoir bien cherché, je ne crois pas) qui pourrai donner le numéro du mois en ayant son nom français.
Par exemple, FonctionMois("décembre") =12, où fonctionMois est le nom de la fonction.

Je sais que l'inverse existe (MonthName), mais je ne peux pas m'en servir pour ce que je veux faire.

Merci pour votre aide

Ceuce

[Invité]

Bonjour Ceuce,

A partir d'une formule sur Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOIS("01" & (A1))

Ou exemple en VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
nmois = Month("01 " & Cells(1, 1))

[ucfoutu]

Bonjour,

Exemple, ntre autres possibilités :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
 monmois = "décembre"
 MsgBox Month("01 " & monmois & " 2000")
 monmois = "mars"
 MsgBox Month("01 " & monmois & " 2000")
End Sub

Bonne continuation...

[ceuce]

Bonjour à tous les 2 et merci de m'avoir répondu.

Je pense que je me suis mal exprimée. Je cherche par exemple le moyen de trouver 12 avec une fonction vba en ayant seulement le string "décembre" comme argument.

Suis-je plus clair?

[ucfoutu]

Explique, expose... CLAIREMENT ... et COMPLETEMENT
Ne "tourne donc pas autour du vrai pot"
Et tu auras la réponse précise..

[Heureux-oli]

Rien ne t'empêche de la faire ta fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Fucntion MyMois(monMois as string) as string
Select Case monMois
Case "janvier"
MyMois = "01"
Case "février"
MyMois = "02"
.....
 
End Function

[Invité]

Bonjour

Ou peut-être en plus court

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function ChiffreMois(strMois As String) As Long
    ChiffreMois = Month(CDate("01 " & strMois & " 2007"))
End Function

Ex : ChiffreMois("février") te donnera 2

Pense à mettre une gestion d'erreur, si le mois est mal saisi.

Starec

[ucfoutu]

J'ai signalé une manière plus haut, en précisant qu'il y en avait beaucoup !

En voilà une 2ème (parmi d'autres encore) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
 MsgBox Format("janvier" & " 01 2001", "mm")
 MsgBox Format("août" & " 01 2001", "mm")
End Sub

[ceuce]

merci à tous,

j'avais opté pour la solution proposé par Heureux-oli en attendant de trouver une solution plus simple (enfin qui prend moins de place), mais je vais regarder vos propositions.

ceuce

[ucfoutu]

Pendant que tu en es à l'examen :

Vois donc également celle-ci (qui colle parfaitement aux particularismes de VB, mais est certes un peu plus difficile à comprendre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
 monmois = "février"
 MsgBox Month(DateValue(monmois & ", 0"))
End Sub

Bonne continuation...

[ceuce]

Et bien finalement j'opte pour ta proposition ucfo, c'est la plus simple à mes yeux! Encore merci