Discussion :

[najoua01]

Bonjour,
je veux faire un calcule dans une datagridview voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                    If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                        total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                        Me.TXT_HT.Text = Math.Round(total, 2)
                    End If
                End If
            Next

et voici l'erreur

la conversation de la chaine "" en type boolean n'est pas valide

Merci d'avance

[houbi2b]

salut,

Le problème c'est que tu cast une chaine de caractère en booléen. A quoi te sert il ce cast?
(sachant que tu teste deja avant avec IsdbNull si le champ est null ou pas)

[najoua01]

j'ai déja fait le test

Code :

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

Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value)

Salutations

[mactwist69]

Ta case ne contient en effet pas "DBnull", mais en revanche il contient une chaîne vide.... ce qui ne va pas.

Cette case est censé contenir quoi ?

[najoua01]

je vous expliquer
j'ai une datagridviex contient des case en checkbox et je veux faire le calcule des lignes qui sont sélectionner et qui sont pas sélectionner il faut pas les calculer et voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
 Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                    If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                        total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                        Me.TXT_HT.Text = Math.Round(total, 2)
                    End If
                End If
            Next

merci d'avance

[houbi2b]

le problème c'est que le cast que tu fais n'est pas possible.

Code :

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

1
2
 
CBool(Me.DataGridView1.Rows(i).Cells("liv").Value)

Pourquoi veux tu faire ce cast au juste?

[najoua01]

ça veux dire si la ligne est coché il faut ajouter au calcule si nn c'est pas la peine

[asmduty]

Utilise plutot un For Each à la place du for, et un SelectedRows à la place de Rows.

Ta conversion de la valeur en null ne donne actuellement pas si elle est selectionnée ou non.
Il y a des attributs SelectedCells, SelectedColumns et SelectedRows dans le DatagridView pour ça.

Code :

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

1
2
3
4
5
6
7
8
For each row as datagridviewrow in Me.DataGridView1.SelectedRows
If Not IsDBNull(row.Cells("liv").Value) Then
 
total = total + Val(row.Cells("DET_DEV_MONT").Value)
Me.TXT_HT.Text = Math.Round(total, 2)
 
End If
Next

Tu vas parcourir seulement les lignes sélectionnées, celles dont tu as besoin donc.

Cependant sur ton datagridview dans SelectionMode, choisis CompleteRow afin que lorsque l'on clique sur une cellule ça soit toute la ligne qui soit selectionnée.

[najoua01]

merci asmduty
pour l'instant l'erreur ca fiche pas mais le code fait pas le calcule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim total As Double = 0
            For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
                For Each row As DataGridViewRow In Me.DataGridView1.SelectedRows
                    If Not IsDBNull(Me.DataGridView1.Rows(i).Cells("liv").Value) Then
                        If CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True Then
                            total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                            Me.TXT_HT.Text = Math.Round(total, 2)
                        End If
                    End If
                Next
            Next

merci

[asmduty]

Ton code est à remplacer par le mien et en théorie ça doit fonctionner.
Garde juste ton :

Code :

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

Dim total As Double = 0

Si ça ne fonctionne pas, il faut mettre un point d'arret sur le for each, et poser des espions.

[najoua01]

re bonjou,
le code calcule tous les lignes qui sont cochés ou pas je sais pas qu'est ce que je doit faire,
merci pour votre aide
salutations

[asmduty]

Quand on veut programmer il faut quand même y mettre du sien et/ou avoir des bases et/ou lire correctement ce que l'on nous explique

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
Dim total As Double = 0
 
'Pour chaque ligne sélectionnée dans le Datagridview1
For each row as datagridviewrow in Me.DataGridView1.SelectedRows
 
'Si "liv" n'est pas null
If Not IsDBNull(row.Cells("liv").Value) Then
 
'Tes calculs
total = total + Val(row.Cells("DET_DEV_MONT").Value)
Me.TXT_HT.Text = Math.Round(total, 2)
 
 
End If
Next

[chrismonoye]

bonjour,

si j'ai bien compris, il ne s'agit pas de faire la somme des lignes sélectionnées, mais des lignes cochées dans leur colonne "liv".

Ces lignes ne sont donc pas nécessairement sélectionnées et à fortiori d'autant moins si le calcul est commandé depuis un bouton par exemple.

MSDN : la classe DBNull fait la différence entre une variante VT_NULL, qui indique une valeur inexistante, et une variante VT_EMPTY, qui indique une valeur non spécifiée.

Il faudrait essayer :

Code :

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

            If Not DBNull.Value.Equals(Me.DataGridView1.Rows(i).Cells("liv").Value) Then

