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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Conversion m3 en m - Forum Programmation
- Numéro allemand 11 chiffres - Forum Mobile
- Excel mois en lettre ✓ - Forum Excel
- Identifiant pôle emploi 7 chiffres - Forum Réseaux sociaux
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
210
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]).