Soustraction de nombres entrés dans un text box

0/5 (7 avis)

Vue 4 204 fois - Téléchargée 335 fois

Description

Avant que tout le monde critique cette source, sâchez qu'elle est faîte pour VBsupernul. Il avait un problème pour soustraire un nombre entré dans une TextBox par un autre. Donc, je publie la solution, au cas où ca interesserait quelqu'un d'autres.

Source / Exemple :


Private Sub BOU_BOUTON_Click()
'on fait la soustraction !

'on active la routine de traitement d'erreur
On Error GoTo erreur0

'déclaration des variables privées
Dim INT_Position As Integer 'stocke la position de recherche
Dim DOU_Nombre As Double  'stocke le nombre à soustraire
Dim DOU_Nombres As Double 'stocke les nombres à faire la soustraction
Dim STR_Nombre As String 'stocke le texte de recherche courrant
Dim INT_longueur_texte As Integer 'stocke la longueur de la sélection courante
Dim STR_Texte As String 'stocke le nombre à soustraire

    'on efface la zone de résultat
    TXT_RESULTAT.Text = ""
    
    'on initialise les variables
    INT_Position = 1
    STR_Nombre = ""
    STR_Texte = TXT_NOMBRES.Text
    
    'on définit le nombre à retrancher:
    DOU_Nombre = CDbl(TXT_NOMBRE.Text)
    
    'on lance la recherche pour délimiter les nombres:
    Do
    
        If Mid(STR_Texte, INT_Position, 1) <> " " Then
        
            'on stocke le caractère à la suite des autres
            STR_Nombre = STR_Nombre & Mid(STR_Texte, INT_Position, 1)
                    
        Else
        
            'on a fini de délimiter le nombre
            DOU_Nombres = CDbl(STR_Nombre)
                        
            'on effectue la soustraction
            DOU_Nombres = DOU_Nombres - DOU_Nombre
            
            'on affiche enfin le résultat dans la zone de texte
            TXT_RESULTAT.Text = TXT_RESULTAT.Text & " " & DOU_Nombres
            
            'on réinitialise le nombre obtenu par la recherche
            DOU_Nombres = 0
            STR_Nombre = ""
            
        End If
        
        INT_Position = INT_Position + 1
        
    Loop While (INT_Position - 2) < Len(STR_Texte) + 1

'la procédure est finie
Exit Sub

'routine de traitement d'erreur:
erreur0:
MsgBox "Il y a eu une erreur !", vbOKOnly + vbExclamation, "Erreur !"

End Sub

Conclusion :


J'espère avoir répondu à ta question VBsupernul

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
29 janv. 2003 à 13:21
Merci beaucoup pour ta compréhension NISANDSYSTEMS, surtout que j'avais très bien précisé que cette source était là pour donner un coup de main à VBsupernul, et qu'elle etait donc faîte spécialement pour lui. Je l'ai publié uniquement dans le but où cela interesserai également d'autres personnes.

DARK SIDIOUS
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014
29 janv. 2003 à 13:12
Ici c'est un site ouvert à tous donc ouvert à toute proposition.
Une source est un travail de l'auteur qui investit son temps pour Vous.
Soyez respecteux envers eux et avant tout, soyez respecteux envers vous-meme.

Ici on n'est pas là pour critiquer une source ( exellente) mais plutot,
donner un avis, une suggestion et autre...

Pour ceux à qui ça n'interesse pas, faite preuve de silence.
Merçi

Exellente source DarkSIDIOUS.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
13 nov. 2002 à 18:55
Comme je viens de le mentionner plus haut, cette source à été faîte pour VBsupernul, et donc, n'interessera sûrement que lui. Mais au cas où...

DARK SIDIOUS
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009
13 nov. 2002 à 10:29
inutile de la publier si c'est pour la meme chose que ça ... :(
Vbsupernul Messages postés 287 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 18 janvier 2004
11 nov. 2002 à 14:34
Merci du coup de main, ping et DARKSIDIOUS.
Je vais publier ma source bientôt, et ce qu'elle fera ne correspondra sûrement pas à ce que vous pensez...
Le mystère plane

@+
Vbsupernul (c'est malin, tout le monde le sait maintenant...)
Afficher les 7 commentaires

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.