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

Télécharger le projet
Commenter

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 »
  • /
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.