none
MSFlexigrid et MSHFlexgrid RRS feed

  • Question

  • Bonjour le Forum

    j'ai fait un code pour totalisé les Montant d'une colonne d'un MSFlexigrid et le transcrire a la dernière ligne vide de la colonne j'ai réussi a le mettre au point il fonctionne très bien seulement en voulant l'adapter sur MSHFlexgrid il marche pas non seulement il se pointe a la première ligne au lieu de la dernière il fait même pas le calcul 

    Private Sub total()
    Dim NB_Ligne As Integer
    Dim total As Currency
    total = 0
     ' Defini le nombre de lignes dans le MSHFlexGrid1
     NB_Ligne = MSHFlexGrid1(0).Rows
     ' Boucle de Remplissage
     For i = 1 To NB_Ligne - 1
     'positionnement à la colonne N°5
     MSHFlexGrid1(0).Col = 5
     ' se positionne sur la ligne du N° de la boucle
     MSHFlexGrid1(0).Row = i
     If MSHFlexGrid1(0).Text = "" Then Exit For  ' si cellule vide on sort
      total = total + CSng(MSHFlexGrid1(0).Text)
     Next i
     MSHFlexGrid1(0).Text = For
    mat(total, "#,##0.00")
    End Sub

    Merci d'avance et bonne journée

    dimanche 8 août 2010 17:23

Réponses

  • Bonsoir

    le probléme est reglé j'ai repris complétement le code il marche bien

    Private Sub total()
    Dim dTotal As Double
    Dim dValue As Double
    Dim lRow As Long

    With MSHFlexGrid1(0)
      'boucle sur toutes les lignes de données
      For lRow = .FixedRows To .Rows - 1
        ' obtenir la valeur de la ligne en cours
        dValue = Val(.TextMatrix(lRow, 5))
        'l'ajouter à notre total
        dTotal = dTotal + dValue
      Next lRow
      'Ajouter une nouvelle ligne
      .Rows = .Rows + 1
      'Inscrire le montant total dans la nouvelle ligne
      .TextMatrix(.Rows - 1, 5) = Format(dTotal, "#,##0.00")
    End With
    End Sub

     

    Cordialement

     

    dimanche 8 août 2010 19:27