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.....
Qqn pourrais m'aider, svp, je rame encore sur les formats....
Bonne am
Seb
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 SubQqn pourrais m'aider, svp, je rame encore sur les formats....
Bonne am
Seb