Additionner les Nombres contenus dans chaque ligne d'une TextboxRésolu

Question

Bonjour, j'ai une RichTextbox qui contient ceci :

Article1    1.23 ?
Article2    5.84 ?
Article122    4.25 ?
...

Le nombre d'Articles peut varier. Je souhaiterais additionner les Prix de chacune des lignes pour obtenir un Résultat. Je pensai supprimer ce qu'il y avant et après chaque nombre mais la longeur du Nom de l'Article peut varier et le nombre de lignes aussi. Comment faut-il faire ? Merci.
En attendant je continue à chercher 

 Dri60

cs_Galain · Accepted Answer

Salut Dri60

soit chn = "Article1    1.23 ?"  ( c'est une String qui contient ta première ligne)

Dim valeur as String  ' valeur chaine en euros
dim prix as Decimal  ' le prix

' on récupère valeur à partir du 1° espace et on supprime les espaces à gauche
valeur = chn.substring(chn.indexof(" ")).trimstart
' on enléve l'espace à droite et le signe ?
valeur = chn.substring(0,chn.length -2)
' on convertit en decimal pour récupérer le prix
prix = Convert.ToDec(chn)

GRENIER Alain

Dri60 · Answer

Merci de ta réponse, mais pour ensuite qu'il retienne tout les prix puis qu'il les additionnes, comment faut-il faire ? 

 Dri60

cs_Galain · Answer

Tu initialises le prix total à 0 et tu fais une boucle pour chaque ligne de ta RichTextbox où tu ajoutes le prix de l'article

total =0
For i = 1 to nombre de ligne
    total = total + prix de l'article
Next i

GRENIER Alain

Dri60 · Answer

Ok merci

 Dri60

Dri60 · Answer

Euh je crois que j'ai un problème. Voici le Code :
Public

Sub Calcul_Total()   Dim Total AsDecimal

   Dim i

   Dim Prix

   Dim Nb_Ligne AsInteger

   Total = 0

   Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4

   For i = 1 To Nb_Ligne

      Total = Total + Prix

   Next i
   RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"

EndSub

Et quand j'exécute, il me met comme résultat 0. J'ai du me tromper  Comment fait-on ? Merci 

 Dri60

cs_Galain · Answer

Sub Calcul_Total()   Dim Total AsDecimal

   Dim i as quoi ?

   Dim Prix as quoi ?

   Dim Nb_Ligne AsInteger

   Total = 0

   Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4 ' doit donner le nombre de lignes de ta RichtextBox ( à vérifier)

   For i = 1 To Nb_Ligne

     ' ici il faut récupérer la ligne et en extraire le prix de l'article ( voir mon premier post)

     Total = Total + Prix   Next i
   RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"

EndSub

GRENIER Alain

Dri60 · Answer

J'ai trouvé, l'erreur vient de Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) le nombre retourné est toujours 0. Merci de ton aide.

 Dri60

Dri60 · Answer

En fait je crois que l'erreur vient de la Richtextbox. Même en mettant un autre code, sa donne toujours 0. Voici le Code :
Public

Sub Calcul_Total()   Dim Total AsDecimal

   Dim i AsDecimal

   Dim Prix AsDecimal

   Dim Nb_Ligne AsInteger

   Prix = Lbl_Prix.Text

   Total = 0

   Dim i2 AsInteger

   For i2 = 1 To Len(RichTextBox1.Text)
   If Mid(RichTextBox1.Text, i2, 1) vbCr Then Nb_Ligne Nb_Ligne + 1

   Next i2

   MsgBox(Nb_Ligne)

   Label_Test.Text = Nb_Ligne

   For i = 1 To Nb_Ligne

   Total = Total + Prix

   Next i
   RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"

EndSub

 Dri60

cs_Galain · Answer

Sub Calcul_Total()   Dim Total AsDecimal

   Dim i AsDecimal

   Dim Prix AsDecimal

   Dim Nb_Ligne AsInteger

   Prix =Lbl_Prix

   Total = 0

   Dim i2 AsInteger

   For i2 = 1 To Len(RichTextBox1.Text)
   If Mid(RichTextBox1.Text, i2, 1) vbCrLF  Then Nb_Ligne Nb_Ligne + 1

   Next i2

   MsgBox(Nb_Ligne) ' vérifie si le nombre de lignes est correct

   Label_Test.Text = Nb_Ligne

   For i = 1 To Nb_Ligne

            ' Récupère la ligne n° i et extrait le prix ( voir 1° post)
   Total = Total + Prix

   Next i
   RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"

EndSub

GRENIER Alain

cs_Galain · Answer

Utilise la fonction Split pour créer ton tableau contenant les lignes

GRENIER Alain

Additionner les Nombres contenus dans chaque ligne d'une Textbox

10 réponses

Votre réponse