....................................

Code :

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

            If Not Me.DataGridView1.Rows(i).Cells("liv").Value Is String.Empty Then

séparément ou OrElse.

[asmduty]

j'ai une datagridviex contient des case en checkbox et je veux faire le calcule des lignes qui sont sélectionner et qui sont pas sélectionner il faut pas les calculer et voici mon code

En effet, j'avais plus retenu le sélectionné que le checkbox =\

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

[mactwist69]

En effet, j'avais plus retenu le sélectionné que le checkbox =\

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

Quand on veut programmer il faut quand même y mettre du sien et/ou avoir des bases et/ou lire correctement ce que l'on nous explique

Tu y vas un peu fort je trouve. un peu gonflé de parler d'y mettre du sien alors que tu poses une question novice sur un poste qui n'est même pas le tien.

De plus tu as dis d'utiliser SelectedRows... ce qui est totalement faux et rends le code incorrect...
Il ne va prendre en compte que les lignes surligné en bleu !! et non la totalité des lignes du datagridview.

Najoua01, réutilise Me.DataGridView1.Rows !

Code :

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

CBool(Me.DataGridView1.Rows(i).Cells("liv").Value) = True

était une très bonne idée.

Ton problème viens du fait que si un checkbox n'est pas coché, au lieu de te renvoiyé False, il renvois une chaine vide. Donc tu ne paux pas utilisé CBool.

Ensuite pour savoir ce que "row.Cells("liv").Value" te renvois, fait ta boucle et montre ce qu'il contient:

Code :

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

1
2
3
4
5
6
7
For each row as datagridviewrow in Me.DataGridView1.Rows
       If Not IsDBNull(row.Cells("liv").Value) Then
 
                Msgbox(row.Cells("liv").Value)
 
        End If
Next

Test ce code, avec des lignes cochés et des lignes pas cochés, alors tu verras ce que te revois "row.Cells("liv").Value".

Par exemple "True" ou "1" ou autre chose.
Si c'est "1", alors tu pourras modifier ton code:

Code :

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

1
2
3
4
5
6
7
8
9
10
For each row as datagridviewrow in Me.DataGridView1.Rows
       If Not IsDBNull(row.Cells("liv").Value) Then
 
                If (row.Cells("liv").Value = 1) Then
 
                       total = total + Val(Me.DataGridView1.Rows(i).Cells("DET_DEV_MONT").Value)
                        Me.TXT_HT.Text = Math.Round(total, 2)
                 End If
        End If
Next

Par contre si "row.Cells("liv").Value" te renvois la chaine de caractères "true", alors remplace:

Code :

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

If (row.Cells("liv").Value = 1) Then

Par:

Code :

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

If String.Compare(row.Cells("liv").Value, "True) Then

Tu vois le truc ?

[najoua01]

merci bcp chrismonoye
c'est ça ce que je veux
merci a tous

[chrismonoye]

Juste petit question concernant le OrElse, il analyse la première condition, et si elle est vérifiée n'analyse pas la seconde ?

Bonsoir,

On lit souvent que OrElse doit être utilisé à la place de Or.
Voici deux cas (plutôt alambiqués) où l'emploi de l'un est préférable à l'autre et vice-versa :

1er cas:

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 n1 As Integer = 0
    Dim n2 As Integer = 5
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If n1 = 0 OrElse maFonction(10) > 9 Then
            Debug.Print(CStr(n2))
        End If
 
    End Sub
 
    Function maFonction(ByVal valeur As Integer) As Integer
        valeur += 10
        maFonction = valeur
        n2 += 10
 
    End Function

puisque une des deux expressions,au moins, est satisfaite, on peut penser que par maFonction, n2 vaudra 5+10=15.
et bien non, la 1ère expression étant vraie, l'application a pris le raccourci.
donc attention aux expressions qui contiennent des appels de procédure.
Ici Or est donc approprié, il évaluera les deux expressions.

Second cas :

Code :

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

1
2
3
4
5
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If n1 = 0 Or 10 \ n1 = 5 Then
            Debug.Print("ok")
        End If
    End Sub

Ici, Or provoque une erreur de tentative de division par 0, OrElse, tout en limitant le code, règle le problème.
Bon, je réponds tardivement,de surcroit la discussion étant résolue et je suis hors sujet.

[asmduty]

Merci bien, il me semblait que le Or agissait tout seul de cette manière, mais avec ton exemple je comprends mieux pourquoi il ne le fait pas, sinon on serait embêté avec les appels de fonction.