none
valeur d'une cellule d'un datagridview avec vb2010 RRS feed

  • Question

  • bonjour

    sur mon programme avec un datagridview je me trouve devant un cas que je sais pas résoudre je demande de l'aide

    voici le problème: la cellule contient un valeur avec décimale quand je veux la lire je n'arrive pas avoir la valeur exacte je met le code ci dessous  je pense avoir bien écrit la transformation de la valeur mais rien n'y fait j'obtiens toujours que la valeur

    Cette cellule contient le résultat d'une addition , je viens de tester avec une cellule contenant un valeur décimale cela fonctionne bien ce qui n'est pas le cas avec un total pour le retrouver

    merci d'avance car votre aide est précieuse

            '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    
            'calcul du report mensuel qui doit etre egal au total banque
            Dim F As Double, G As Double, H As Double, report As Double, F1 As String, G1 As String, H1 As String
    
    
            'reoprt janvier
            If A = "JANVIER" Then
    
    
                Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.RowHeaderSelect
    
                Me.DataGridView1.Rows(10).Cells(3).Selected = True
                Label_total_rentrees_fixes.Text = Me.DataGridView1.Rows(10).Cells(3).Value
                F = Val(Label_total_rentrees_fixes.Text)
                MsgBox("F=" & F)
                Me.DataGridView1.Rows(15).Cells(3).Selected = True
                G = Val(Me.DataGridView1.Rows(15).Cells(3).Value)
                Me.DataGridView1.Rows(33).Cells(3).Selected = True
                H = Val(Me.DataGridView1.Rows(33).Cells(3).Value)
                report = F - (G + H)
    
    
                Me.DataGridView1.Rows(38).Cells.Item(3).Value = report.ToString
    
    
    
            End If
    
    
    

    entière

     


    jeudi 10 décembre 2015 09:07

Réponses

  • Bonjour,

    essayer déjà ceci :

    Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.RowHeaderSelect
    
                Me.dataGridView1.Rows.Item(10).Cells.Item(3).Selected = True
                Label_total_rentrees_fixes.Text = Me.dataGridView1.Rows.Item(10).Cells.Item(3).Value
    //...etc

    cordialement,

    • Marqué comme réponse SIMONGEORGES vendredi 11 décembre 2015 11:23
    vendredi 11 décembre 2015 07:20

Toutes les réponses

  • Bonjour,

    essayer déjà ceci :

    Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.RowHeaderSelect
    
                Me.dataGridView1.Rows.Item(10).Cells.Item(3).Selected = True
                Label_total_rentrees_fixes.Text = Me.dataGridView1.Rows.Item(10).Cells.Item(3).Value
    //...etc

    cordialement,

    • Marqué comme réponse SIMONGEORGES vendredi 11 décembre 2015 11:23
    vendredi 11 décembre 2015 07:20
  • merci beaucoup je vais tester

    bonne journée

    vendredi 11 décembre 2015 10:46