Saisie d'en un userform et forcer le format €

GADENSEB

XLDnaute Impliqué
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.....

Code:
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

XLDnaute Accro
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...
 

GADENSEB

XLDnaute Impliqué
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
 

Haut Bas