Discussion :

[crocket51]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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...

[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...

[Sankasssss]

Un truc dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rv26t]

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é.

[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

[Sehnsucht]

Un truc dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.