je travail pour un programme en visual basic
Function SumColumn() Dim intSumColumnValue As Integer For x As Integer = 0 To MyDataGridName.RowCount - 1 intSumColumnValue += MyDataGridName.Rows(x).Cells("MyColumnName").Value Next SumColumn = intSumColumnValue End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionVB4 ! Mais tu as ouvert cette discussion dans le sous-forum VBA (rien à voir avec VB4) !
VB4 n'étant plus utilisé depuis belle lurette, je doute qu'un forumeur de passage ait encore en tête le fonctionnement (propriétés, méthodes et évènements) de grid.ocx de VB4.
somme = 0
toto.col = ..... ' le rang de ta colonne N, qu'on fixe une seule fois, pour toute la boucle sur les lignes
for i = 1 to .... (nombre de lignes de ton contrôle GRID nommé toto)
toto.row = i
somme = somme + val(toto.text)
next
msgbox somme ' pour voir le résultat de somme
for i = 1 to toto.rows.count (nombre de lignes de ton contrôle GRID nommé toto)