Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
Se sera un tres grand plaisir si vous pouvez m'aider SVP a corriger ce code.
Dans mon projet il se peut par exemple que MADA5 a commit 2 ou 3 ou plusieurs fautes alors lorsque je click sur MADA 1 dans FlexGrid alors toutes ses fautes seront affichees dans Les Text sous titres TYPE DE FAUTE avec ses differentes VALEURS.
Dans ce projet seulement la premiere faute et la premiere valeur de faute qui sont affichees.
Merci beaucoup d'avance pour l'aide
Tres cordialement
MADA

[ProgElecT]

Salut

toutes ses fautes seront affichées dans Les Text sous titres TYPE DE FAUTE avec ses différentes VALEURS.

Erreur de stratégie, le nombre de FAUTE et de VALEURS étant changeant , il faudrait mieux passer par 2 ListBox, un pour y mettre le(s) FAUTE , l'autre pour y mettre le(s) VALEURS .

Au niveau code cela pourrait donner

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub MSHFlexGrid1_Click()
 
Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) 'Num
Text2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) 'Nom
Text3.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) 'Phone
Text10.Text = ""
'Text4.Text = "": Text5.Text = "": Text6.Text = ""
'Text7.Text = "": Text8.Text = "": Text9.Text = ""
 
Dim T As Integer, Total As Single, TempRs As New ADODB.Recordset
 
ListTypeFaute.Clear: ListValeur.Clear 'vide les ListBox
'récuperation de tous les enregistrement du "Nom"
TempRs.Open "Select * From Grille Where Nom = '" & Text2.Text & "' Order By Num ASC", db, adOpenStatic, adLockPessimistic
If TempRs.State = adStateClosed Then MsgBox "Recordset fermé": Exit Sub
If TempRs.EOF Then MsgBox "Recordset vide": Exit Sub
'boucle sur le(s) enregistrement(s)
For T = 1 To TempRs.RecordCount
    ListTypeFaute.AddItem TempRs![Faute]
    ListValeur.AddItem FormatStr(TempRs![Valeur]) ' ajout à la liste en formatant pour mettre les chiffres alignés à droite
    'petit bidouillage pour permettre le calcul avec séparateur décimal VIRGULE est non  pas POINT
    Total = Total + CSng(Replace(TempRs![Valeur], ".", ",")) ' totalise, par cumul, les "VALEUR"
    TempRs.MoveNext ' avence à l'enregistrement suivant
Next T
TempRs.Close: Set TempRs = Nothing 'nettoyage
Text10.Text = Total 'affichage de la somme des VALEUR FAUTE
 
End Sub
 
Function FormatStr(Valeur) As String
FormatStr = CStr(Valeur)
FormatStr = Format(FormatStr, ".00")
FormatStr = Replace(FormatStr, ",", ".")
FormatStr = String(14 - Len(FormatStr), " ") & FormatStr
End Function

Les ListBox (Largeur 2535 twips) ont pour Font Courrier New, GRAS, taille 14 (dans cette Fonte, tous les caractères ont la même dimension), ce qui permet de caler les VALEUR à droite, par le biais de la fonction FormatStr

[MADA BLACK]

Bonsoir ProgElect
Merci 1000 fois pour l'aide
Vraiment c'est genial ce travail
Du fond du coeur MERCI
Simplement une derniere remarque .. la somme n'est pas correcte normalement la somme affichee sera ( 9660.71 )
Tres amicalement
MADA

[ProgElecT]

Re

Curieux, chez moi c'est bon.
Essais de remplacer la dernière ligne de Private Sub MSHFlexGrid1_Click() pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text10.Text = Replace(Format(Total, "0.00"), ",", ".") 'affichage de la somme des VALEUR FAUTE

[MADA BLACK]

Bonsoir ProgElect
Merci pour votre super suivi de ce file
Pas du tout le resultat est toujours incorrect
La somme pour MADA 2 par exemple dans Text10 est 950231.00
Amicalement
MADA

[ProgElecT]

Salut

....
le résultat est toujours incorrect
La somme pour MADA 2 par exemple dans Text10 est 950231.00
Amicalement
MADA

J'ai retrouvé une fonction personnelle, que je pense avoir adapté à ton besoin Amélioration de la fonction FormatNumber

En remplaçant la fonction FormatStr par la nouvelle,
Code du post N°2
ligne 20:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    'ListValeur.AddItem FormatStr(TempRs![Valeur]) ' ajout à la liste en formatant pour mettre les chiffres alignés à droite
'par
    ListValeur.AddItem FormatStr(TempRs![Valeur],2,14) ' ajout à la liste en formatant pour mettre les chiffres alignés à droite

ligne 22:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    'Total = Total + CSng(Replace(TempRs![Valeur], ".", ",")) ' totalise, par cumul, les "VALEUR"
'par
    Total = Total + Val(FormatStr(TempRs!Valeur,2)) ' totalise, par cumul, les "VALEUR"

Le résultat est il cette fois correct?

[MADA BLACK]

Bonjour ProgElect
Formidable ProgElect avec des formidables solutions
Je n'ai qu'a vous dire " BRAVO " pour la solution et pour votre super suivi ..vous n'oubliez pas vos interventions
Merci du fond du coeur
Amicalement
MADA