Edition d'un chéque

Soyez le premier à donner votre avis sur cette source.

Vue 6 205 fois - Téléchargée 559 fois

Description

ce code traduit un montant numérique en montant scriptural (en lettre...)
J'ai fait un copier coller, il y a sur l'interface les objets
2 textbox ==> n / text1
2 boutons ==> command1 / command2
5 label ==> label1 / 2 / 3 / 4 / 5

Source / Exemple :


Dim chaine As String
Private Sub Command1_Click()
If (n = "Montant du chéque") Or (n = "") Or (Text1 = "") Or (Text1 = "Entrez ici le destinataire du chéque") Then
    MsgBox "Vous n'avez correctement remplis les champs"
Else
    Label5 = Text1
    Label2 = Date
    Label1 = n
    chaine = ""
    m = n \ 1000
    u = n Mod 10
    d = (n \ 10) Mod 10
    c = (n \ 100) Mod 10
    
    If (m >= 1) Then
        millier (m)
    End If
    
    If ((c > 1) And (d + u = 0)) Then
        centaine (c)
        chaine = chaine & "s"
    Else
        If (c >= 1) Then
            centaine (c)
        End If
    End If
    
    dizaine (d)
    
    If ((u = 1) And (d > 1) And (d < 8)) Then
        chaine = chaine & " et"
    End If
    
    If ((d = 8) And (u = 0)) Then
        chaine = chaine & "s"
    End If
    
    If ((d = 1) Or (d = 7) Or (d = 9)) Then
        unite (10 + u)
    Else
        unite (u)
    End If
    
    Label3 = chaine
End If
End Sub
Sub unite(n As Integer)
    Select Case n
        Case 1: chaine = chaine & " un"
        Case 2: chaine = chaine & " deux"
        Case 3: chaine = chaine & " trois"
        Case 4: chaine = chaine & " quatre"
        Case 5: chaine = chaine & " cinq"
        Case 6: chaine = chaine & " six"
        Case 7: chaine = chaine & " sept"
        Case 8: chaine = chaine & " huit"
        Case 9: chaine = chaine & " neuf"
        Case 10: chaine = chaine & " dix"
        Case 11: chaine = chaine & " onze"
        Case 12: chaine = chaine & " douze"
        Case 13: chaine = chaine & " treize"
        Case 14: chaine = chaine & " quatorze"
        Case 15: chaine = chaine & " quinze"
        Case 16: chaine = chaine & " seize"
        Case 17: chaine = chaine & " dix-sept"
        Case 18: chaine = chaine & " dix-huit"
        Case 19: chaine = chaine & " dix-neuf"
    End Select
End Sub

Sub dizaine(n As Integer)
    Select Case n
        Case 2: chaine = chaine & " vingt"
        Case 3: chaine = chaine & " trente"
        Case 4: chaine = chaine & " quarante"
        Case 5: chaine = chaine & " cinquante"
        Case 6: chaine = chaine & " soixante"
        Case 7: chaine = chaine & " soixante"
        Case 8: chaine = chaine & " quatre-vingt"
        Case 9: chaine = chaine & " quatre-vingt"
    End Select
End Sub

Sub centaine(n As Integer)
    If (n = 1) Then
        chaine = chaine & " cent"
    Else
        unite (n)
        chaine = chaine & " cent"
    End If
End Sub

Sub millier(n As Integer)
    If (n = 1) Then
        chaine = chaine & " mille"
    Else
        unite (n)
        chaine = chaine & " mille"
    End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub n_Click()
n = ""
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Conclusion :


code simpas pour apprendre l'utilisation fonctions

A+ Moussetique

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_akhenaton
Messages postés
18
Date d'inscription
mardi 9 avril 2002
Statut
Membre
Dernière intervention
10 juin 2008

Bonjour, c'est cool comme program je veux juste savoir comment affiche le montant en lettre sur deux label dans le cas où le montant est long.
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008

et les montants a virgule on en fait quoi ??
cs_lionel4
Messages postés
130
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
26 septembre 2008

pas vraiment utile mais efficace bravo
reivon
Messages postés
81
Date d'inscription
lundi 18 février 2002
Statut
Membre
Dernière intervention
4 février 2005

Un bon code, pensé et bien mis en place, et c'est vrai que c'est pas compliquer du tout de mettre en place le reste ! A+
cs_Moussetique
Messages postés
13
Date d'inscription
mercredi 27 mars 2002
Statut
Membre
Dernière intervention
23 avril 2010

Je rêve , toi GangKiller78 t'as pas tout compris! Ici c'est un site pour les developpeurs, donc t'attend pas a avoir un prog tout prés. De plus ici je file un code, pas un programme, c'est a vous d'en tirer le meilleur pour en faire un prog vous convenant . Sinon pour le soit disant bug des 20000 et ben comme je le dis quelque mots avant, ce code est la base pour faire un prog fonctionnel. A vous d'ajouter la fonction gérant les dizaines de milliers!!! (pas complique le plus dure est fait). Sinon merci pour les complimants A+ Moussetique

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.