Additionner les Nombres contenus dans chaque ligne d'une Textbox [Résolu]
Dri60
- Messages postés
- 70
- Date d'inscription
- lundi 24 décembre 2007
- Dernière intervention
- 17 novembre 2008
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Dernière intervention
- 24 juillet 2013
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
- Dernière intervention
- 24 juillet 2013
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
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Dernière intervention
- 24 juillet 2013
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
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- mardi 11 novembre 2003
- Dernière intervention
- 24 juillet 2013
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
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 70
- Date d'inscription
- lundi 24 décembre 2007
- Dernière intervention
- 17 novembre 2008
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
- Dernière intervention
- 17 novembre 2008
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
- Dernière intervention
- 24 juillet 2013
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
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.