Additionner les Nombres contenus dans chaque ligne d'une Textbox [Résolu]
Dri60
Membre Dernière intervention
17 novembre 2008
- - Dernière réponse :
cs_Galain
Membre Dernière intervention
24 juillet 2013
- 23 mars 2008 à 23:10
- Messages postés
- 70
- Date d'inscription
- lundi 24 décembre 2007
- Statut
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Statut
A voir également:
- Additionner les nombres contenus dans chaque ligne d'une textbox
- Nombre total de lignes dans un textbox - Codes sources - Visual Basic / VB.NET (Formulaire)
- PHP : Statistiques de votre projet (nombre de dossiers, fichiers, lignes...) - CodeS SourceS - Guide
- Limiter le nombre de caractère par ligne dans un fichier de sous tires (.srt) - Codes sources - Java (Multimedia)
- Limiter le nombre de lignes dans un textbox - Codes sources - Visual Basic / VB.NET (Formulaire)
- Récupérer le nombre de doublons par ligne ✓ - Forum - SQL
10 réponses
Meilleure réponse
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Statut
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
total =0
For i = 1 to nombre de ligne
total = total + prix de l'article
Next i
GRENIER Alain
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
154 internautes nous ont dit merci ce mois-ci
- Messages postés
- 70
- Date d'inscription
- lundi 24 décembre 2007
- Statut
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
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
- Messages postés
- 70
- Date d'inscription
- lundi 24 décembre 2007
- Statut
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
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
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Statut
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
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