MSFLEXGRID ET MSHFLEXGRID

Bonjour le Forum

j'ai poster hier un Sujet sur un code qui totalise les montant d'une colonne d'un MSFLEXGRID j'ai pu trouver la solution comme je le désire mais en tentant d'adapter le même code sur un MSHFLEXGRID il fonctionne pas malgré que j'ai tout essayé si quelqu'un a une idée le problème c'est qu'il ne fait pas de calcule et au lieu de se positionné sur la dernière ligne il va a la première ligne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub total() Dim NB_Ligne As Integer Dim total As Single 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 = Format(total, "#,##0.00") End Sub

---

Merci d'avance

Bonsoir tout le monde

j'ai refait complétement le code apparemment il marche très bien voici donc si ça peut intéressé quelqu'un :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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