Discussion :

[MADA BLACK]

Bonjour Tout le monde
Svp j'ai besoin d'aide
J'ai 4 colonne dans DataGridView1
Colonne A , Colonne B , Colonne C .. et Colonne D
Je veux afficher dans la colonne D le nombre des matieres inferieur a 100 .. les colonnes A , B , C representent les matieres
Comme exemple
Colonne A = 100 .. Colonne B = 98 .. Colonne C = 75 alors s'affichera dans ma colonne D le nombre 2
Colonne A = 50 .. Colonne B = 45 .. Colonne C = 75 alors s'affichera dans ma colonne D le nombre 3
Colonne A = 110 .. Colonne B = 198 .. Colonne C = 135 alors s'affichera dans ma colonne D le nombre 0
J'ai essayé comme ca mais malheureusement j'ai obtenu des faux resultats

Code :

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

1
2
3
4
5
    Dim Counta As Integer = 0
        For I As Integer = 0 To dgv1.Rows.Count - 1
            Counta += dgv1.Rows(I).Cells(0).Value < 100 Or dgv1.Rows(I).Cells(1).Value < 100 Or dgv1.Rows(I).Cells(2).Value < 100
            dgv1.Rows(I).Cells(3).Value = Counta
        Next

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[umfred]

Je pense, à 1ère vue, que tu devrais transformer le += en simple = (sinon tu cumules d'une ligne sur l'autre)

[popo]

Tu es en train de compter des booléens !
Et en plus tu pars du principe que True vaux 1 alors que ce n'est pas le cas.
Console.WriteLine(CInt(True)) affiche -1
Normal que ça ne fonctionne pas...

La réponse de umfred, qui fait la même erreur que toi, ne convient pas non plus car les tests vont s'arrêter sur le premier qui renvoie True
Tu aura soit 0 soit -1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Dim Counta As Integer
        For I As Integer = 0 To dgv1.Rows.Count - 1
            Counta = 0
            If  dgv1.Rows(I).Cells(0).Value < 100 Then
                Counta += 1
            End If
 
            If  dgv1.Rows(I).Cells(1).Value < 100 Then
                Counta += 1
            End If
 
            If  dgv1.Rows(I).Cells(3).Value < 100 Then
                Counta += 1
            End If
 
            dgv1.Rows(I).Cells(3).Value = Counta
        Next

[umfred]

Arf, en effet, j'aurai dû mieux regarder

En remplaçant les "Or" par des "+", on aura cependant ici la bonne valeur (en négatif, il suffirait de prendre la valeur absolue)

Je l'aurai peut-être écrit avec l'opérateur ternaire IIf

Code :

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

1
2
3
4
5
Dim Counta As Integer = 0
For I As Integer = 0 To dgv1.Rows.Count - 1
    Counta = IIf(dgv1.Rows(I).Cells(0).Value < 100,1,0) + IIf(dgv1.Rows(I).Cells(1).Value < 100,1,0) + IIf(dgv1.Rows(I).Cells(2).Value < 100,1,0)
    dgv1.Rows(I).Cells(3).Value = Counta
Next

Autre possibilité via LINQ

Code :

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

1
2
3
4
5
Dim Counta As Integer = 0
For I As Integer = 0 To dgv1.Rows.Count - 1
    Counta = {dgv1.Rows(I).Cells(0).Value, dgv1.Rows(I).Cells(1).Value, dgv1.Rows(I).Cells(2).Value}.Where(Function(a) a < 100).Count()
    dgv1.Rows(I).Cells(3).Value = Counta
Next

[MADA BLACK]

Merci beaucoup popo pour l'aide et pour l'explication
Tres gentil de votre part
Maitenant ca fonctionne tres tres bien .. comme je veux voir et avoir
Cordialement
MADA

Merci beaucoup Umfred pour l'aide et pour les deux codes qui fonctionnent et comptent exactement comme he veux avoir
Tres gentil de votre part gentelman
Cordialement
MADA