Convertir le nom du mois en numéro [Résolu]

drik56 127 Messages postés mercredi 16 avril 2008Date d'inscription 8 juillet 2008 Dernière intervention - 12 juin 2008 à 11:13 - Dernière réponse : jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention
- 12 juin 2008 à 13:55
Bonjour,

Voici une petite question toute simple :
Je ne connais pas toute les fonctions et je cherche a convertir une variable qui contient le nom du mois en numéro du mois.J'ai pas exemple USF.Combobox1.Value Janvier et je voudrais  NumMois(USF.Combobox1.Value) 1.
Une tel fonction existe t elle sinon je me débrouillerais ?

Merci
Afficher la suite 

7 réponses

Répondre au sujet
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 12 juin 2008 à 11:55
+3
Utile
Bonjour, (et sans préjudice de l'ooportunité de ce que tu fais là, car cela va dépendre de chaque machine !)


Private Sub Command3_Click()
  mois = "janvier"
  MsgBox Month("01/" & mois & "/2000")
  mois = "novembre"
  MsgBox Month("01/" & mois & "/2000")
End Sub
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmfmarques
drik56 127 Messages postés mercredi 16 avril 2008Date d'inscription 8 juillet 2008 Dernière intervention - 12 juin 2008 à 11:50
0
Utile
Bon sinon j'ai crée cette fonction (ma première ):

Function NumMois(Mois)
    Select Case (Mois)
        Case janvier
            NumMois = 1
        Case février
            NumMois = 2
        Case mars
            NumMois = 3
        Case avril
            NumMois = 4
        Case mai
            NumMois = 5
        Case juin
            NumMois = 6
        Case juillet
            NumMois = 7
        Case août
            NumMois = 8
        Case septembre
            NumMois = 9
        Case octobre
            NumMois = 10
        Case novembre
            NumMois = 11
        Case décembre
            NumMois = 12
    End Select
End Function

Pourriez-vous me dire si elle est bonne et je pourrais l'améliorer et comment ???

Merci
Commenter la réponse de drik56
drik56 127 Messages postés mercredi 16 avril 2008Date d'inscription 8 juillet 2008 Dernière intervention - 12 juin 2008 à 12:02
0
Utile
Bon alors la tu marque un point.
Je n'aurais pas pensé a faire ca et effectivement c'est ce qu'il me faut donc merci jmfmarques.

Sinon juste pour ma culture perso pourriez-vous corriger ma fonction histoire que je sache comment faire la prochaine fois. Merci
Commenter la réponse de drik56
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 12 juin 2008 à 12:15
0
Utile
Tu veux savoir corriger ta fonction ?

Ainsi :

Private Sub Command1_Click()
 MsgBox NumMois("mars")
End Sub



Private Function NumMois(Mois As String) As Integer
    Select Case Mois
        Case "janvier"
            NumMois = 1
        Case "février"
            NumMois = 2
        Case "mars"
            NumMois = 3
        Case "avril"
          'etc...
    End Select
End Function
Commenter la réponse de jmfmarques
drik56 127 Messages postés mercredi 16 avril 2008Date d'inscription 8 juillet 2008 Dernière intervention - 12 juin 2008 à 12:19
0
Utile
Ok Merci beaucoup
Je vois ou sont mes erreurs
Commenter la réponse de drik56
cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention - 12 juin 2008 à 12:48
0
Utile
 Bonjour,

Sur le même principe que jmfmarques (bonjour Jacques):

monMois = "juillet"

maDate = Day(now) & space(1) & monMois & space(1) & Year(now)
If IsDate(maDate) Then MsgBox Month(DateValue(maDate))

jean-marc
Commenter la réponse de cs_JMO
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 12 juin 2008 à 13:55
0
Utile
Bonjour Jean-Marc,

oui, on peut s'amuser avec tout (selon son humeur du moment), y compris ainsi

MsgBox Month(DateValue("juin " & 1 & "," & 0))
Commenter la réponse de jmfmarques

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.