Discussion :

[BERRACHED SAID]

Bonsoir le Forum

je voudrais transcrire le total d'une colonne d'un Flexgrid dans la dernière ligne vide de la colonne qui comporte les chiffres j'ai met un code mais il me semble qui ne fonctionne pas :

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
Dim NB_Ligne As Integer
Dim total As Single, x As Long
total = 0
 ' Defini le nombre de lignes dans le msFlexGrid
 NB_Ligne = MSFlexGrid1.Rows
 ' Boucle de Remplissage
 For i = 1 To NB_Ligne - 1
 'positionnement à la colonne N°5
 MSFlexGrid1.Col = 5
 ' se positionne sur la ligne du N° de la boucle
 MSFlexGrid1.Row = i
 If MSFlexGrid1.Text = "" Then Exit For   ' si cellule vide on sort
   total = total + CSng(MSFlexGrid1.Text)
  MSFlexGrid1.Text = Format(total, "#,##0.00") '& i
 Next i

j'aimerai bien avec vos aides parvenir a corriger ce code

Merci d'avance

[BERRACHED SAID]

Salut

après plusieurs tentatives j'ai réussi a trouver la solution voici le code si ça peux intéressé quelqu'un :

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
Dim NB_Ligne As Integer
Dim total As Single
total = 0
 ' Defini le nombre de lignes dans le msFlexGrid
 NB_Ligne = MSFlexGrid1.Rows
 ' Boucle de Remplissage
 For i = 1 To NB_Ligne - 1
 'positionnement à la colonne N°5
 MSFlexGrid1.Col = 5
 ' se positionne sur la ligne du N° de la boucle
 MSFlexGrid1.Row = i
 If MSFlexGrid1.Text = "" Then Exit For   ' si cellule vide on sort
   total = total + CSng(MSFlexGrid1.Text)
 Next i
 MSFlexGrid1.Text = Format(total, "#,##0.00")

Cordialement