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
 

Discussions similaires

Réponses
1
Affichages
1 K

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth