Conversion chiffres en mois

ruth -  
Marden Messages postés 1075 Statut Membre -
Bonjour à tous !
Svp existe t il en vb une fonction qui permet la conversion directement des chiffres (1 à 12) en mois?
exemple:1 en Janvier,2 en février
Merci

2 réponses

  1. Profil bloqué
     
    je ne sais pas si ça existe mais tu peux créer facilement une fonction qui fait ça.

    Public Function conversion(num As Integer) As String
    Select Case num
    Case 1
    conversion = "janvier"
    Case 2
    conversion = "février"
    Case 3
    conversion = "mars"
    Case 4
    conversion = "avril"
    Case 5
    conversion = "mai"
    Case 6
    conversion = "juin"
    Case 7
    conversion = "juillet"
    Case 8
    conversion = "aout"
    Case 9
    conversion = "septembre"
    Case 10
    conversion = "octobre"
    Case 11
    conversion = "novembre"
    Case 12
    conversion = "décembre"
    Else
    conversion = "erreur"
    End Select
    End Function

    tu peux l'essayer avec une userform et deux zones de textes
    et un bouton de commande

    1 ère zone de texte pour les numéro
    2 ème pour l'affichage des mois
    bouton de commande :

    Private Sub CommandButton1_Click()
    Text2.Text = conversion(val(Text1.Text))
    End Sub

    la fonction marche bien, tu peux la copier dans ton projet pour pouvoir l'utiliser.

    time is not money, time is life
    0
  2. Marden Messages postés 1075 Statut Membre 210
     
    C'est typiquement le genre de fonction à programmer avec un tableau, quelque soit le langage. Avec un test sur la validité du numéro, pour pointer éventuellement sur la valeur erronée (selon le langage, d'indice [0] ou [13]).
    0