Faire une boucle pour sommer des textbox

Version imprimable

Bonjour,

Je voudrais faire la somme de plusieurs textbox (nommé Cel avec un indice 1 à 100 ex : Cel001, Cel002 à Cel100).

J'ai essayé de faire des boucles types, mais j'ai un bug :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim somme As Decimal Dim cellule As String For i = 1 To 100 cellule = "Cel" & CStr(i) somme = somme + cellule.Text Next
je bloque...

25/02/2013, 19h56
Sankasssss

Bonsoir,

vous vous rendez compte de ce que vous essayer de faire là? Vous essayez d’additionner une variable de type string avec une variable de type decimal. :?

Avez-vous déjà placé les 1000 textBox sur la form? Si oui comment?

P.S. : c'est aberrant de mettre autant de textBox...
25/02/2013, 20h17
crocket51

Oui, je sais qu'il y a un problème dans le code d'où ma question.

J'ai 100 textbox car j'ai des données à rentrer, 5 niveaux, 5 jours et 4 répétitions...c'est pour faire des stats...

Un truc dans le genre :

Code:

1
2
3
4
5
6
7
8
9
Dim name As String = "Cel"
 
For i As Int32 = 1 To 100
 
    if isNumeric(CType(Me.Controls(name + i.ToString), TextBox).Text) then
        somme = somme + decimal(CType(Me.Controls(name + i.ToString), TextBox).Text)
    end if
 
Next

25/02/2013, 20h57
rv26t

Citation:

Envoyé par crocket51

J'ai 100 textbox car j'ai des données à rentrer, 5 niveaux, 5 jours et 4 répétitions...c'est pour faire des stats...

5 niveaux X 5 jours X 4 répétitions = 100 d'ou ton nombre de TextBox

Il faut peut être voir s'il est possible de modifier cette fonctionnalité de ton application en quelques chose de plus simple.
Ne serait-il pas plus judicieux d'effectuer les saisies par journée. (Cela serait moins pénible pour l'utilisateur) Ce qui limiterait le nombre de TextBox à : 5 niveaux X 4 répétitions = 20
Après saisie de la journée (20 TextBox), vous sauvegardez les données dans une Base de données.

Au bout des 5 jours, vous pouvez faire une requête sur la BDD pour afficher les stats. (En plus vous pourrez faire des stats sur différentes périodes. 2 semaines, 1 mois, ...)

Après c'est juste une suggestion. ;)

A+, Hervé.
25/02/2013, 23h23
crocket51

Non, ce n'est pas possible, il s'agit d'une validation de méthode d'analyse.
Les données doivent être visible dans l'ensemble....

Merci pour vos réponses

Citation:
Envoyé par Sankasssss
Un truc dans le genre :
Code:

1 2 3 4 5 6 7 8 9 Dim name As String = "Cel" For i As Int32 = 1 To 100 if isNumeric(CType(Me.Controls(name + i.ToString), TextBox).Text) then somme = somme + decimal(CType(Me.Controls(name + i.ToString), TextBox).Text) end if Next
plusieurs détails ; pour respecter le format des noms il faudrait utiliser i.ToString("000") de plus le cast en TextBox est a priori inutile (Control possède la propriété Text) après je suis pas fan du IsNumeric (mais ça c'est un peu plus subjectif) enfin si un Controls(name) renvoie Nothing ça va planter [mais comme on compte déjà sur le nommage des controles pour faire le boulot on est plus à ça près]

Voici ce qu'on pourrait faire, même si dans l'idéal je serais plutôt de l'avis de rvt [ou au moins utiliser un controle adapté par exemple un DataGridView pour la présentation tabulaire qu'il offre]
Avantage, ne dépend pas du nom des controles donc réduit les risques d'exception)
Inconvénient (en l'état) tous les controles concernés doivent être dans le même conteneur et uniquement eux (pour ce type)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim somme1 = Controls.OfType(Of TextBox). Sum(Function(tb) Dim value As Decimal Decimal.TryParse(tb.Text, value) Return value End Function) 'ou bien (en jouant sur les "side-effect") Dim somme2 = Aggregate tb In Controls.OfType(Of TextBox)() Let value = 0D Where Decimal.TryParse(tb.Text, value) Into Sum(value)
Au pire on peut facilement palier aux "inconvénients", si les noms étaient si importants/discriminants (exemple d'autres Textbox sont dans le même conteneur et ne doivent pas participer) on pourrait toujours ajouter une clause Where avec un Like (souvent négligé ;)) du style (selon la syntaxe utilisée)
Code:

1 2 3 4 .Where(Function(tb) tb.Name Like "Cel###") 'ou bien Where tb.Name Like "Cel###"
Cordialement !

Edit: Si l'on est absolument persuadé que les entrées sont des nombres (pour la culture courante) on pourrait remplacer les Decimal.TryParse par des Decimal.Parse ce qui allègerait l'écriture.