Conversion chiffres en mois
Fermé
ruth
-
21 août 2003 à 15:07
Marden Messages postés 1072 Date d'inscription dimanche 11 février 2001 Statut Membre Dernière intervention 29 janvier 2006 - 23 août 2003 à 13:35
Marden Messages postés 1072 Date d'inscription dimanche 11 février 2001 Statut Membre Dernière intervention 29 janvier 2006 - 23 août 2003 à 13:35
A voir également:
- Conversion chiffres en mois
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- 1 million dinar algérien en chiffre - Forum Logiciels
- Nombre de combinaison possible avec 8 chiffres - Forum Programmation
- Mois en chiffre - Forum Excel
- Convertir un mois en chiffre en lettre RESOLU ✓ - Forum Bureautique
2 réponses
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
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
Marden
Messages postés
1072
Date d'inscription
dimanche 11 février 2001
Statut
Membre
Dernière intervention
29 janvier 2006
208
23 août 2003 à 13:35
23 août 2003 à 13:35
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]).