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 : 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
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