Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 22:48:08

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

+ de logiciels à télécharger

1 464 911 membres
402 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 027 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CLASSE QUI PERMET DE CONVERTIR UN NOMBRE EN LETTRES

Information sur la source

Catégorie :Divers

Classé sous : convertir, nombre, lettres Niveau : Débutant Date de création : 18/04/2007 Date de mise à jour : 15/05/2007 13:12:51 Vu / téléchargé: 7 205 / 593

Auteur : Jun

Ecrire un message privé

Note :

9,00 / 10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Ce code est celui d'une classe permettant de réaliser de la convertion d'une valeur numérique en
lettres. Je l'ai créer dans le cadre d'un projet. J'espère ça pourra en aider plus d'un.
Elle découpe le nombre en partie de trois chiffres et effectue la lecture comme une personne.
Elle peut convertir de nombre dans l'intervalle suivant [0;999 999 999].
Vous pouurrez continuer si vous le souhaiez.(prise en compte de nb négatifs etc)
Pour la faire fonctionner, créez en une nouvelle instance grace à l'un de ses constructeurs
et d'appeler la métodhe convertion de votre choix.

A la fin tout le monde est content!!!

Source

Public Class Convertisseuse
Dim mintnum As Integer
Public Sub New(ByVal num As Integer)
mintnum = num
End Sub
Public Sub New()
mintnum = 0
End Sub
Public Function convertion(ByVal num As Integer) As String
Dim res As String = ""
Dim partie1 As String = ""
Dim partie2 As String = ""
Dim partie3 As String = ""
Dim num_length As Integer
'identification de la longueur du nombre
num_length = num.ToString.Length
If num_length < 4 Then
'nb en centaines
res = lecture_de_nb_a_3_chiffre(num)
End If
If num_length > 3 And num_length < 7 Then
partie2 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 3, 3).ToString, Integer))
partie1 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(0, num.ToString.Length - 3).ToString, Integer))
'si (partie1=un) ne pas écrire
If partie1.Trim = "un" Then
res = "mille(s)"
Else
res = partie1 & " mille(s)"
End If
If partie2.Trim <> "zéro" Then
res = res & " " & partie2
End If
End If
If num_length > 6 And num_length < 10 Then
'nb en milions
partie3 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 3, 3).ToString, Integer))
partie2 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 6, 3).ToString, Integer))
partie1 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(0, num.ToString.Length - 6).ToString, Integer))
If (partie2.Trim = "zéro") Then
res = partie1 & " million(s)"
ElseIf (partie2.Trim = "un") Then
res = partie1 & " million(s)" & " mille(s)"
Else
res = partie1 & " million(s) " & partie2 & " mille(s)"
End If
If (partie3.Trim <> "zéro") Then
res = res & " " & partie3
End If
End If
Return res
End Function
Private Function lecture_de_nb_a_1_chiffre(ByVal nb As Integer) As String
Dim de_zero_a_9() = {"zéro", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
Dim res As String = ""
Dim i As Integer
For i = 0 To 9
If (CType(nb.ToString, Integer) = i) Then
res = de_zero_a_9(i)
Exit For
End If
Next
Return res
End Function
Private Function lecture_de_nb_a_2_chiffre(ByVal nb As Integer) As String
Dim de_1_a_9() = {"un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
Dim de_11_a_19() = {"onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf"}
Dim dizaine_de_10_a_90() = {"dix", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante-dix", "quatre-vingt", "quatre-vingt-dix"}
Dim les_chiffres() As Char
les_chiffres = nb.ToString.ToCharArray
Dim res As String = ""
Dim i As Integer
If les_chiffres(0) = "1" Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(0)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = de_11_a_19(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "2") _
Or (les_chiffres(0) = "3") _
Or (les_chiffres(0) = "4") _
Or (les_chiffres(0) = "5") _
Or (les_chiffres(0) = "6") _
Or (les_chiffres(0) = "8") Then
'If (CType(les_chiffres(1).ToString, Integer) = 0) Then
'si le deuxième chiffre est un zéro
If (les_chiffres(0) = "2") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(1)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(1)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "3") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(2)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(2)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "4") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(3)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(3)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "5") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(4)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(4)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "6") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(5)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(5)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "8") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(7)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(7)
res = res & " et " & de_1_a_9(i)
Exit For
End If
Next
End If
End If
End If
If (les_chiffres(0) = "7") Or (les_chiffres(0) = "9") Then
'si le deuxième chiffre est un zéro
If (les_chiffres(0) = "7") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(6)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(5)
res = res & " et " & de_11_a_19(i)
Exit For
End If
Next
End If
End If
If (les_chiffres(0) = "9") Then
If (CType(les_chiffres(1).ToString, Integer) = 0) Then
res = dizaine_de_10_a_90(8)
Else
For i = 0 To 8
If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
res = dizaine_de_10_a_90(7)
res = res & " et " & de_11_a_19(i)
Exit For
End If
Next
End If
End If
End If
Return res
End Function
Private Function lecture_de_nb_a_3_chiffre(ByVal nb As Integer) As String
Dim de_2_a_9() = {"deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
Const str_cent As String = "cent"
Dim les_chiffres() As Char
Dim res As String = ""
Dim i As Integer
les_chiffres = nb.ToString.ToCharArray
Select Case nb.ToString.Length
Case 1
res = lecture_de_nb_a_1_chiffre(nb)
Case 2
res = lecture_de_nb_a_2_chiffre(nb)
Case 3
If les_chiffres(0) = "1" Then
res = str_cent
Else
For i = 0 To 7
If CType(les_chiffres(0).ToString, Integer) = i + 2 Then
res = de_2_a_9(i) & " " & str_cent
End If
Next
End If
If les_chiffres(1) = "0" Then
Dim partie_intermediaire As String = ""
partie_intermediaire = lecture_de_nb_a_1_chiffre(CType(nb.ToString.Substring(2), Integer))
If partie_intermediaire <> "zéro" Then
res = res & " " & partie_intermediaire
End If
Else
res = res & " " & lecture_de_nb_a_2_chiffre(CType(nb.ToString.Substring(1), Integer))
End If
Case Else
End Select
Return res
End Function
End Class

Public Class Convertisseuse
    Dim mintnum As Integer
    Public Sub New(ByVal num As Integer)
        mintnum = num
    End Sub
    Public Sub New()
        mintnum = 0
    End Sub
    Public Function convertion(ByVal num As Integer) As String
        Dim res As String = ""
        Dim partie1 As String = ""
        Dim partie2 As String = ""
        Dim partie3 As String = ""
        Dim num_length As Integer
        'identification de la longueur du nombre
        num_length = num.ToString.Length
        If num_length < 4 Then
            'nb en centaines
            res = lecture_de_nb_a_3_chiffre(num)
        End If
        If num_length > 3 And num_length < 7 Then
            partie2 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 3, 3).ToString, Integer))
            partie1 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(0, num.ToString.Length - 3).ToString, Integer))
            'si (partie1=un) ne pas écrire
            If partie1.Trim = "un" Then
                res = "mille(s)"
            Else
                res = partie1 & " mille(s)"
            End If

            If partie2.Trim <> "zéro" Then
                res = res & " " & partie2
            End If


        End If
        If num_length > 6 And num_length < 10 Then
            'nb en milions
            partie3 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 3, 3).ToString, Integer))
            partie2 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(num.ToString.Length - 6, 3).ToString, Integer))
            partie1 = lecture_de_nb_a_3_chiffre(CType(num.ToString.Substring(0, num.ToString.Length - 6).ToString, Integer))
            If (partie2.Trim = "zéro") Then
                res = partie1 & " million(s)"
            ElseIf (partie2.Trim = "un") Then
                res = partie1 & " million(s)" & " mille(s)"
            Else
                res = partie1 & " million(s) " & partie2 & " mille(s)"
            End If
            If (partie3.Trim <> "zéro") Then
                res = res & " " & partie3
            End If

        End If
        Return res
    End Function


    Private Function lecture_de_nb_a_1_chiffre(ByVal nb As Integer) As String
        Dim de_zero_a_9() = {"zéro", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
        Dim res As String = ""
        Dim i As Integer

        For i = 0 To 9
            If (CType(nb.ToString, Integer) = i) Then
                res = de_zero_a_9(i)
                Exit For
            End If
        Next
        Return res
    End Function
    Private Function lecture_de_nb_a_2_chiffre(ByVal nb As Integer) As String
        Dim de_1_a_9() = {"un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
        Dim de_11_a_19() = {"onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf"}
        Dim dizaine_de_10_a_90() = {"dix", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante-dix", "quatre-vingt", "quatre-vingt-dix"}
        Dim les_chiffres() As Char
        les_chiffres = nb.ToString.ToCharArray
        Dim res As String = ""
        Dim i As Integer
        If les_chiffres(0) = "1" Then
            If (CType(les_chiffres(1).ToString, Integer) = 0) Then
                res = dizaine_de_10_a_90(0)
            Else
                For i = 0 To 8
                    If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                        res = de_11_a_19(i)
                        Exit For
                    End If
                Next

            End If
        End If
        If (les_chiffres(0) = "2") _
        Or (les_chiffres(0) = "3") _
        Or (les_chiffres(0) = "4") _
        Or (les_chiffres(0) = "5") _
        Or (les_chiffres(0) = "6") _
        Or (les_chiffres(0) = "8") Then
            'If (CType(les_chiffres(1).ToString, Integer) = 0) Then
            'si le deuxième chiffre est un zéro
            If (les_chiffres(0) = "2") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then
                    res = dizaine_de_10_a_90(1)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(1)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If

            If (les_chiffres(0) = "3") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then

                    res = dizaine_de_10_a_90(2)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(2)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If
            If (les_chiffres(0) = "4") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then

                    res = dizaine_de_10_a_90(3)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(3)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If
            If (les_chiffres(0) = "5") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then

                    res = dizaine_de_10_a_90(4)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(4)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If
            If (les_chiffres(0) = "6") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then

                    res = dizaine_de_10_a_90(5)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(5)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If
            If (les_chiffres(0) = "8") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then

                    res = dizaine_de_10_a_90(7)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(7)
                            res = res & " et " & de_1_a_9(i)
                            Exit For
                        End If
                    Next
                End If
            End If
        End If

        If (les_chiffres(0) = "7") Or (les_chiffres(0) = "9") Then
            'si le deuxième chiffre est un zéro
            If (les_chiffres(0) = "7") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then
                    res = dizaine_de_10_a_90(6)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(5)
                            res = res & " et " & de_11_a_19(i)
                            Exit For
                        End If
                    Next
                End If
            End If
            If (les_chiffres(0) = "9") Then
                If (CType(les_chiffres(1).ToString, Integer) = 0) Then
                    res = dizaine_de_10_a_90(8)
                Else
                    For i = 0 To 8
                        If (CType(les_chiffres(1).ToString, Integer) = i + 1) Then
                            res = dizaine_de_10_a_90(7)
                            res = res & " et " & de_11_a_19(i)
                            Exit For
                        End If
                    Next
                End If
            End If
        End If
        Return res
    End Function
    Private Function lecture_de_nb_a_3_chiffre(ByVal nb As Integer) As String
        Dim de_2_a_9() = {"deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf"}
        Const str_cent As String = "cent"
        Dim les_chiffres() As Char
        Dim res As String = ""
        Dim i As Integer
        les_chiffres = nb.ToString.ToCharArray


        Select Case nb.ToString.Length
            Case 1
                res = lecture_de_nb_a_1_chiffre(nb)
            Case 2
                res = lecture_de_nb_a_2_chiffre(nb)
            Case 3
                If les_chiffres(0) = "1" Then
                    res = str_cent
                Else
                    For i = 0 To 7
                        If CType(les_chiffres(0).ToString, Integer) = i + 2 Then
                            res = de_2_a_9(i) & " " & str_cent
                        End If
                    Next
                End If
                If les_chiffres(1) = "0" Then
                    Dim partie_intermediaire As String = ""
                    partie_intermediaire = lecture_de_nb_a_1_chiffre(CType(nb.ToString.Substring(2), Integer))
                    If partie_intermediaire <> "zéro" Then
                        res = res & " " & partie_intermediaire
                    End If
                Else
                    res = res & " " & lecture_de_nb_a_2_chiffre(CType(nb.ToString.Substring(1), Integer))
                End If

            Case Else

        End Select
        Return res
    End Function

 
End Class

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Convert
- Convert
  - bin
    - Debug
      - Convert.vshost.exe5 632 octets
  - My Project
    - Application.Designer.vb 1 475 octets
    - Application.myapp507 octets
    - ApplicationEvents.vb 670 octets
    - AssemblyInfo.vb 1 198 octets
    - Resources.Designer.vb 3 306 octets
    - Resources.resx 5 612 octets
    - Settings.Designer.vb 2 780 octets
    - Settings.settings249 octets
  - obj
    - Debug
      - TempPE
  - Convert.vbproj 4 034 octets
  - Convert.vbproj.user 173 octets
  - Convertisseuse.vb 10 381 octets
  - FrmTest.Designer.vb 4 492 octets
  - FrmTest.resx 5 647 octets
  - FrmTest.vb 436 octets
- Convert.sln 910 octets
- Convert.suo8 192 octets

Télécharger le zip

Historique

19 avril 2007 14:38:12 :: Les correction apportées concernent les mauvaises lectures que faisait la classe, par exemples lire "un mille" pour 1000 et bien d'autres erreurs mais toujours relatives au règles de lecture. Salut
15 mai 2007 13:12:51 :: Erreur d'ortographe vignt->vingt (dans le code de la classe convertisseuse)

Sources de la même categorie

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

POO ET UTILISATION DE QUELQUES BOITES DE DIALOGUE (SAVE ET O... par kilvanox

EXPORTER MFLEXGRID DANS DOCUMENT WORD par garoui1

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

CONVERTIR UN NOMBRE ECRIT EN LETTRES VERS LES CHIFFRES ET ... par LEMLEM

VBA EXCEL CONVERTIR EN NOMBRE, APPLIQUER UN FORMAT MONETAIRE... par FENETRES

CONVERTION DES CHIFFRES EN LETTRES par chaibat05

CONVERSION D'UNE SOMME EN LETTRES par AVI17

CHIFFRE EN LETTRE FONCTION par ElDoktor

Commentaires et avis

Commentaire de Nicko11 le 18/04/2007 16:01:23

Salut, je me souviens avoir fais ca en C, et je me souviens que le plus dur dans ce genre de code etait de gerer les cas particuliers:

0
1000 et 81000(mille et pas un mille mais bien quatre-vingt un mille)
11 à 16 (onze et pas dix un)
21 et 81 (et un ou un)
61 et 71 (soixante et un et soixante et onze)
200 et 205 (deux cents et deux cent cinq)
idem avec vingt

Bref tout ce qui ne rentre pas dans la recursivité quoi.

Je peux pas tester mais je le dis au cas ou.

Commentaire de Jun le 19/04/2007 11:59:01

Les remarques que tu viens de faire sont pertinantes et ont déjà été prise en compte.
La classe gère à la perfection ces aspects.

Commentaire de Jun le 19/04/2007 12:26:31

Mais je dois reconnaître que tu avais raison pour le "un mile".
Je vais corriger ça et toutes les autres merci

Commentaire de Jun le 19/04/2007 14:46:59

C'est mis à jour.
Tester toujours, j'ai peut être oublié quelque chose
:)

Commentaire de dvtnet le 23/04/2007 13:52:18

Petite erreur ligne 74 (vignt --> vingt)

Commentaire de Jun le 23/04/2007 16:33:00

Ok, je m'empresse de la corriger.
Continuez de tester.
Merci DVTNET

Commentaire de fretman92 le 23/04/2007 19:44:28

La ligne 74 n est toujours pas corrigé, mais sinon c est très bien, mis a part quelques exceptions : des "et" en trop mais c est pas trop grave ;-)

Pas mal du tout

F92

Commentaire de Jun le 31/05/2007 14:32:20

La ligne 74 a été corrigée. merci

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

convertir un nombre en lettres [ par Don Jiro ] Bonjour à tous,Je souhaiterai savoir comment faire pour convertir un nombre en lettrea mon bureau cela fonctionne et chez moi pas du toutau lieu Décompte de lettres dans une textbox ! [ par THeTiTeuF ] C'est très vite expliquéJe veux faire un programme pour envoyer des SMS, et je veux avoir une boite de texte qui met le nombre de caractères restant s convertir un Long en String [ par HollowSpecter128 ] Bonsoir à tous,J'ai un petit problème.Je dois convertir un Long en String pour des besoins de stockage de données.Exemple : le nombre 183038175 Convertir lettres en lettres et mots entiers en mots entiers [ par elmekki ] Bonsoirje cherche un code qui permet de convertir les lettres en lettres selon la coresspondance suivante ('abcdefghijklmn...') par ('i Algo pour convertir un nombre DECIMAL en HEXA [ par Rurouni ] Bonjour, Je ne peux pas utiliser la fonction Hex car mon nombre est tres grand et ne tient pas dans une variable type double.Donc j aimerais avoir un Convertir des nombres (100,00) et lettres (cent Euros) [ par Fred_91 ] Bonjour, je suis débutant, je tatonne sur access, et dans le cadres d'une appication que je fais pour ma femme qui est kiné, j'aimerai pourv Convertir une chaine de caractere en un nombre [ par cx5400 ] Bonjour, je vais faire simple pour vous expliquer ce que je voudrais faire en vous donnant un exemple ex: je tape une chaine de caractere a l ecran pa Convertir une chaine de caractere en un nombre [ par cx5400 ] Bonjour, je vais faire simple pour vous expliquer ce que je voudrais faire en vous donnant un exemple ex: je tape une chaine de caractere a l ecran pa Convertir un caractere en un nombre puis en un autre caractere [ par cx5400 ] Bonjour, je vais faire simple pour vous expliquer ce que je voudrais faire en vous donnant un exemple ex: je tape une chaine de caractere a l ecran Convertir un caractere en un nombre puis en un autre caractere [ par cx5400 ] Bonjour, je vais faire simple pour vous expliquer ce que je voudrais faire en vous donnant un exemple ex: je tape une chaine de caractere a l ec