Soucis de Format Nombre en texte aprés validation

[MuscatMimi]

Bonsoir a tous le Forum

Voila, j'ai ce code qui Valide mes données saisie dans ma feuille"Relance_Réalisées"

'--Btn Valider dans Relance Réalisées
Private Sub CommandButton1_Click()
If CDate(DTPicker1.Value) <> Date Then
Dim Rep
Rep = MsgBox("Voulez-vous confimer cette date ou la changer?.", vbYesNo)
If Rep = vbNo Then
'DTPicker1.SetFocus
Exit Sub
End If
End If

If Me.ComboBox2 = "" Then
MsgBox "Attention vous devez saisir le Pourcentage"
Me.ComboBox2.SetFocus
Exit Sub
End If

Dim i As Integer
Dim Derlgn As Integer
With Sheets("Relance_Réalisées")
Derlgn = .Range("A65536").End(xlUp).Row + 1
'.Cells(Derlgn, 1) = Derlgn '- ligne de départ pour
.Cells(Derlgn, 1) = Format(DTPicker1.Value, "dd/mm/yyyy")
.Cells(Derlgn, 2) = TextBox1.Value
.Cells(Derlgn, 3) = TextBox2.Value
.Cells(Derlgn, 4) = TextBox3.Value '
.Cells(Derlgn, 5) = TextBox4.Value
.Cells(Derlgn, 6) = TextBox5.Value
.Cells(Derlgn, 7) = Format(TextBox6.Value, "# ##0.00 €") 'Montant Facture
.Cells(Derlgn, 8) = TextBox7.Value
.Cells(Derlgn, 9) = TextBox8.Value
.Cells(Derlgn, 10) = Format(TextBox9.Value, "# ##0.00 €") 'Accompte versé
.Cells(Derlgn, 11) = ComboBox2.Value
.Cells(Derlgn, 12) = Format(TextBox10.Value, "# ##0.00 €") 'Reste Dû
.Cells(Derlgn, 13) = Format(TextBox11.Value, "# ##0.00 €") 'Montant des frais
.Cells(Derlgn, 14) = Format(TextBox12.Value, "# ##0.00 €") ' Total Frais + Reste Dû

.Cells(Derlgn, 15) = TextBox13.Value 'relance 1
'.Cells(Derlgn, 15) = TextBox14.Value 'relance 2
'.Cells(Derlgn, 15) = TextBox15.Value 'relance 3
.Cells(Derlgn, 16) = ComboBox1.Value 'pointé
End With

TextBox11.Value = "" 'Montant des Frais
TextBox12.Value = "" 'Total Frais + Reste Dû

TextBox13.Value = "" 'Relance1
'TextBox14.Value = "" 'Relance2
'TextBox15.Value = "" 'Relance3

ComboBox2.Value = "" 'Cbx %
End Sub

Mon soucis , est que ça me valide en format texte mes chiffres en €

J'ai essayé pas mal de modifs Genre
Format(Me.TextBox12.Value, "# ##0.00 €")
CDbl (TextBox12)
mais sans succés


Quelqu'un aurait'il une soluce???

merci a l'avance

 

[Mytå]

Re : Soucis de Format Nombre en texte aprés validation

Salut le forum

Essaye comme ceci

.Cells(Derlgn, 7) = TextBox6.Value 'Montant Facture
.Cells(Derlgn, 7).NumberFormat = "# ##0.00 [$€-40C]"

Mytå

 

[MuscatMimi]

Re : Soucis de Format Nombre en texte aprés validation

Salut myta

Merci de ta réponse
Mais je viens de trouver

J'ai mis ceci
If TextBox9 <> "" Then .Cells(Derlgn, 10) = CDbl(TextBox9) 'AccompteVersé

et mon format de ma cellule a Monétaire en € ,et deux decimales

a la place de
.Cells(Derlgn, 10) = Format(TextBox9.Value, "# ##0.00 €") 'AccompteVersé

Si cela peut servir a une autre personne

Bonne soirée