Cette fonction permet d'écrire un nombre en toutes lettres

Soyez le premier à donner votre avis sur cette source.

Vue 3 410 fois - Téléchargée 803 fois

Description

Function Unité(nombre1 As Double) As String

Dim lettre As String

Select Case nombre1

Case 0 To 0.9: lettre = "Zéro"
Case 1 To 1.9: lettre = "Un"
Case 2 To 2.9: lettre = "Deux"
Case 3 To 3.9: lettre = "Trois"
Case 4 To 4.9: lettre = "Quatre"
Case 5 To 5.9: lettre = "Cinq"
Case 6 To 6.9: lettre = "Six"
Case 7 To 7.9: lettre = "Sept"
Case 8 To 8.9: lettre = "Huit"
Case 9 To 9.9: lettre = "Neuf"



End Select

Unité = lettre

End Function

Function Dizaine(nombre1 As Double) As String

Dim lettre As String
Dim d As Double
Dim u As Double
Dim lettre1 As String
u = nombre1 / 10
d = nombre1 Mod 10

lettre1 = Unité(u)


If lettre1 = "Zéro" Then
lettre = Unité(nombre1)
End If

If lettre1 = "Un" Then
Select Case d
Case 0: lettre = "Dix"
Case 1: lettre = "Onze"
Case 2: lettre = "Douze"
Case 3: lettre = "Treize"
Case 4: lettre = "Quatorze"
Case 5: lettre = "Quinze"
Case 6: lettre = "Seize"
Case 7: lettre = "Dix_Sept"
Case 8: lettre = "Dix_Huit"
Case 9: lettre = "Dix_Neuf"
End Select
End If

If lettre1 = "Deux" Then
Select Case d
Case 0: lettre = "Vingt "
Case 1: lettre = "Vingt " & Unité(d)
Case 2: lettre = "Vingt " & Unité(d)
Case 3: lettre = "Vingt " & Unité(d)
Case 4: lettre = "Vingt " & Unité(d)
Case 5: lettre = "Vingt " & Unité(d)
Case 6: lettre = "Vingt " & Unité(d)
Case 7: lettre = "Vingt " & Unité(d)
Case 8: lettre = "Vingt " & Unité(d)
Case 9: lettre = "Vingt " & Unité(d)
End Select
End If

If lettre1 = "Trois" Then
Select Case d
Case 0: lettre = "Trente "
Case 1: lettre = "Trente " & Unité(d)
Case 2: lettre = "Trente " & Unité(d)
Case 3: lettre = "Trente " & Unité(d)
Case 4: lettre = "Trente " & Unité(d)
Case 5: lettre = "Trente " & Unité(d)
Case 6: lettre = "Trente " & Unité(d)
Case 7: lettre = "Trente " & Unité(d)
Case 8: lettre = "Trente " & Unité(d)
Case 9: lettre = "Trente " & Unité(d)
End Select
End If

