Compter le nombre de colonnes

Version imprimable

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:

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

18/03/2024, 15h33
umfred

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

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:

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

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

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:

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:

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

18/03/2024, 19h50
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