Saisie d'en un userform et forcer le format €

[GADENSEB]

Re Bonjour le Forum,

Je rentre des données dans une bdd via un usf de saisie et je voudrait forcer le format de sortie de deux textbox

Voici mon code de validation des données

Les txtbox à valider sont :
- DEBIT
- CREDIT
et je voudrais qu'ils sortent sous le format, par exemple : 720.00 €


Je suppose que je dois inclure cette validation au niveau de la ligne CDATE.....

Private Sub Validation_Click()
'Enregistre les données dans la BDD
Dim LastLigne As Integer
Dim ModeRecalcul As Long


ModeRecalcul = Application.Calculation


' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual


 
If MsgBox("Ajouter une nouvelle Ligne ? ", vbYesNo, " Demande de confirmation d’ajout ") = vbYes Then
 
LastLigne = Sheets("COMPTES").Range("a65536").End(xlUp).Row + 1
Dim c, x&

     For Each c In Me.Controls
    
        If c.Tag <> "" Then
            x = c.Tag
            If IsDate(c.Value) Then
                Feuil3.Cells(LastLigne, x).Value = CDate(c.Value)
            Else
                Feuil3.Cells(LastLigne, x).Value = c.Value
            End If
        End If
    Next
End If
Unload Me


' Rétablissement du mode de recalcul d'origine
Application.Calculation = ModeRecalcul

End Sub

Qqn pourrais m'aider, svp, je rame encore sur les formats....

Bonne am

Seb

 

[13GIBE59]

Re : Saisie d'en un userform et forcer le format €

Bonjour GADENSB,

Sans fichier, pas facile de tout comprendre...

Mais essaie Format(c.Value), "#,##0.00 €"), à tout hasard...

 

[Dranreb]

Re : Saisie d'en un userform et forcer le format €

Bonsoir.
Moi j'essayerais CCur(c.Value)

 

[GADENSEB]

Re : Saisie d'en un userform et forcer le format €

Hello
Merci à tous
Je sais pas pkoi mais tout refonctionne normalement sans forcer le format €.....
La magie de l'informatique ...

Bonne am

seb