If lettre1 = "Quatre" Then
Select Case d
Case 0: lettre = "Quarante "
Case 1: lettre = "Quarante " & Unité(d)
Case 2: lettre = "Quarante " & Unité(d)
Case 3: lettre = "Quarante " & Unité(d)
Case 4: lettre = "Quarante " & Unité(d)
Case 5: lettre = "Quarante " & Unité(d)
Case 6: lettre = "Quarante " & Unité(d)
Case 7: lettre = "Quarante " & Unité(d)
Case 8: lettre = "Quarante " & Unité(d)
Case 9: lettre = "Quarante " & Unité(d)
End Select
End If
If lettre1 = "Cinq" Then
Select Case d
Case 0: lettre = "Quinquante "
Case 1: lettre = "Quinquante " & Unité(d)
Case 2: lettre = "Quinquante " & Unité(d)
Case 3: lettre = "Quinquante " & Unité(d)
Case 4: lettre = "Quinquante " & Unité(d)
Case 5: lettre = "Quinquante " & Unité(d)
Case 6: lettre = "Quinquante " & Unité(d)
Case 7: lettre = "Quinquante " & Unité(d)
Case 8: lettre = "Quinquante " & Unité(d)
Case 9: lettre = "Quinquante " & Unité(d)
End Select
End If
If lettre1 = "Six" Then
Select Case d
Case 0: lettre = "Soixante_ "
Case 1: lettre = "Soixante_ " & Unité(d)
Case 2: lettre = "Soixante_ " & Unité(d)
Case 3: lettre = "Soixante_ " & Unité(d)
Case 4: lettre = "Soixante_ " & Unité(d)
Case 5: lettre = "Soixante_ " & Unité(d)
Case 6: lettre = "Soixante_ " & Unité(d)
Case 7: lettre = "Soixante_ " & Unité(d)
Case 8: lettre = "Soixante_ " & Unité(d)
Case 9: lettre = "Soixante_ " & Unité(d)
End Select
End If
If lettre1 = "Sept" Then
Select Case d
Case 0: lettre = "Soixante_Dix "
Case 1: lettre = "Soixante_Dix " & Unité(d)
Case 2: lettre = "Soixante_Dix " & Unité(d)
Case 3: lettre = "Soixante_Dix " & Unité(d)
Case 4: lettre = "Soixante_Dix " & Unité(d)
Case 5: lettre = "Soixante_Dix " & Unité(d)
Case 6: lettre = "Soixante_Dix " & Unité(d)
Case 7: lettre = "Soixante_Dix " & Unité(d)
Case 8: lettre = "Soixante_Dix " & Unité(d)
Case 9: lettre = "Soixante_Dix " & Unité(d)
End Select
End If
If lettre1 = "Huit" Then
Select Case d
Case 0: lettre = "Quatre_Vingt_ "
Case 1: lettre = "Quatre_Vingt_ " & Unité(d)
Case 2: lettre = "Quatre_Vingt_ " & Unité(d)
Case 3: lettre = "Quatre_Vingt_ " & Unité(d)
Case 4: lettre = "Quatre_Vingt_ " & Unité(d)
Case 5: lettre = "Quatre_Vingt_ " & Unité(d)
Case 6: lettre = "Quatre_Vingt_ " & Unité(d)
Case 7: lettre = "Quatre_Vingt_ " & Unité(d)
Case 8: lettre = "Quatre_Vingt_ " & Unité(d)
Case 9: lettre = "Quatre_Vingt_ " & Unité(d)
End Select
End If
If lettre1 = "Neuf" Then
Select Case d
Case 0: lettre = "Quatre_Vingt_Dix_"
Case 1: lettre = "Quatre_Vingt_ " & "Onze"
Case 2: lettre = "Quatre_Vingt_ " & "Douze"
Case 3: lettre = "Quatre_Vingt_" & "Treize"
Case 4: lettre = "Quatre_Vingt_ " & "Quatorze"
Case 5: lettre = "Quatre_Vingt_ " & "Quinze"
Case 6: lettre = "Quatre_Vingt_" & "Seize"
Case 7: lettre = "Quatre_Vingt_Dix_" & Unité(d)
Case 8: lettre = "Quatre_Vingt_Dix_ " & Unité(d)
Case 9: lettre = "Quatre_Vingt_Dix_ " & Unité(d)
End Select
End If
Dizaine = lettre
End Function

/*
vous pouvez l'executer sur une feuille de calcul excel en appellant comme toutes
autres fonctions intégre d'excel comme (somme() ou moyenne()).mais en le personnalisant
d'abord la démarche est la suivante :

copier les codes dans le fichier fonction.txt
ouvrer une zone de code visual basic
- Créer une fonction (ou Macro)
- aller dans les modules et créer une espace de saisir de code
- copier et coller le code copier
- enregistrer et compiler
- revenir à la feuille de calcul excel
- inserer cette fonction en allant sur :
. Dans la boîte de dialogue « insérer une fonction »
« Personnalisées » dans catégories , et cherchez soit « Unité() »
soit « Dizaine » dans « Sélectionnez une fonction »
  • /

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
109
Messages postés
2166
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juillet 2020
109 >
Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020

Bonjour
Plusieurs points importants
1) Ne jamais mettre d'adresse email perso dans un message du forum ou une source
2) une source n'est pas un fichier pdf
3) tu es débutant : as-tu lu ceci : http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture
4) Tu as placé cette "source" dans la catégorie VB Net\Maths . Que viennent donc faire des fichiers .pdf pour VBA excel ?

sinon bienvenue sur le site codes-sources
Messages postés
5
Date d'inscription
jeudi 14 janvier 2016
Statut
Membre
Dernière intervention
8 avril 2016

comme vous pouvez le constate je suis débutant et je suis entrain d'écrire des autres fonction centaine , milles , millions et milliard à partir des deux fonctions unités et dizaine dont vous avez le code.
svp en passant si vous avez un astuces qui pourrait m'aider n'exister pas de poste sur le forum ou à mon adresse mail
- adresse email effacée (adresse email = spams assurés)
gfss++.

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.