Discussion :

[MADA BLACK]

Bonjour tout le monde
Svp j'ai besoin d'aide .. je veux simplifier ce code et le raccourcir
Tous les 10 colonnes du Datagridview1 ont les noms ( Column1 - Column2 - Column3 - Column4 - Column5 ....etc .. Column10 )

Code :

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

1
2
3
4
5
6
7
        Dim TFields As Integer = 0
        For Each Row As DataGridViewRow In DataGridView1.Rows
            If IsNumeric(Row.Cells("Column1").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column1").Value = 10) And IsNumeric(Row.Cells("Column2").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column2").Value = 10) And IsNumeric(Row.Cells("Column3").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column3").Value = 10) And IsNumeric(Row.Cells("Column4").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column4").Value = 10) And IsNumeric(Row.Cells("Column5").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column5").Value = 10) And IsNumeric(Row.Cells("Column6").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column6").Value = 10) And IsNumeric(Row.Cells("Column7").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column7").Value = 10) And IsNumeric(Row.Cells("Column8").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column8").Value = 10) And IsNumeric(Row.Cells("Column9").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column9").Value = 10) And IsNumeric(Row.Cells("Column10").Value IsNot DBNull.Value) AndAlso IsNumeric(Row.Cells("Column10").Value = 10) Then
                TFields += Val(Row.Cells("Column1").Value) + Val(Row.Cells("Column2").Value) + Val(Row.Cells("Column3").Value) + Val(Row.Cells("Column4").Value) + Val(Row.Cells("Column5").Value) + Val(Row.Cells("Column6").Value) + Val(Row.Cells("Column7").Value) + Val(Row.Cells("Column8").Value) + Val(Row.Cells("Column9").Value) + Val(Row.Cells("Column10").Value)
            End If
        Next
        Me.TextBox1.Text = TFields.ToString()

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[popo]

Il faudrait déjà que tu expliques ce que tu cherches à faire parce que ce code est bourré d'illogisme.

Déjà, le nommage !
Quand tu devras revenir sur ce code dans quelques temps, tu va perdre un temps faut à comprendre.

Ensuite, tu appelles IsNumeric uniquement sur des booléen.
Donc tes IsNumericrenvoient tous True, et par conséquent ne servent pas à grand chose.
En effet :
Row.Cells("Column1").Value IsNot DBNull.Value renvoie un booléen.
Row.Cells("Column1").Value = 10 renvoie un booléen.
etc.

Ensuite, tu ne teste que la valeur 10.
Donc si tout vaut 10, il est inutile de relire ces données pour les additionner, autant rajouter 100 directement.

Enfin, tu utilises Val, alors que ton test avec IsNumeric est sensé t'assurer que tu n'as que des nombres.

[MADA BLACK]

Bonjour popo
Merci beaucoup pour l'intention d'aide
En realite j'ai trouvé ce code au net .. mais ca fonctionne comme meme et me donne le nombre total des cellules avec 10 .. je veux le simplifier un peu si c'est possible
Je veux simplement compter le nombre de cellules ayant le nombre 10 car il y'a des cellules ayant le autre nombre 5 ou 6 ou 7 .. moi je veux compter uniquement les cellules avec le nombre 10 .
Merci encore popo
Cordialement
MADA

[popo]

En realite j'ai trouvé ce code au net .. mais ca fonctionne comme meme et me donne le nombre total des cellules avec 10

Ce code fonctionne ! Ah bon ?
Pour moi, ce code ne donne le nombre total des cellules avec 10.
Il fait la somme de toutes les cellules et je suis même persuadé qu'il plante s'il y autre chose que des nombres dans ta grille.

Essaie ceci :

Code :

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

1
2
3
4
5
6
Dim total As Integer = 0
For Each Row As DataGridViewRow In DataGridView1.Rows
    total += Row.Cells.Cast(Of DataGridViewCell)() _
        .Select(Function(c) c.Value) _
        .Count(Function(v) Not IsNothing(v) AndAlso v.ToString() = "10")
Next

[MADA BLACK]

Salut popo
Non je n'ai aucune autre chose dans ma grille que des colonnes et des nombres ( 5 - 7 - 8 - 10 )
Oui votre code fonctionne tres tres bien .. exactement comme je veux voir et avoir
Tres gentil de votre part
Je vous remercie beaucoup cher popo
Cordialement
MADA