Discussion :

[Jiben59]

Bonjour la communauté,

je me tourne vers vous pour vous solliciter au niveau de deux points :

1 - Comment mettre un séparateur de milliers dans un code VBA svp.
Je sais que le code doit être le suivant :

Code :

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

Format(val,"0.00;-#,##0")

Mais je n'arrive pas à l'incorporer à mon code.

2 - Comment indiquer le montant total d'épargne depuis le code VBA,
c'est-à-dire au lieu d'avoir dans la zone de texte " Le solde des différentes épargnes actuellement est de :" obtenir "Le solde de l'épargne actuelle est de (Somme des épargens) € :".
J'ai pensé dans un premier temps à faire une somme totale dans ma requête mais je n'ai pas su la réaliser, et ensuite me servir de la colonne de la requête pour l'incorporer.

Ci-joint le rendu de mon codage :


Mon code est le suivant :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Sub InfosTxt(TypeAffich As Integer)
 
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim StrNmEpar As String     ' variable nom épargne.
    Dim IntMtEpar As Integer    ' variable montant épargne.
    Dim StrSynt As String      ' variable résultat obtenu.
 
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("MtEparSup0", dbOpenSnapshot) 'Appel de la réquete
 
 
    StrNmEpar = Nz(oRst.Fields(0), "") 'Attribue à la variable le résultat de la colonne 1 de la requête
    IntMtEpar = Nz(oRst.Fields(1), 0)  'Attribue à la variable le résultat de la colonne 2 de la requête
 
 
    Select Case StrNmEpar
        Case Is = ""   'S'il n'y a pas d'enregistrement
           StrSynt = "Aucune épargne actuellement."
 
        Case Else
           'Crée une boucle qui va déterminer les résultats sous la forme :
           '  - Nomdel'Epargne solde actuel de MontantEpargne (+ retour à la ligne pour résultat suivant).
          StrSynt = ""
 
          While Not oRst.EOF
                 StrSynt = StrSynt & "  -" & oRst.Fields(0) & " solde actuel de " & oRst.Fields(1) & " €. " & vbCrLf
                 oRst.MoveNext
          Wend
 
    End Select
 
 
    'Comme Source de la Zone de Texte, mise en place d'un titre + le résultat de la boucle.
    Select Case TypeAffich
        Case Is = -1    ''TypeAffich :  -1 Pour Zone de texte
           Form_Menu.TxtEpargne.ControlSource = _
           "=" & """ Le solde des différentes épargnes actuellement est de :" & vbCrLf & StrSynt & """"
    End Select
 
    'Fermetures des connexions
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing
 
 
End Sub

Je remercie les internautes qui me vont m'aider dans ces petits points.

Bonne journée à vous,

Bien cordialement,
Benjamin.

[tee_grandbois]

Bonsoir,
Pour le séparateur de milliers : tu peux utiliser le format "Standard" (ou "Currency" mais dans ce cas il faut enlever le signe € dans ta variable)

Code :

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

StrSynt = StrSynt & "  -" & oRst.Fields(0) & " solde actuel de " & format(oRst.Fields(1),"Standard") & " €. " & vbCrLf

pour le montant total il faut faire un cumul de touts les montants dans une variable de type Currency (et pas Integer qui ignore les décimales et est limité à 32767) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim CurMtEpar As Currency    ' Montant total de l'épargne.
.... 
          While Not oRst.EOF
                 CurMtEpar = CurMtEpar + oRst.Fields(1) 
                 oRst.MoveNext
          Wend
 ...
            Form_Menu.TxtEpargne.ControlSource = "=" & """ Le solde des différentes épargnes actuellement est de :" & vbCrLf & format(CurMtEpar,"Currency") & """"
 ...

[Jiben59]

Bonjour tee_grandbois,

je te remercie pour tes explications. Le tout fonctionne correctement !

J'aurais une petite question, est-il d'insérer de la mise en forme c'est à dire mettre certaines variables en couleurs ou en gras par exemple, depuis un code VBA ?

Encore merci pour les explications.

Bien cordialement,
Benjamin.

[tee_grandbois]

est-il d'insérer de la mise en forme c'est à dire mettre certaines variables en couleurs ou en gras par exemple, depuis un code VBA ?

non, pas possible à ma connaissance.

[Jiben59]

non, pas possible

Ok je te remercie pour la réponse.

Grâce à toi, j'ai résolu mon problème.

Bonne soirée à toi.

Bien cordialement,
Benjamin.