format nombre dans un textbox

[kinel]

bonjour à tous

je ne parviens à bloquer le format nombre sur les textbox 5 et 6 de ce code

merci de votre aide
Kinel


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

Dim derligne As Integer
Sheets("Liste").Select
derligne = Sheets(6).Range("A65536").End(xlUp).Row + 1
If TextBox1.Value = "" Then
Label14.Visible = True
Exit Sub
End If
If TextBox2.Value = "" Then
Label14.Visible = True
Exit Sub
End If
If TextBox3.Value = "" Then
Label14.Visible = True
Exit Sub
End If
If TextBox4.Value = "" Then
Label14.Visible = True
Exit Sub
End If
If TextBox5.Value = "" Then
Label14.Visible = True
Exit Sub
End If
If TextBox6.Value = "" Then
Label14.Visible = True
Exit Sub
End If
With Sheets("Liste")
.Cells(derligne, 1) = TextBox1
.Cells(derligne, 2) = TextBox2
.Cells(derligne, 3) = TextBox3
.Cells(derligne, 4) = TextBox4
.Cells(derligne, 5) = TextBox5
.Cells(derligne, 7) = TextBox6
.Cells(derligne, 19) = DTPicker1
End With

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
Label14.Visible = False


Application.ScreenUpdating = True

End Sub

 

[PascalXLD]

Re : format nombre dans un textbox

Bonjour

tu entends quoi par bloquer ?

lors du transfert vers la cellule ?

 

[kinel]

Re : format nombre dans un textbox

oui, en fait quand je valide l'userform ces 2 textbox (qui contiennent des nombres) vont se copier dans une feuille qui reprend ces 2 nombres pour faire d'autres calculs.

tel qu'il est ça fonctiuonne parfaitement comme je veux sauf que ces 2 textbox arrivent sur ma feuille de destination en passant le format de la cellule de destination en standart.

j'ai déjà esssayé des trucs trouvés sur le forum mais sans succès dans mon cas

Merci de votre aide

Kinel

 

[PascalXLD]

Re : format nombre dans un textbox

re

essaies

.Cells(derligne, 5) = CDbl(Replace(TextBox5.Value, ".", ","))
.Cells(derligne, 7) = CDbl(Replace(TextBox6.Value, ".", ","))

 

[kinel]

Re : format nombre dans un textbox

t'es trop beau gosse l'ami Pascal

ça roule du feu de dieu !