Somme dans un FlexGrid

Question

Jutilise un FlexGrid avec   une colonne date, une autre Noms, une colonne de chiffres etc....
Je voudrais pouvoir ajouter un textBox qui puisse me donner la somme de ces chiffres.
Comment puis-je faire Svp?
(en VB)

cs_pluplu · Answer

Pascal Laurençon

Voilà un exemple pour ce qui est des nombres, crée un nôuveau projet et met sur la feuille principale un control MSFlexgrid que tu nomme MSFlexgrid1 et ajoute le code suivant dans la partie load de ta feuille.

Private Sub Form_Load()

MSFlexGrid1.AddItem 32, 1 'ajoute le chiffre 32 dans la grille
MSFlexGrid1.AddItem 10, 2
MSFlexGrid1.AddItem 15, 3

Dim i As Integer
Dim somme As Integer

somme = 0
For i = 0 To MSFlexGrid1.Rows - 1 'parcourir le msflexgrid

    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = i
    somme = somme + Val(MSFlexGrid1.Text)
Next i
MsgBox somme

En Sub

Lefaix · Answer

Merci cela marche, mais,
car il y a toujours un mais,
J'ai des chiffres négatifs et positifs (malheureusement trop de négatifs!)
et dans le résultat aucun signe,
comment faire.
Je répète, mon programme vous intéresse t'il ?.
Merci.

Somme dans un FlexGrid

2 réponses

Discussions similaires